|
文字数・バイト数カウント
- ページ: Macro/投稿
- 作者: ひよこ枕?
- カテゴリー: js
- 投稿日: 2006-01-08 (日) 21:21:22
メッセージ
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
| | var CR = 0xd;
var LF = 0xa;
var oShell = new ActiveXObject("WScript.Shell");
var str,msg;
var c,prec=0;
var i;
var iSize = 0;
var i1Byte = 0;
var i2Byte = 0;
var iCRLF = 0;
var iCR = 0;
var iLF = 0;
str = Editor.GetSelectedString(0);
for(i = 0; i < str.length; ++i) {
c = str.charCodeAt(i);
if ( (c >= 0x0 && c <= 0x7d) || (c == 0xf8f0) || (c >= 0xff61 && c <= 0xff9f) || (c >= 0xf8f1 && c < 0xf8f4)) {
iSize += 1;
if (c == CR) {
iCR += 1;
} else if (c == LF) {
if (prec == CR) {
iCR -= 1; iCRLF += 1; } else {
iLF += 1;
}
} else {
i1Byte += 1;
}
} else {
iSize += 2;
i2Byte += 1;
}
prec = c; }
msg = "";
msg += "サイズ :" + iSize + "バイト\n";
msg += "半角文字:" + i1Byte + "文字\n" ;
msg += "全角文字:" + i2Byte + "文字\n" ;
if (iCR > 0) msg += "CR改行 :" + iCR + "文字\n" ;
if (iLF > 0) msg += "LF改行 :" + iLF + "文字\n" ;
if (iCRLF > 0) msg += "CRLF改行:" + iCRLF + "文字" ;
oShell.Popup(msg,0,"文字数カウント結果",0);
|
|
|