想用VB实现txt文件的批量读取处理。不知道代码怎么写，请高人帮忙。希望关键部分能加个注释有助于我的学习

显示全部楼层 · 2011-6-28 00:36:57

11 13 14 24 33
01 06 07 12 23
11 13 14 24 30
11 13 14 24 32
11 13 14 24 31
01 06 07 12 24
11 13 15 17 32
11 13 15 20 24
11 13 15 18 30
11 13 15 16 30
11 13 15 19 30
11 13 14 28 29
11 13 15 26 30
11 13 15 25 30
11 13 15 24 27
11 13 15 24 32
11 13 15 24 30
01 06 07 09 11
01 06 07 11 23
01 06 07 11 30
11 13 14 25 28
11 13 14 25 29
01 06 07 12 19
11 13 15 20 23
11 12 18 21 24
01 06 08 11 13
11 12 18 21 25
11 12 18 24 27
11 12 18 24 25
11 12 18 23 24
11 12 19 20 23
11 12 18 28 30
11 12 18 24 30
01 06 08 10 30
11 12 18 22 24
11 12 18 24 29
11 13 15 17 23
01 06 07 10 30
11 13 15 17 24
01 06 07 10 24
01 06 07 11 14
11 13 15 17 30
我现在有很多文本文件在不固定的文件夹内，txt格式，我想用VB程序批量读取每一个文本里的每个数字，这些数字之间都是空格隔开的并且都是两位的。然后将这些数字统计，统计每个数字出现的次数，我知道这些数字是包含1-33的，不超过这个范围。然后按照1-33中每一个数字出现的次数从大到小排列。输出到一个txt文本里，之前读取处理的文本每个文本等到排列数据在输出的文本里一个文本一行。
每个文本里的数字格式如上面，有5个数字一行和6个数字一行。最后能否将得到的排列数据显示在text控件里，然后加个输出按键，输出txt文本到不指定的文件夹。

千问 · 2011-6-28 00:36:57

调用下面函数就可以得到每个文件中各数字的排列顺序，其它的要求应该很容易了。Private Function zhzsucyg(myData As String) As StringDim myNum(33) As Integer, i As Integer, j As Integer, myTemp As String, myOutput As String, myMax As IntegermyMax = 0For i = 1 To 33myTemp = Format(i, "00")myNum(i) = (Len(myData) - Len(Replace(myData, myTemp, ""))) / 2myData ...

千问 · 2011-6-28 00:36:57

方法：1.Dir函数2.使用Split函数分离数据3.使用Val函数将字符数字转换成数值数字4.建立一个数组，然后利用一个自编Function实现重复次数统计...

千问 · 2011-6-28 00:36:57

我可以帮你写需要请加我百度HI吧...