如何取得有汉字和数字混合的字符串长度，要求汉字当两个字节？？？？

Question

如题

Answer 1

LenB(StrConv("文字abcd", vbFromUnicode))

Answer 2

Public Function Lench(ByVal TmpStr As String) As String
  Lench = LenB(StrConv(TmpStr, vbFromUnicode))
End Function

Answer 3

我写的函数    Function ByteLen(Str)
        Dim Length
        Length = 0
        For i = 1 To Len(Str)
            If (Asc(Mid(Str, i, 1)) < 0) Then
                Length = Length + 2
            Else
                Length = Length + 1
            End If
            ByteLen = Length
        Next
    End Function
    
    Function LeftByte(Str, Lens)
        Dim Length
        Length = 0
        For i = 1 To Len(Str)
            If (Asc(Mid(Str, i, 1)) < 0) Then
                Length = Length + 2
            Else
                Length = Length + 1
            End If
            If Length = Lens Then
                LeftByte = Left(Str, i)
                Exit Function
            ElseIf Length > Lens Then
                LeftByte = Left(Str, i - 1)
                Exit Function
            End If
        Next
    End Function

Answer 4

楼上的在vb里可以，但是LenB(StrConv("文字abcd", vbFromUnicode))为什么用在asp里面就错误？？

Answer 5

有这么复杂吗？直接LenB()就可以了吧