VBA中关于字符串长度的计算

lbpp

原帖由 winland 于 2010-2-20 15:37 发表
搞个自定义函数.
Function xLenB(strInput As String)
    Dim arr() As Byte
    arr = StrConv(strInput, vbFromUnicode)
    xLenB = UBound(arr) + 1
End Function

真牛，顶一个。

我也贴一个。

Function strLen(str As String) As Long

    Dim i As Long
    Dim lTemp As Long

    Dim lStringLen As Long
    lStringLen = Len(str)
    For i = 1 To lStringLen
        Dim sTemp As String
        sTemp = Asc(Mid(str, i, 1))
        If sTemp > 255 Or sTemp < 0 Then
            lTemp = lTemp + 2
        Else
            lTemp = lTemp + 1
        End If
    Next i

    strLen = lTemp

End Function

sparkdodo

原帖由 joforn 于 2010-2-20 16:11 发表
LenB(StrConv("北京上海123456.78，", vbFromUnicode))

高手啊，，非常感谢！

bmdsjxyw

留印记慢慢消化

HUA79100101

留印记慢慢消化

guangzhao17

受用了，找了很久，原来在这里。

jingliangwhr

新手学习了

jingliangwhr

标记学习

OALD

已经用到自己的小工具里，非常好用，谢谢！这么多年前就有了这么好的解决方案，ExcelHome真是宝藏！