Jw_cad 情報交換室−その３
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
 |
 |
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 |
|
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
|
momochi - 25/11/28(金) 20:40 - |
下記はカンマ付加バージョンです。
文字の中に含まれる「3桁以上の数字」を自動で見つけてカンマを打ちます。
6000 → 6,000
12345678 → 12,345,678
L=1500 → L=1,500 （文字混じりでも数字部分だけ変換します）
----------------------------------------
【文字】カンマ付加.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
# 数字の3桁区切りにカンマを入れる正規表現
# 数字(d)の後ろに、3つの数字の塊が1つ以上続き、その先は数字ではない場所にカンマを入れる
moji = moji.gsub(/(\d)(?=(\d{3})+(?!\d))/, '\1,')
# データを再結合して出力
moji2 = "\"" + moji + "\n"
out_moji = ([data[0],data[1],data[2],data[3],data[4],moji2]).join(" ")
print out_moji
else
# その他のデータはそのまま出力
print $_
end
end
文字の中に含まれる「3桁以上の数字」を自動で見つけてカンマを打ちます。
6000 → 6,000
12345678 → 12,345,678
L=1500 → L=1,500 （文字混じりでも数字部分だけ変換します）
----------------------------------------
【文字】カンマ付加.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
# 数字の3桁区切りにカンマを入れる正規表現
# 数字(d)の後ろに、3つの数字の塊が1つ以上続き、その先は数字ではない場所にカンマを入れる
moji = moji.gsub(/(\d)(?=(\d{3})+(?!\d))/, '\1,')
# データを再結合して出力
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
|
いっち - 25/12/3(水) 8:33 - |
▼momochiさん：
>興味のある方はお試し下さい。
>L=1500 → L=1,500 （文字混じりでも数字部分だけ変換します）
との事なので、試してみました。
--------------------------------------------------
私は今日12345円で文房具を購入しました。
レジで20000円を出したので、お釣りは7655円でした。
--------------------------------------------------
が、外部変形実行後
--------------------------------------------------
私は今日12,345円で文房具を購入しました。
レジで20,000円を出したので、お釣りは7,655円でした。
--------------------------------------------------
になりました。
普通に数値に３桁カンマを付ける（だけの）マクロ（など）と少し違うところが良いですね。
># 数字の3桁区切りにカンマを入れる正規表現
># 数字(d)の後ろに、3つの数字の塊が1つ以上続き、その先は数字ではない場所にカンマを入れる
>moji = moji.gsub(/(\d)(?=(\d{3})+(?!\d))/, '\1,')
なら、例えばテキストエディタ Mery の場合だと、
検索する文字列
(\d)(?=(\d{3})+(?!\d))
置換後の文字列
$1,
で、正規表現の置換が出来ました。
さらに、CSVエディタ cassava editor のマクロなら、
x=SelLeft;
for (y=Top;y<=Bottom;y++) {
[x,y]=[x,y].replaceAll(/(\d)(?=(\d{3})+(?!\d))/g, "$1,");
}
AdjustColWidth(x);
でも同じことが出来ました。
いろいろなところで利用できそうな、正規表現ですね。
>興味のある方はお試し下さい。
>L=1500 → L=1,500 （文字混じりでも数字部分だけ変換します）
との事なので、試してみました。
--------------------------------------------------
私は今日12345円で文房具を購入しました。
レジで20000円を出したので、お釣りは7655円でした。
--------------------------------------------------
が、外部変形実行後
--------------------------------------------------
私は今日12,345円で文房具を購入しました。
レジで20,000円を出したので、お釣りは7,655円でした。
--------------------------------------------------
になりました。
普通に数値に３桁カンマを付ける（だけの）マクロ（など）と少し違うところが良いですね。
># 数字の3桁区切りにカンマを入れる正規表現
># 数字(d)の後ろに、3つの数字の塊が1つ以上続き、その先は数字ではない場所にカンマを入れる
>moji = moji.gsub(/(\d)(?=(\d{3})+(?!\d))/, '\1,')
なら、例えばテキストエディタ Mery の場合だと、
検索する文字列
(\d)(?=(\d{3})+(?!\d))
置換後の文字列
$1,
で、正規表現の置換が出来ました。
さらに、CSVエディタ cassava editor のマクロなら、
x=SelLeft;
for (y=Top;y<=Bottom;y++) {
[x,y]=[x,y].replaceAll(/(\d)(?=(\d{3})+(?!\d))/g, "$1,");
}
AdjustColWidth(x);
でも同じことが出来ました。
いろいろなところで利用できそうな、正規表現ですね。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/142.0.0.0 Safari/537.36
|
momochi - 25/12/3(水) 18:21 - |
▼いっちさん：
プログラミングに詳しくないので、いろいろなソフトで応用できるのは初めて知りました。ありがとうございます。
プログラミングに詳しくないので、いろいろなソフトで応用できるのは初めて知りました。ありがとうございます。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/142.0.0.0 Safari/537.36