显示左边的n个字符(自动识别汉字)函数

发表日期：2001-9-1

rem 显示左边的n个字符(自动识别汉字)
Function LeftTrue(str,n)

      If len(str)<=n/2 Then
            LeftTrue=str
      Else
            Dim TStr
            Dim l,t,c
            Dim i
            l=len(str)
            t=l
            TStr=""
            t=0
            for i=1 to l
                  c=asc(mid(str,i,1))
                  If c<0 then c=c+65536
                  If c>255 then
                        t=t+2
                  Else
                        t=t+1
                  End If
                  If t>n Then exit for
                  TStr=TStr&(mid(str,i,1))
            next
            LeftTrue = TStr
      End If

End Function

购买网站空间(支持ASP/.NET/PHP)：送域名、送邮箱、更送1G U盘

上一篇：利用cookie收藏网站人气:9614
下一篇：怎样经由ADO来压缩Microsoft Access数据库人气:12785

浏览全部的内容 Dreamweaver插件下载网页广告代码祝你圣诞节快乐 2009年新年快乐