sp判断中西混字符串长度

2015-08-12 16:02:45来源:作者:人点击

sp判断中西混字符串长度

==============================
 函 数 名:StringLength
 作    用:判断字符串长度
 参    数:需进行判断的文本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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台