Jw_cad 相談室−その2 New

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

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

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


  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
57 / 351 ツリー    ←次へ | 前へ→

複数jwwファイルの図番(同位置の文字列)の一括変換 kubo 20/2/6(木) 10:30

Re:複数jwwファイルの図番(同位置の文字列)の一括... kubo 20/2/7(金) 15:52
Re:複数jwwファイルの図番(同位置の文字列)の一括... kojima 20/2/7(金) 21:40
Re:複数jwwファイルの図番(同位置の文字列)の一括... kubo 20/2/8(土) 17:53

Re:複数jwwファイルの図番(同位置の文字...
 kubo  - 20/2/7(金) 15:52 -
▼kojimaさん:

ありがとうございます。

R.Nさまのコメントも参考にして、実行することができました。

なお、できれば、「表題変更.txt」を置く位置は、外変のあるフォルダでは
なく、外変を実行するjwwデータのあるフォルダにしていただければ、
「表題変更.txt」の作成、変更がしやすいように思いました。

kojimaさま、ありがとうございました。
R.Nさま、ありがとうございました。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko@93.103.168.203.megaegg.ne.jp>
・ツリー全体表示

Re:複数jwwファイルの図番(同位置の文字...
 kojima  - 20/2/7(金) 21:40 -
>なお、できれば、「表題変更.txt」を置く位置は、外変のあるフォルダでは
>なく、外変を実行するjwwデータのあるフォルダにしていただければ、
>「表題変更.txt」の作成、変更がしやすいように思いました。

115行目から173行目を変更してください。

↓変更する部分

printf("表題変更.txtの編集は終了していますか? YES:1 NO:2\n")
i=STDIN.gets.chomp.to_i
unless i==1
system("notepad #{path}\\表題変更.txt")
end

moji_hash={}
f=open("#{path}\\表題変更.txt","r")
while f.gets
xy=$_.chomp.split("\t")
moji_hash[xy[0]]=xy[1]
end
f.close

$stdout=open("jwc_temp.txt","w")
x_a=[];y_a=[]
puts "hd"
while ARGF.gets
xy=$_.split
if xy[0]=~/^hq/
elsif xy[0]=~/^hzs/
p_x=xy[1].to_f
p_y=xy[2].to_f
elsif xy[0]=~/^file=/
siz=size(xy[0])
if siz==5
STDERR.puts("ファルが保存されていないのでフォルダ名が特定できません")
STDERR.puts("終了します")
exit
end
path_file=xy[0][5..-1]
path,file=File.split(path_file)
# path.gsub!("\\","/")
elsif xy[0]=~/^hp\d/
x_a<<xy[1].to_f
y_a<<xy[2].to_f
elsif xy[0]=~/^ch/
x_min=x_a.min;x_max=x_a.max
y_min=y_a.min;y_max=y_a.max
if $_=~/\"/
moji=$'.chomp
moji_zahyo=$`
end
x=xy[1].to_f;y=xy[2].to_f;
if x_min<x && x_max>x &&y_min<y && y_max>y
if moji_hash[moji]
printf("%s \"%s\n",moji_zahyo,moji_hash[moji])
else
print $_
end
else
print $_
end

else
print $_
end
end
$stdout.close


↓以下の文に変更

f=open("temp.txt","r")
while f.gets
xy=$_.split
if xy[0]=~/^file=/
siz=size(xy[0])
if siz==5
STDERR.puts("ファルが保存されていないのでフォルダ名が特定できません")
STDERR.puts("終了します")
exit
end
path_file=xy[0][5..-1]
path,file=File.split(path_file)
end
end
f.close
printf("表題変更.txtの編集は終了していますか? YES:1 NO:2\n")
i=STDIN.gets.chomp.to_i
unless i==1
system("notepad #{path}\\表題変更.txt")
end

moji_hash={}
f=open("#{path}\\表題変更.txt","r")
while f.gets
xy=$_.chomp.split("\t")
moji_hash[xy[0]]=xy[1]
end
f.close

$stdout=open("jwc_temp.txt","w")
x_a=[];y_a=[]
puts "hd"
while ARGF.gets
xy=$_.split
if xy[0]=~/^hq/
elsif xy[0]=~/^hzs/
p_x=xy[1].to_f
p_y=xy[2].to_f
elsif xy[0]=~/^hp\d/
x_a<<xy[1].to_f
y_a<<xy[2].to_f
elsif xy[0]=~/^ch/
x_min=x_a.min;x_max=x_a.max
y_min=y_a.min;y_max=y_a.max
if $_=~/\"/
moji=$'.chomp
moji_zahyo=$`
end
x=xy[1].to_f;y=xy[2].to_f;
if x_min<x && x_max>x &&y_min<y && y_max>y
if moji_hash[moji]
printf("%s \"%s\n",moji_zahyo,moji_hash[moji])
else
print $_
end
else
print $_
end

else
print $_
end
end
$stdout.close

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.102 Safari/537.36 Ed...@ai126149015073.54.access-internet.ne.jp>
・ツリー全体表示

Re:複数jwwファイルの図番(同位置の文字...
 kubo  - 20/2/8(土) 17:53 -
▼kojimaさん:

お世話になります。

修正をしていただき大変ありがとうございます。
「表題変更.txt」の確認・修正がしやすくなりました。

ありがとうございました。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko@93.103.168.203.megaegg.ne.jp>
・ツリー全体表示

57 / 351 ツリー    ←次へ | 前へ→
  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
 718104
ページ:  ┃  記事番号:  

C-BOARD Moyuku v1.03b3
Jw_cad Copyright (C)1997-2016 Jiro Shimizu & Yoshifumi Tanaka