求字符串长度的问题

yueyang

有没有这样的函数，直接可以得到字符串的长度，其中汉字长度为2，西文和数字为1.

yuandjing

恩，hsjzfling 兄的代码实现了楼主的功能
我也摘录一下喽

zhangj8826

sdlkfj3

walker1020

还应了毛主席的那句话：“自己动手，丰衣足食”。呵呵！

[ 本帖最后由 walker1020 于 2007-9-15 01:04 编辑 ]

yueyang

我明白了
多谢谢

hsjzfling

貌似没有这样的函数。。。写了个函数，应该对你有帮助～
Function GetLen(Str)
        Dim singleStr, i, iCount
        iCount = 0
        For i = 1 to len(Str)
                singleStr = mid(Str,i,1)
                If asc(singleStr) < 0 Then
                        iCount = iCount + 2
                Else
                        iCount = iCount + 1
                End If   
        Next
        GetLen = iCount
End Function

lengz

我想到一个办法，但是有点麻烦，因为汉字的ASC码<1
aa="aa你好"
num=0
max=Len(aa)

For i=1 To max
  If Asc(Mid(aa,i,1))>1Then
          num=num+1         
  Else
          num=num+2
  End If
Next

MsgBox num

lengz

len()不行的，它把汉字算作一个字符长度

fate

len()应该可以。。。