显示左边的n个字符(自动识别汉字)函数,上海网页设计提供技术支持
rem 显示左边的n个字符(自动识别汉字)
Function LeftTrue(str,n)If len(str)<=n/2 ThenLeftTrue=strElseDim TStrDim l,t,cDim il=len(str)t=lTStr=""t=0for i=1 to lc=asc(mid(str,i,1))If c<0 then c=c+65536If c>255 thent=t+2Elset=t+1End IfIf t>n Then exit forTStr=TStr&(mid(str,i,1))nextLeftTrue = TStrEnd IfEnd Function
