« 円弧を円に変換 | トップページ | RGB取得 »

2022年7月 2日 (土)

一括文字サイズ変更

異なる文字色の文字種を、文字サイズだけを一括で変更する外部変形です。
変更する文字サイズは、ユーザー設定で、文字幅/文字高/文字間隔を
バッチファイルに記述してください。
操作は、範囲選択 → 左AM0時 「確定  基点(free)」
バッチファイルは、文字コードANSIで保存してください。

@if(0==1) //一括文字サイズ変更
@echo off
REM #jww
REM #cd
REM #h3 範囲内の「文字」データのみを選択
REM #hc 範囲選択してください
REM #e
cscript //nologo //e:jscript "%~f0" %*
copy temp.txt jwc_temp.txt
del temp.txt
goto:eof
@end
//ファイルオープン
fso=new ActiveXObject("Scripting.FileSystemObject")
r=fso.OpenTextFile("jwc_temp.txt")
w=fso.CreateTextFile("temp.txt")
//ユーザー設定
cw=3.5 //文字幅
ch=3.5 //文字高
ccd=0.5 //文字間隔
//初期設定
sp=" " //スペース
//
/////jwc_temp.txt読込み
while (!r.AtEndOfLine){
line=r.ReadLine()
//
if(/hq/.test(line)){
w.WriteLine("hd") //選択図形消去
}
//文字色取得
else if(/hcc/.test(line)){
cc=line.split(/\s+/)
w.WriteLine(line)
}
//文字サイズ変更
else if(/cn/.test(line)){
cn=line.split(/\s+/)
ccn=cn[0] //文字種取得
ccn=ccn.substr(2)
if(ccn.match(/\d/)){
if(ccn==0){ //任意サイズ文字
hc=cn[4]}
else{
hc=cc[ccn]}
//任意サイズ文字指定
ccn=["cn0",cw,ch,ccd,hc]
w.WriteLine(ccn.join(sp))
}
else{
w.WriteLine(line)
}
} //else if
//再作図
else{
w.WriteLine(line)
}
} //while
r.Close();w.close()

|

« 円弧を円に変換 | トップページ | RGB取得 »

コメント

コメントを書く



(ウェブ上には掲載しません)




« 円弧を円に変換 | トップページ | RGB取得 »