站內搜尋:Yahoo搜尋如果沒有給完整的網址,請在站內再搜尋一次!

2016-03-05

VBScript--中英文混合字元數的計算

在使用ASCII, Big5 ... 等編碼方式的環境下,可以使用以下簡單的函數功能,回傳指定字串的正確字元數。

Function LenC(strTXT)
           dim i,n
           n=0
           for i = 1 to len(strTXT)
                     if asc(mid(strTXT,i,1)) >=0 and asc(mid(strTXT,i,1)) <= 255 then
                                n = n + 1
                     else
                                n = n + 2
                     end if
           next
           LenC = n
End Function

沒有留言:

張貼留言