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

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

沒有留言:

張貼留言