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

wzbcqc · 发表于 2010-2-20 14:31

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

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

dsmch · 发表于 2010-2-20 15:00

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

cflood · 发表于 2010-2-20 15:21

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

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

wzbcqc · 发表于 2010-2-20 15:28

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

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

dsmch · 发表于 2010-2-20 15:37

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

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

wzbcqc · 发表于 2010-2-20 15:52

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

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

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

lipton · 发表于 2010-2-20 15:52

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

学习了

另一种方法：

Sub test()
Dim s1 As String
Dim i As Integer
Dim sLen As Integer
Dim j As Integer
s1 = "北京上海123456.78，"
i = VBA.Len(s1)
For j = 1 To i
If Asc(Mid(s1, j, 1)) < 0 Then
sLen = sLen + 1
End If
Next j
sLen = sLen + i
End Sub

复制代码

joforn · 发表于 2010-2-20 16:11

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

wzbcqc · 发表于 2010-2-20 16:16

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

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

		自动登录	找回密码
密码			免费注册

[求助] VBA中关于字符串长度的计算