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

最新下载

热门教程

sp判断中西混字符串长度

时间:2022-07-02 22:35:52 编辑:袖梨 来源:一聚教程网


'==============================
 '函 数 名: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
 

热门栏目