 | ■No33916に返信(ＪＩＮＪＩＮさんの記事)
こんにちは。
> 又、ＪＷＣの様に図形グループ名を表示させるためには、フォルダー名を
> グループ名に変えるしか方法はないのでしょうか？ 宜しくお願いいたします。
JWCの図形グループ名は、図形フォルダー内のZU_NAME.DATというファイルで管理
されています。この中の名前を使ってフォルダーのリネームをすれば良いです。
たぶん一度だけ使えば用済みですがリネームコマンドを吐くスクリプトを作成し
ました。
リネーム後のフォルダ名は、《図形**》グループ名となります。
リネームの為のバッチファイルを吐くスクリプトになっています。
使用説明は別にコメントします。
三五六
下線次行以降をコピーして、ZuRename.awk という名前で保存してください。
------------------------- 8< ------------------------
## ZuRename.awk #
#
# jwc図形フォルダ名→jww用にリネームするためのコマンドを吐くawk
#
# 動作確認方法
# DIR /B /S ZUKEI_* | jgawk -f ZuRename.awk
#
# バッチファイルへ書き出す
# DIR /B /S ZUKEI_* | jgawk -f ZuRename.awk > ren1.bat
#
# バッチファイルの内容確認
# type ren1.bat
#
# バッチファイルの実行
# ren1
#
/^[A-Z]:..*ZUKEI_..$/{
so = $0;
file = so "\\ZU_NAME.DAT";
n=split(so,B,/\\/);
split(B[n],C,/_/);
no=sprintf("%2d",C[2]);
gsub(/ /,"_",no);
$0="";
getline < file;
if($0 == ""){close(file);next;}
close(file);
split($0,A,/\0\0*/);
gsub(/[\\\/:\*\?\"<>]/,"_",A[1]);
sub(/ *$/,"",A[1]);
print "ren" , "\"" so "\"" , "\"《図形" no "》" A[1] "\"";
}
|
