网络编程
位置:首页>> 网络编程>> Asp编程>> asp显示左边的n个字符自动识别汉字的函数

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

作者:探索者  发布时间:2007-09-13 12:16:00 

标签:汉字,字符

显示一个字符串的前几个字符,asp中我们一般使用left(str,n)来获取。left有个不足就是处理汉字和英文字符是一样的,没有区分开,这样就使得我们获取的字符串的长度不一致,影响了页面的统一美观。使用下面的函数就可以解决这个问题了,自动识别汉字.


 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 


 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com