顯示左邊的(de)n個(gè)字符(自動識别漢字)函數,上海網頁設計提供技術支持
rem 顯示左邊的(de)n個(gè)字符(自動識别漢字)
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