测字符串长度函数

Function CheckStringLength(txt)
  txt=trim(txt)
  x = len(txt)
  y = 0
  for ii = 1 to x
    if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then "如果是汉字
     y = y + 2
    else
      y = y + 1
    end if
  next
  CheckStringLength = y
End Function