国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

統計字數

2019-11-18 17:50:47
字體：大 中 小
來源：轉載
供稿：網友
要準確地統計字數，可逐一將字符串轉換為ASCII碼，依據其值判斷是為中文字符還是英文字符。0——127之間的為大小寫字母及數字、半角標點符號、回車、換行等，中文字符的ASCII值則不在0——127之列了。這樣，純漢字的字數統計是很容易的，倒是英文的統計復雜，因為英文統計應以單詞為單位，而要判斷是否為單詞并不是簡單的事。我們可以這么處理：如果被檢測的字符為大小寫字母，則判斷其后面的字符是否為一個單詞的標志(如空格、標點符號、回車符等），如是，則判斷為一個單詞。
以下代碼能較準確地統計出TextBox控件中的中、英文字數和數字字符數，并將全部字節數(含各種控制符如回車等)也統計出來。適用于中英文編排環境。

'窗體級聲明
DimcAsLong,e_WordAsLong'中英文字數
DimNumAsLong,sAsLong'數字及全部字符數

'統計——
IfAsc(Mid$(Str,k 1,1))<=64Thene_word=e_word 1
IfAsc(Mid$(Str,k 1,1))>90AndAsc(Mid$(Str,k 1,1))<97Thene_word=e_word 1
IfAsc(Mid$(Str,k 1,1))>122Thene_word=e_word 1
IfAsc(Mid$(Str,k 1,1))=39OrAsc(Mid$(Str,k 1,1))=45Thene_word=e_word-1'是符號'或-時
ElseIfAsc(tmpStr)>=97AndAsc(tmpStr)<=122Then'大寫字母
IfAsc(Mid$(Str,k 1,1))<65Thene_word=e_word 1
IfAsc(Mid$(Str,k 1,1))>90AndAsc(Mid$(Str,k 1,1))<97Thene_word=e_word 1
IfAsc(Mid$(Str,k 1,1))>122Thene_word=e_word 1
IfAsc(Mid$(Str,k 1,1))=39OrAsc(Mid$(Str,k 1,1))=45Thene_word=e_word-1'是符號'或-時
ElseIfAsc(tmpStr)>=48AndAsc(tmpStr)<=57Then'阿拉伯數字數字
IfAsc(Mid$(Str,k 1,1))<48OrAsc(Mid$(Str,k 1,1))>57ThenNum=Num 1
ElseIfAsc(tmpStr)>127OrAsc(tmpStr)<0Then'中文字符
c=c 1
EndIf
Next

s=LenB(StrConv(Text1.Text,vbFromUnicode))'全部字符

MsgBox"本文共有："&vbCrLf&vbCrLf&"漢字字數:"&c&_
"個(含全角標點)"&vbCrLf&"英文單詞:"&e_word&"個(不含半角標點)"&vbCrLf&_
"數字:"&Num&"個"&vbCrLf&"全部字節:"&s&"個",vbInformation,"字數統計"

EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 湘潭县| 老河口市| 克拉玛依市| 江达县| 浏阳市| 叶城县| 五指山市| 宜兰市| 东阳市| 佛冈县| 阜阳市| 龙山县| 留坝县| 江达县| 临邑县| 化德县| 碌曲县| 平南县| 夏津县| 康定县| 翁牛特旗| 成安县| 丰顺县| 宁武县| 湘潭市| 自治县| 长顺县| 丰镇市| 洮南市| 绩溪县| 仁化县| 安福县| 翁源县| 柘荣县| 若羌县| 诸暨市| 枣庄市| 上杭县| 麻城市| 威信县| 平昌县|