VB 读取txt文件，并保存问题

显示全部楼层 · 2010-8-28 20:11:08

有一个txt文件，里面的内容是这样的
111
222
333
......
一共48行
我想VB做到这样，保存48个txt文件，文件名分别是1,txt；2,txt......48.txt；
这48个txt文件的内容分别是每一行的内容，就是1.txt里面的内容是111，2.txt里面的内容是222，一直到48.txt里面的内容是484848
请问代码怎么写，谢谢

千问 · 2010-8-28 20:11:08

Option Base 1Private Sub Command1_Click()Static i%Dim n As Long, a(48) As LongOpen "data.txt" For Input As #1'data.txt是存储那48行数据的文件名Do While Not EOF(1)
i = i + 1
Input #1, n
a(i) = nLoopClose #1For i = 1 To 48
FileName = i & ".txt"
Open FileName For Output As #1