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

wzbcqc

现需在VBA中对字符串长度进行计算，VBA中函数LEN（）对汉字和数字都按单字节计算，LENB()对汉字和数字都按双字节计算，现在对混合字符串进行计算，要求汉字（全角字符）按双字节，数字（半角字符）按单字节进行计算。

如："北京上海123456.78，"得到得结果应为19，和工作表函数LENB（）的结果一致，请问如何做到？

dsmch

楼主理解有误，用lenb("北京上海123456.78")应该是17,全角半角格式，最好上传附件。

cflood

原帖由 dsmch 于 2010-2-20 15:00 发表
楼主理解有误，用lenb("北京上海123456.78")应该是17,全角半角格式，最好上传附件。

是19，还有逗号和空格呢。

wzbcqc

回2楼 ，："北京上海123456.78，"后面有个全角的"，"，没有空格，算2个字符，所以总字符数是19，求高手解答

winland

搞个自定义函数.
Function xLenB(strInput As String)
    Dim arr() As Byte
    arr = StrConv(strInput, vbFromUnicode)
    xLenB = UBound(arr) + 1
End Function

dsmch

原帖由 wzbcqc 于 2010-2-20 15:28 发表
回2楼 ，："北京上海123456.78，"后面有个全角的"，"，没有空格，算2个字符，所以总字符数是19，求高手解答

把文件压缩上传，手工做个结果示意一下。

wzbcqc

原帖由 dsmch 于 2010-2-20 15:37 发表

把文件压缩上传，手工做个结果示意一下。

就是双引号里面的字符串啦，工作表里面的公式就是 =lenb("北京上海123456.78，")
返回的结果是19

lipton

原帖由 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

学习了
另一种方法：

1. Sub test()
   
2. 
   
3. Dim s1 As String
   
4. Dim i As Integer
   
5. Dim sLen As Integer
   
6. Dim j As Integer
   
7. 
   
8. s1 = "北京上海123456.78，"
   
9. 
   
10. i = VBA.Len(s1)
    
11. For j = 1 To i
    
12.     If Asc(Mid(s1, j, 1)) < 0 Then
    
13.         sLen = sLen + 1
    
14.     End If
    
15. Next j
    
16. sLen = sLen + i
    
17. 
    
18. End Sub

复制代码

joforn

LenB(StrConv("北京上海123456.78，", vbFromUnicode))

wzbcqc

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

就是这个啦 最简单实用 非常感谢