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

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示左边的n个字符(自动识别汉字)函数

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 190 ::

收藏到网摘: n/a

利用cookie收藏网站怎样经由ADO来压缩Microsoft Access数据库

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

利用cookie收藏网站怎样经由ADO来压缩Microsoft Access数据库

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

评论 (0) All

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