分别统计A列分别有多少汉字、数字、符号

ggmmlol

chuchenglai 发表于 2018-6-15 08:45
而且我测试了一下，节点里面好像还是算进去了。我希望id节点里面所有的不管市汉字、符号、数字，都不计入 ...

是有一句代码手误，br数组的下标应该是从0开始，下面的代码已经修正：

Sub test()
Dim br&()
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "<.*?>|\{.*?}"
ar = Sheet1.Range("A1").CurrentRegion.Offset(1).Resize(, 1)
r = UBound(ar)
tmp = Split("[一-隝],[0-9],[A-Za-z]", ",") '分类特征（汉字、数字、字母）
ReDim br(1 To r, 0 To 3)
For i = 1 To r - 1
    ss = reg.Replace(ar(i, 1), "") '排除节点字符，排除id节点中间内容
    l = Len(ss)
    For j = 1 To l
        s = Mid(ss, j, 1)
        For k = 0 To 2
            If s Like tmp(k) Then br(i, k) = br(i, k) + 1 '分类统计
        Next
    Next
    br(i, 3) = l - br(i, 0) - br(i, 1) - br(i, 2) '其它
Next
Sheet1.Range("D2").Resize(r - 1, 4) = br
End Sub

chuchenglai

ggmmlol 发表于 2018-6-15 12:14
是有一句代码手误，br数组的下标应该是从0开始，下面的代码已经修正：

Sub test()

有些里面id节点改了叫法，叫<guid></guid>，没有出现<id></id>我应该怎么改