[已解决]从TXT文件中随机取需要数据

hhaa999

随机取需要数据

最佳答案

月排行榜 / 总排行榜

Zipall

2014-5-9 08:43

1. Sub test()
   
2.     Dim i As Byte, j As Byte, a
   
3.     Randomize
   
4.     i = Int(12 * Rnd)
   
5.     Open ThisWorkbook.Path & "\200.txt" For Input Access Read As #1
   
6.     For j = 1 To i
   
7.         Line Input #1, a
   
8.     Next
   
9.     For j = 1 To 4
   
10.         Line Input #1, a
    
11.         Cells(j, 1).Resize(, 5) = Split(Replace(a, Chr$(9), ","), ",")
    
12.     Next
    
13.     Close #1
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

Zipall

1. Sub test()
   
2.     Dim i As Byte, j As Byte, a
   
3.     Randomize
   
4.     i = Int(12 * Rnd)
   
5.     Open ThisWorkbook.Path & "\200.txt" For Input Access Read As #1
   
6.     For j = 1 To i
   
7.         Line Input #1, a
   
8.     Next
   
9.     For j = 1 To 4
   
10.         Line Input #1, a
    
11.         Cells(j, 1).Resize(, 5) = Split(Replace(a, Chr$(9), ","), ",")
    
12.     Next
    
13.     Close #1
    
14. End Sub
    

复制代码

hhaa999

随机产生10行，修改那个地方呢，谢谢

Zipall

hhaa999 发表于 2014-5-9 12:58
随机产生10行，修改那个地方呢，谢谢

12和4要改.自己想想怎么改.

hhaa999

i = Int(12 * Rnd)，这个地方不明白，为什么要随机0-12的数呢，TXT文件中有15行，为什么12换成15就不行了

Zipall

hhaa999 发表于 2014-5-9 18:33
i = Int(12 * Rnd)，这个地方不明白，为什么要随机0-12的数呢，TXT文件中有15行，为什么12换成15就不行了
...

int(12*rnd)的区间是 [0,11]
因为你要取4行,所以这个最大值只能是11,否则会超过15.

hhaa999

TXT文件数据变化后，如何修改代码

Zipall

hhaa999 发表于 2014-5-10 08:50
TXT文件数据变化后，如何修改代码

这样的话split用不上了,可以用mid逐位取出来.