作 用：判斷字符串長度 參 數：需進行判斷的文本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
