Office中国论坛/Access中国论坛

标题: 有没有取的文本的长度的函数(不是len,也不是lenb) [打印本页]

作者: 徐阿鹏 时间: 2005-3-10 19:52
标题: 有没有取的文本的长度的函数(不是len,也不是lenb)
打比方,中文是算两个字符,中文标点也是两个字符,但是英文标点是1个字符,类似word的,统计他们的字符数的函数

作者: wang1999 时间: 2005-3-10 20:56
'--------------------------------------------------

' 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 时间: 2005-3-11 18:41
不错

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)