| rem 显示左边的n个字符(自动识别汉字) Function LeftTrue(str,n) If len(str)<=n/2 Then LeftTrue=str Else 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 |
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
