Jw_cad 相談室−その2 New

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

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

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


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

文字の小数点を丸めたい Ibuki 17/5/31(水) 10:01

Re:文字の小数点を丸めたい いっち 17/6/2(金) 17:50
Re:文字の小数点を丸めたい R.N 17/6/2(金) 19:21

Re:文字の小数点を丸めたい
 いっち  - 17/6/2(金) 17:50 -
▼R.Nさん:
R.Nさんこんばんは。

ご質問の内容がまとまって、アクセスしてみたら、あれ?
それでもご自身で作られたものとの、比較ぐらいには下記も使えるかもしれませんね。
まぁ、参考位に見てやってください。

尚、説明用のファイルは、別ファイルにしました。

----------------------------------

文字の小数点を丸める説明.txt
この下から↓

説明
この外部変形は、任意サイズの文字の小数点を丸めます。
丸めた結果、文字色も含めて通常の文字種と同じになった場合は、
その任意サイズの文字は、通常の文字種になります。


メニュー形式版文字の小数点を丸める.bat
この下から↓

@if(0==1) // 文字の小数点を丸める
@echo off
REM #jww
REM #cd
REM #hc(左)全グループ、(右)書込グループ
REM #hm項目|全グループ|書込グループ|BAT表示|外変説明|
REM #:1
REM #h3
REM #hc文字を選択してください
REM #g1
REM #zz
REM #bz
REM #e
REM #:2
REM #h3
REM #hc文字を選択してください
REM #g0
REM #zz
REM #bz
REM #e
REM #:3
REM #:4
REM #e
GOTO EXE-%1
:EXE-1
:EXE-2
cscript //nologo //e:jscript %0
goto:eof
:EXE-3
rem more コマンドは「スペースキー」で次のページを表示してください
more %0
pause
del jwc_temp.txt
goto:eof
:EXE-4
type 文字の小数点を丸める説明.txt | more
pause
del jwc_temp.txt
goto:eof
@end
function myround(cn) {
var temp = cn.split(/\s+/);
for (var i = 1; i < temp.length - 1; i++) {
temp[i] = Math.round(parseFloat(temp[i]) * 10) / 10;
}
return temp.join(" ");
}
blnflg = false;
with (new ActiveXObject("Scripting.FileSystemObject")) {
g = CreateTextFile("myfiles");
f = OpenTextFile("jwc_temp.txt");
while (!f.AtEndOfLine) {
line = f.ReadLine();
if (blnflg) {
if (/^cn0/ .test(line)) {
myss = (myround(line));
for (var j = 0; j < dic.Count; j++) {
if (strItems[j] == myss) {
myss = strKeys[j];
break;
}
}
g.WriteLine(myss);
} else {
g.WriteLine(line);
}
} else {
if (/^hq/ .test(line)) {
g.WriteLine("hd");
} else if (/^hcw/i.test(line)) {
hcw = line.split(/\s+/).slice(1, 11);
g.WriteLine(line);
} else if (/^hch/i.test(line)) {
hch = line.split(/\s+/).slice(1, 11);
g.WriteLine(line);
} else if (/^hcd/i.test(line)) {
hcd = line.split(/\s+/).slice(1, 11);
g.WriteLine(line);
} else if (/^hcc/i.test(line)) {
hcc = line.split(/\s+/).slice(1, 11);
g.WriteLine(line);
dic = new ActiveXObject("Scripting.Dictionary");
for (i = 0; i < hcw.length; i++) {
dic("cn" + (i + 1)) =
"cn0 " + hcw[i] + " " + hch[i] + " " + hcd[i] + " " + hcc[i];
}
strVBKeys = new VBArray(dic.Keys());
strVBItems = new VBArray(dic.Items());
strKeys = strVBKeys.toArray();
strItems = strVBItems.toArray();
blnflg = true;
} else {
g.WriteLine(line);
}
}
}
f.Close();
g.Close();
CopyFile("myfiles", "jwc_temp.txt")
DeleteFile("myfiles")
}

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.36@KD113151236026.ppp-bb.dion.ne.jp>
・ツリー全体表示

Re:文字の小数点を丸めたい
 R.N E-MAIL  - 17/6/2(金) 19:21 -
▼いっちさん:こんにちは、

説明不足かと思い、書き直していたら、レス頂いていました。
御面倒お掛けして、申し訳ありません。
確認しました、感謝です。


>【レス内容】

>スクリプトの改変、ありがとうございます。

>私は、皆さんに作って頂いた外変に、batメニューを追記して、使用してます。
>例えば、batメニュー項目に、batファイルのテキスト表示・スクリプト説明書き表示・フォルダー参照等---、クリック選択で編集・参照等できるようにしてます。
>(記述方法については、LAさんに教えて頂いたました)

>このjscriptの場合の、記述方法を教えて頂けないでしょうか。
>(上手くいかなくて)

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; rv:53.0) Gecko/20100101 Firefox/53.0@p651066-ipngn4001fukuhanazo.fukushima.ocn.ne.jp>
・ツリー全体表示

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

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