专注于互联网--专注于架构

从n个字符串中:显示左边的n个字符

应一网友要求，特帖出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= [阅读全文] [PDF]