数値集計

指定文字種で作図された数値を集計する外部変形です。
対象文字は横文字、指定文字種以外は除外します。
指定文字種、行間は、ユーザー設定で指定してください。

2022.10.23  数値⇔文字変換時の誤差対策実施

@if(0==1) //数値集計
@echo off
REM #jww
REM #cd
REM #h3
REM #hc 範囲選択してください。
REM #0 位置を指定してください
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")
//ユーザー設定
cnn="cn3" //指定文字種
dh=3 //行間
tl="合計 " //タイトル
//初期設定
dq="\"" //ダブルコーテーション
sp=" " //スペース
sum=0 //初期値
x=0;y=0 //作図原点
dx=5;dy=0 //水平指定
n=0 //カウンタ
k=5 //小数点第5位
k=Math.pow(10,k) //累乗
/////jwc_temp.txt読込み
while (!r.AtEndOfLine){
line=r.ReadLine()
if(/hq/.test(line)){}
else if(/hs/.test(line)){
//各レイヤグループの尺度を配列に格納
hs=line.split(/\s+/)
for(i=0;i<=9;i++){hs[i]=hs[i+1]}
hs["a"]=hs[11];hs["b"]=hs[12];hs["c"]=hs[13]
hs["d"]=hs[14];hs["e"]=hs[15];hs["f"]=hs[16]
}
else if(/lg/.test(line)){
lg=line.substr(2) //レイヤグループ名(0～9、a～f)
s=hs[lg] //尺度(1/S)
}
//文字種取得
else if(/^cn/.test(line)){
cn=line.split(/\s+/)
cn=cn[0]
cnf=cn.substr(3,1)
if(cn==cnn){jd=1 //指定文字種
w.WriteLine(line)}
else if(cnf=="$"){ //フォント
if(n==0){
w.WriteLine(line)
n=n+1}
else{id=0}}
else{jd=0}} //他文字種
else if(/#/.test(line)){
w.WriteLine(line) //区切り
w.WriteLine("cc2")} //文字基点(右下)
//文字取得
else if(/^ch/.test(line)){
ch=line.split(/\s+/)
ch=ch[5];chn=ch.split(dq) //数値取得
chn=Number(chn[1]) //数値変換
err=msg(chn) //数値判定
val=["ch",x,y,dx,dy,dq+chn]
val=val.join(sp)
if(jd==1){
if(err=="OK"){
sum=sum+chn
w.WriteLine(val)
y=y-s*dh}
else{}} //数値以外
else{}}
//設定情報
else{w.WriteLine(line)}} //while
/////作図
if(sum==0){
w.WriteLine("h#数値がありません")
WScript.Quit(0)}else{}
sum=String(sum) //文字変換(端数
sum=Number(sum) //数値変換
sum=Math.round(sum*k)/k //四捨五入(第6位)
sum=["ch",x,y,dx,dy,dq+tl+sum]
sum=sum.join(sp)
w.WriteLine(sum)
//ユーザー定義関数
function msg(n){
if(isNaN(n)){
return "NG"} //NaN
else{ return "OK"}}
r.Close();w.close()