Question

vb6统计次数最大的数

本人不会VB6,请写出代码并复制下面的举例，验证通过。只说方法者勿留脚印，谢谢合作。
如果下面“具体”里面的内容看不明白，请坚持看完，再看举例一定可以明白。
具体：
手动从excel复制粘贴数据到VB6的文本框，每一个单元格中的数据占据文本框的一行，该行容不下的要允许换行。数据被用小括号和逗号分开，小括号前面为数字，小括号内为该数字的次数，按一个按钮，计算次数最大的数字出现的次数。次数最大的数字已经在excel里事先整理好放在了最前面，现在就是要把它们挑出来，小括号和逗号均为英文输入法下的。请注意竖直方向的不同单元格是被用回车键（即换行）隔开，这个容易理解。但是水平方向上的不同单元格是用制表符隔开，而不是用空格!!万请注意!!!
同时满足下列4个条件：
凡是数据后面没有带小括号的，都是一次的，跳过；
数据后面带了小括号，但是是1次的，跳过；
如果某行仅有一个名次，即使名次大于一次也跳过；
如果某行有两个名次，但它们是1次和0次，跳过；

举例：
现有8行数据（实际上要统计几千行，这里为了方便，只截取了7行）：
2(13),6(8),1(11),8(6),04(5),3(4),5(3),7(2),9(0), 该行比较长，要允许换行。
3(15),5(10),278
057 该行057后面没带次数，它是1次的，跳过
13456(2), 该行除了2次的没有其它名次，跳过
1367(1),289(0), 该行虽有两个名次，但是它们是1次和0次，跳过
4569(2),1378(0)
15678(1) 数据后面带了小括号，但是是1次的，跳过
257(3),68

上面8行次数最大且符合要求的分别是2,3,4569,257,将它们出现的次数统计一下，注意这里说的次数已经不是上面8行数据小括号内的次数，而是2,3,4569,257,这些符合要求的数字的出现次数！在弹出的记事本里面的统计结果和格式是25(2),34679(1),018(0),
即数字2和5次数最大出现2次，3、4、6、7、9均出现1次，0、1、8没有在次数最大的地方出现。

Answer 1

Dim String_List As Variant

Private Sub Command1_Click()
Dim string_List_Temp As Variant, Out_Out_Out As String
For Each String_List_Out In String_List
If String_List_Out <> "" Then
string_List_Temp = Split(IIf(Mid(String_List_Out, Len(String_List_Out), 1) = ",", Mid(String_List_Out, 1, Len(String_List_Out) - 1), String_List_Out), ",") '返加
If UBound(string_List_Temp) >= 1 Then '检测长度是否大於零 可以进入
If Mid(string_List_Temp(UBound(string_List_Temp)), Len(string_List_Temp(UBound(string_List_Temp))), 1) = ")" Then '检测是否有括号
If LBound(string_List_Temp) + 1 = UBound(string_List_Temp) And Mid(string_List_Temp(UBound(string_List_Temp)), Len(string_List_Temp(UBound(string_List_Temp))) - 1, 1) = 0 Then '检测值是否为零
aaaa = False '为零时
Else
aaaa = True
End If
Else
aaaa = True
End If
Else
aaaa = False
End If
If aaaa Then '是否可以进入
Uint = -1: Ustr = "" '初始化
For i = LBound(string_List_Temp) To UBound(string_List_Temp)
If string_List_Temp(i) <> "" Then
ffff = Split(string_List_Temp(i), "(")
If Mid(ffff(UBound(ffff)), Len(ffff(UBound(ffff))), 1) = ")" Then
ffff(UBound(ffff)) = Int(Mid(ffff(UBound(ffff)), 1, Len(ffff(UBound(ffff))) - 1))
Else
ffff(UBound(ffff)) = ffff(UBound(ffff)) & vbCrLf & 1
ffff = Split(ffff(UBound(ffff)), vbCrLf)
End If
If Ustr = "" Then Ustr = ffff(LBound(ffff))
If Uint = -1 Then Uint = ffff(UBound(ffff))
If Uint = 0 Then
If LBound(string_List_Temp) + 1 = UBound(string_List_Temp) Or Mid(string_List_Temp(i), Len(string_List_Temp(i)) - 1, 1) = 0 Then
user = ""
Exit For
End If
End If
If Uint <= ffff(UBound(ffff)) Then
Uint = ffff(UBound(ffff))
Ustr = ffff(LBound(ffff))
End If
End If
Next i
Out_Out_Out = Out_Out_Out & Ustr & vbCrLf
Else
Out_Out_Out = Out_Out_Out & vbCrLf
End If
Else
Out_Out_Out = Out_Out_Out & vbCrLf
End If
Next
Text1.Text = Out_Out_Out
End Sub

Private Sub Form_Load()
MsgBox "text1的multiline一定要设为True,scrollbars要设为2"
Me.Caption = "列表判断"
Text1.Text = ""
Command1.Caption = "判断"
End Sub

Private Sub Text1_Change()
Text1.Text = Replace(Text1.Text, Chr("9"), vbCrLf)
Text1.Text = Replace(Text1.Text, Chr("11"), vbCrLf)
String_List = Split(Text1.Text, vbCrLf)
End Sub
Rem exe文件等下发给你