Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

　JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談室－その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言は過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

504 / 1500 ←次へ　｜　前へ→

ファイル名中の図面番号を全部ずらす

卯之介 - 23/5/16(火) 14:25 -

>　　　【例】 >　　　　・変更前 >　　　　　　A10_平面図_1階.jww >　　　　　　A11_平面図_基準階.jww > >　　　　・変更後 >　　　　　　A10_平面図_1階.jww >　　　　　　A11_平面図_2階.jww　←★追加 >　　　　　　A12_平面図_3階.jww 「inc.bat」を実行し、"11"を入力すると11以降を1増やします。拡張子jww、図面番号はファイル名の2文字目と3文字目に整数で書かれている場合の決め打ちのスクリプトです。図面と同じフォルダに置いて実行してください。【inc.bat】 set /p inc="挿入する番号を入力してください... " dir /b /O:-N *.jww >dir.txt jgawk -f inc.awk dir.txt %inc% 【inc.awk】 BEGIN{ inc=ARGV[2];ARGV[2]="" } { pre = substr($0,1,1) num = substr($0,2,2)+0 sfx = substr($0,4) if(inc<=num){ num++ rename=sprintf("ren %s %s%02d%s\n",$0,pre,num,sfx) system(rename) } } -------- 以下は番号を削除して間を詰めるスクリプトです。【dec.bat】 set /p dec="削除する番号を入力してください... " dir /b /O:N *.jww >dir.txt jgawk -f dec.awk dir.txt %dec% 【dec.awk】 BEGIN{ dec=ARGV[2];ARGV[2]="" } { pre = substr($0,1,1) num = substr($0,2,2)+0 sfx = substr($0,4) if(dec<num){ num-- rename=sprintf("ren %s %s%02d%s\n",$0,pre,num,sfx) system(rename) } }