一聚教程网:一个值得你收藏的教程网站

热门教程

检测含有中文字符串的实际长度

时间:2022-06-30 09:33:32 编辑:袖梨 来源:一聚教程网

"*************测字符串长度**************
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
"************* 截取字符串 **************
Function InterceptString(txt,length)
 txt=trim(txt)
 x = len(txt)
 y = 0
 if x >= 1 then
  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
   if y >= length then
    txt = left(trim(txt),ii) "字符串限长
    exit for
   end if
  next
  InterceptString = txt
 else
  InterceptString = ""
 end if
End Function

热门栏目