有没有取的文本的长度的函数(不是len,也不是lenb)

徐阿鹏

打比方,中文是算两个字符,中文标点也是两个字符,但是英文标点是1个字符,类似word的,统计他们的字符数的函数

wang1999

'--------------------------------------------------

' Function:  LenByte           --中文名

' Purpose:   计算源字符串Str的长度(一个中文字符为2个字节长)

' Input:     输入参数        [in]Byval [out]Byref

'       [in]    str [String]: 源字符串

' Output:   LenByte [Long]: 源字符串的长度

' Information:

'       修改:   ｘｘ    2004/09/24      说明:

'--------------------------------------------------

Public Function LenByte(str) As Long

    Dim Length As Integer, i As Integer

    LenByte = 0

    If Not IsNull(str) Then                         '如不为空

        Length = Len(str)

        If Length Then                              '如长度不为零

            For i = 1 To Length

                If Asc(Mid(str, i, 1)) < 0 Then

                    LenByte = Int(LenByte) + 2

                Else

                    LenByte = Int(LenByte) + 1

                End If

            Next

        End If

    End If

End Function

以上我自己的代码，请参考！

sweetduck

不错