VB 记录重复出现字符串

来源：百度知道 编辑：UC知道 时间：2024/06/05 12:13:05
变量a 中有要处理的字符串

a内容：

6954
2365
6954
2365
行数不定

要求计算出 所有行的每个4位数据 重复出现的次数

并且排出所有重复出现次数的 4位数据 高→低
还是不行．．．
我现在把所有数据存到了 pxhf(i) 中，pxhf(i) = 1 to h 'h为行数 有多少行 就有多少个4位字符串
现在通过pxhf(i) 计算出重复出现 前18位 重复字符串 该怎么改呢？

我新手`` 该怎么改呢？ 谢谢了！

Private Sub Form_Click()

'Dim pxhf(1 To 4) As String
'pxhf(1) = "1234"
'pxhf(2) = "1334"
'pxhf(3) = "1234"
'pxhf(4) = "1234"

Dim b() As Integer
ReDim b(1 To 2, 1 To 1)
b(1, 1) = pxhf(1)
b(2, 1) = 1
For i = 2 To UBound(pxhf)
n = UBound(b, 2)
For j = 1 To n
If b(1, j) = pxhf(i) Then Exit For
Next j
If j > n Then
ReDim Preserve b(1 To 2, 1 To j)
b(1, j) = pxhf(i)
End If
b(2, j) = b(2, j) + 1
Next i

n = UBound(b, 2)
For i = 1 To n
For j = n To i + 1 Step -1
If b(2, j - 1) < b(2, j) Then
t = b(1, j - 1): b(1, j - 1) = b(1, j): b(1, j) = t
t = b(2, j - 1): b(2, j - 1) = b(2, j): b(2, j) = t
End If
Next j
Print b(1, i); "重复"; b(2, i)
Next i
End Sub