作 用：判断字符串长度 参 数：需进行判断的文本Txt ============================== Private Function StringLength(Txt) Txt=Trim(Txt) x=Len(Txt) y=0 For ii = 1 To x If Asc(Mid(Txt,ii,1))<=2 or Asc(Mid(Txt,ii,1))>255 Then y=y + 2 Else y=y + 1 End If Next StringLength=y End Function
