欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

如何測試字符串的長度?

 更新時間:2006年11月16日 00:00:00   作者:  

如何測試字符串的長度?

Function CheckStringLength(txt)
     txt=trim(txt)
     x = len(txt)
     y = 0
     for ii = 1 to x
        if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then   

 ' 如果是中文.
            y = y + 2
        else
            y = y + 1
        end if
     next
     CheckStringLength = y

    End Function

相關(guān)文章

最新評論