亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

如何測(cè)試字符串的長(zhǎng)度?

 更新時(shí)間:2006年11月16日 00:00:00   作者:  

如何測(cè)試字符串的長(zhǎng)度?

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)文章

最新評(píng)論