bod-idv-tw小書製作
2016-05-22
VBScript計算中英文混合字串的長度
用VBScript的Len函數,計算字串的長度,一個ASCII字元長度是1,但一個中文字的長度還是算1,自訂一個函數讓ASCII字元算1,中文字算2:
Function LenAB(strLen)
dim i,n
n=0
for i = 1 to Len(strLen)
if asc(mid(strLen,i,1)) >=0 and asc(mid(strLen,i,1)) <= 255 then
n = n + 1
else
n = n + 2
end if
next
LenAB = n
End Function
沒有留言:
張貼留言
‹
›
首頁
查看網路版
沒有留言:
張貼留言