相談室(2)-T1013

Indexへ
(1906)//【1013】→(1014)
------------------------
【タイトル】図番表の作成について
【記事番号】 1013 (*)
【日時】05/04/14 12:52
【発言者】m.k m-kondou@purex.co.jp

皆さん、教えてください。
私はJWWを機械設計に用いていまして、設計図面の表（図番表）を"ｴｸｾﾙ"で作成しています。
その表を作成するのにJWW上に記入している図番や製作数をｺﾋﾟｰで貼付けして、1ﾌｧｲﾙごとに空け閉めしています。（手入力は間違うかもしれないので...）
この作業が結構面倒で困っています。
他に何か良い作成方法はないでしょうか？（座標で文字を習得する方法とか･･･）
皆さんは、どのように作成しているのですか？

ちなみにﾌｧｲﾙ名に図番を、ﾒﾓに製品名を記述しています。

Indexへ
(1013)←【1014】→(1015)
------------------------
【タイトル】Re(1):図番表の作成について
【記事番号】 1014 (1013)
【日時】05/04/14 13:06
【発言者】コジマ

▼m.kさん：
>皆さん、教えてください。
>私はJWWを機械設計に用いていまして、設計図面の表（図番表）を"ｴｸｾﾙ"で作成しています。
>その表を作成するのにJWW上に記入している図番や製作数をｺﾋﾟｰで貼付けして、1ﾌｧｲﾙごとに空け閉めしています。（手入力は間違うかもしれないので...）
>この作業が結構面倒で困っています。
>他に何か良い作成方法はないでしょうか？（座標で文字を習得する方法とか･･･）
>皆さんは、どのように作成しているのですか？
>
>ちなみにﾌｧｲﾙ名に図番を、ﾒﾓに製品名を記述しています。

牛渡様の外変「sgrid」を使用するのが、適当ではないでしょうか？
（rubyのインストールが必要）
以下で、DLできます。
http://www61.tok2.com/home2/gravelroad/tips/install.html

Indexへ
(1014)←【1015】→(1016)
------------------------
【タイトル】Re(2):勘違い
【記事番号】 1015 (1014)
【日時】05/04/14 13:54
【発言者】コジマ

ゴメンナサイ、勘違いでした。

Indexへ
(1015)←【1016】→(1017)
------------------------
【タイトル】Re(1):図番表の作成について
【記事番号】 1016 (1013)
【日時】05/04/14 15:19
【発言者】三五六

▼m.kさん：
こんにちは。

jokerさんが公開している、JWSearchをご紹介します。
ファイル名、メモなどの一覧をtxt(TAB区切り)やcsv等で
保存して、Excelに読むことが出来ます。
http://www.atsmile.com/jw/
↑のページから、「ダウンロード、テストプログラム等」
の中に有ります。

>ちなみにファイル名に図番を、メモに製品名を記述しています。

Indexへ
(1016)←【1017】→(1034)
------------------------
【タイトル】追記
【記事番号】 1017 (1016)
【日時】05/04/14 15:26
【発言者】三五六

書き忘れました。
メモ欄を編集することも出来ます。

三五六

 Indexへ
(1017)←【1034】→(1047)
------------------------
【タイトル】”JWSearch”を試してみました
【記事番号】 1034 (1016)
【日時】05/04/15 10:01
【発言者】m.k m-kondou@purex.co.jp

解答ありがとうございます。三五六さん
”JWSearch”を試してみました。
txtで保存したものを、加工したら使えそうです。

ただ、txtで保存した時、ﾌｧｲﾙ名の拡張子は除けないでしょうか？
それと、ﾒﾓ欄には現在、製品名しか記入してませんでしたので、ﾒﾓ欄に”製品名”と”製作数”を記入するとtab区切りが無い為、ｴｸｾﾙでは同じｾﾙ内になってしまいます。ﾒﾓ欄の表記方法でうまく区切る方法はないでしょうか？

Indexへ
(1034)←【1047】→(1065)
------------------------
【タイトル】Excel関数
【記事番号】 1047 (1034)
【日時】05/04/15 13:09
【発言者】おっじゃ

▼m.kさん：
>ただ、txtで保存した時、ﾌｧｲﾙ名の拡張子は除けないでしょうか？

Excelの関数を使えば、拡張子部分を省いて文字列を取り出せると思います。

「A1」セルに拡張子付きのファイル名が入っている場合「.jww」など下四桁を省きたいので

=LEFT(A1,LEN(A1)-4)

の式になると思いますが・・・

Indexへ
(1047)←【1065】→(1038)
------------------------
【タイトル】Re(1):”JWSearch”を試してみました
【記事番号】 1065 (1034)
【日時】05/04/15 21:33
【発言者】joker
【リンク】http://www.atsmile.com/jw/

