㈠ 編寫一段小程序，可以讀入一個英文的文本文件，顯示這個文件，並統計這個文件有多少個字元，多少個單詞，
在D盤建立一個delVB.txt的文本
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="robots" content="all" />
<meta name="author" content="" />
<meta name="Copyright" content="" />
<meta name="keywords" content="" />
<meta name="description" content="JS限制textarea輸入框輸入字數" />
<title>JS限制textarea輸入框輸入字數</title>
<SCRIPT language="javascript">
function ReadNote(){
var fso=new ActiveXObject("Scripting.FileSystemObject");
var filepath="d:/delVB.txt";
var file = fso.GetFile(filepath);
var ts = file.OpenAsTextStream(1,-2);
//var mynote = ts.ReadLine(); 讀取一行
var mynote=ts.ReadAll(); //讀取全部
ts.Close();
txtNumber(mynote);
}
function txtNumber(str){
var totalCount = 0;
for (var i=0; i<str.length; i++) {
var c = str.charCodeAt(i);
if ((c >= 0x0001 && c <= 0x007e) || (0xff60<=c && c<=0xff9f)) {
totalCount++; //數字或英文+1
}else {
totalCount+=2; //漢字+2
}
}
alert(totalCount/2);
return false;
}
</script>
<input type="button" onclick="ReadNote()" value="test">
</body>
</html>