Jw_cad 情報交換室−その３
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
|
momochi - 25/11/28(金) 20:32 - |
Geminiで外変を作ってみました。
興味のある方はお試し下さい。
文字の中にカンマがあればすべて消えます
6,000 → 6000
12,345,678 → 12345678
-------------------------------------------
【文字】カンマ削除.bat
@REM 文字のカンマ(,)を削除
@echo off
REM #jww
REM #cd
REM #h1
REM #hc 文字または寸法値を範囲選択またはクリック(寸法図形対象外)
REM #g1
REM #zc 文字基点
REM #hr
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks "【文字】カンマ削除.rb" temp.txt > jwc_temp.txt
--------------------------------------------
【文字】カンマ削除.rb
print "hd\n"
while ARGF.gets
if $_ =~ /^hq/
# hqは無視
elsif $_ =~ /^c[hs]/ # 横文字(ch)または寸法値(cs)の場合
data = $_.split
data.collect!{ |item| item.to_s }
# ダブルクォーテーションの位置を探して文字部分を取得
no = $_.index(/"/)
moji = $_[no+1..-1].strip
# カンマを全て削除
moji = moji.delete(",")
# データを再結合して出力
moji2 = "\"" + moji + "\n"
out_moji = ([data[0],data[1],data[2],data[3],data[4],moji2]).join(" ")
print out_moji
else
# その他のデータはそのまま出力
print $_
end
end
興味のある方はお試し下さい。
文字の中にカンマがあればすべて消えます
6,000 → 6000
12,345,678 → 12345678
-------------------------------------------
【文字】カンマ削除.bat
@REM 文字のカンマ(,)を削除
@echo off
REM #jww
REM #cd
REM #h1
REM #hc 文字または寸法値を範囲選択またはクリック(寸法図形対象外)
REM #g1
REM #zc 文字基点
REM #hr
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks "【文字】カンマ削除.rb" temp.txt > jwc_temp.txt
--------------------------------------------
【文字】カンマ削除.rb
print "hd\n"
while ARGF.gets
if $_ =~ /^hq/
# hqは無視
elsif $_ =~ /^c[hs]/ # 横文字(ch)または寸法値(cs)の場合
data = $_.split
data.collect!{ |item| item.to_s }
# ダブルクォーテーションの位置を探して文字部分を取得
no = $_.index(/"/)
moji = $_[no+1..-1].strip
# カンマを全て削除
moji = moji.delete(",")
# データを再結合して出力
moji2 = "\"" + moji + "\n"
out_moji = ([data[0],data[1],data[2],data[3],data[4],moji2]).join(" ")
print out_moji
else
# その他のデータはそのまま出力
print $_
end
end
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/142.0.0.0 Safari/537.36
 |
 |
Geminiで外変を作ってみました（カンマ削除） momochi 25/11/28(金) 20:32 | ≪ |
|
 |
Re:Geminiで外変を作ってみました（カンマ削除） momochi 25/11/28(金) 20:40 |
|
|
Re:Geminiで外変を作ってみました（カンマ削除） いっち 25/12/3(水) 8:33 |
|
|
Re:Geminiで外変を作ってみました（カンマ削除） momochi 25/12/3(水) 18:21 |