▼m.kさん：
>txtで保存した時、ﾌｧｲﾙ名の拡張子は除けないでしょうか？

ファイル名と種類（拡張子）を分けるようにしました。

>ﾒﾓ欄には現在、製品名しか記入してませんでしたので、ﾒﾓ欄に”製品名”と”製作数”を記入するとtab区切りが無い為、ｴｸｾﾙでは同じｾﾙ内になってしまいます。ﾒﾓ欄の表記方法でうまく区切る方法はないでしょうか？

２段表示なのを、１行で表示しています。
これを２つに分ける予定はありません。

Indexへ
(1065)←【1038】→(1109)
------------------------
【タイトル】Re(1):ファイル名を　図番_製品名_製作数.jww
【記事番号】 1038 (1013)
【日時】05/04/15 11:37
【発言者】コジマ

▼m.kさん：
>皆さん、教えてください。
>私はJWWを機械設計に用いていまして、設計図面の表（図番表）を"ｴｸｾﾙ"で作成しています。
>その表を作成するのにJWW上に記入している図番や製作数をｺﾋﾟｰで貼付けして、1ﾌｧｲﾙごとに空け閉めしています。（手入力は間違うかもしれないので...）
>この作業が結構面倒で困っています。

ファイル名を　図番_製品名_製作数.jww とすれば、

以下の外変（バッチファイル・スクリプトファイル　各２部）で
その図面のあるフォルダ内の全てのjwwファイルを
図番、製品名、製作数に区切って、エクセルで表示します。

ファイル名が長すぎる時は、製品名をコード番号にする方法もあります。
（スクリプトを加工しなければなりませんが）

コピペ後、全角スペースを半角スペースに一括置換してください。

この外変の実行には　mswin32 版 Rubyのインストールが必要です。
以下で入手できます。
http://www61.tok2.com/home2/gravelroad/tips/install.html

◎バッチファイル（ファイル名書出.bat）

REM この図面のあるフォルダ内の全ファイル名を書出す
echo off
REM　#jww
REM　#cd
REM　#hf
REM　#h0
REM　#h/txt.bat
REM　#e
copy jwc_temp.txt temp.txt > nul
ruby -Ks ファイル名書出.rb temp.txt > jwc_temp.txt
pause

◎バッチファイル（txt.bat）

REM 表紙.txtを開く
echo off
REM　#jww
REM　#cd
REM　#hf
REM　#h0
REM　#e
copy jwc_temp.txt temp.txt > nul
ruby -Ks txt.rb　temp.txt
ECHO h#表紙.txtを開きました > jwc_temp.txt

◎スクリプトファイル（ファイル名書出.rb）

while ARGF.gets
　　　　case $_
　　　　　　　　when /^file/
　　　　　　　　　　　　xy=($_.chop).split("=")
　　　　　　　　　　　　paths=xy[1]
　　　　　　　　　　　　dirs=xy[1].split("\\")
　　　　　　　　　　　　path=dirs[0..-2].join("\/")
　　　　end
end

a=Dir.entries(path)
b=a.find_all{|x|x=~/.jww/}
c=b.sort
d=c.collect{|y|
　　　　if y=~/\_+/
　　　　　　　　e=y.split(/\_+/)
　　　　　　　　e.join("\t").delete(".jww")
　　　　else
　　　　　　　　y.delete(".jww")
　　　　end}
d.unshift("図面番号\t製品名\t製作数")

open(path+"/表紙.txt","w"){|f|
　　　　d.each{|item|f.puts(item)}
}

puts("h##{path}".gsub("\/","\\")+"\\表紙.txtを作成しました")

◎スクリプトファイル（txt.rb）

while ARGF.gets
　　　　case $_
　　　　　　　　when /^file/
　　　　　　　　　　　　xy=($_.chop).split("=")
　　　　　　　　　　　　paths=xy[1]
　　　　　　　　　　　　dirs=xy[1].split("\\")
　　　　　　　　　　　　path=dirs[0..-2].join("\/")
　　　　end
end

require 'win32ole'
excel = WIN32OLE.new('Excel.Application')
　　　　　　　　excel.visible = true
excel.workbooks.open(path+"/表紙.txt")

Indexへ
(1038)←【1109】//(1018)
------------------------
【タイトル】みなさん、ありがとうございます。
【記事番号】 1109 (1013)
【日時】05/04/18 12:23
【発言者】m.k m-kondou@purex.co.jp

返答、遅れてすみません。
みなさん、解答ありがとうございます。
数々のご解答のなかで joker さんの”JWsearch:Ver2.0”を使用させて頂きます。
（わざわざﾊﾞｰｼﾞｮﾝの変更までして頂いてありがとうございます）

これだと過去のﾌｧｲﾙを変更せずに使用できそうです。
また質問の際には、よろしくお願いします。