VB中如何把一个txt文档中的内容写入多个txt？

夜雨霖铃发布于 2014-03-06 15:45， 462 次点击

具体内容是：
我有一个txt1，里面内容要按行写入八个txt，即第1,9,17...行写入一个txt，第2,10,18...行写入一个txt，以此类推。求各位大神帮忙

4 回复

owenlu19812014-03-06 16:57

没有测试，试试看
Open "c:\txt1.txt" for input as #1
For j = 2 to 9
    Open "c:\txt" & j & ".txt" for output as #j
Next j

i = 1
Do until EOF(1)
    Lineinput #1,A
    i = i + 1
    j = IIF(i mod 8 = 0,9,(i mod 8)+1)
    Print #j,A
Loop
For j = 1 to 9
    Close #j
Next j

[ 本帖最后由 owenlu1981 于 2014-3-7 08:29 编辑 ]

风吹过b2014-03-06 19:35

静态看2楼的代码。原理就是这样的。

一次性打开所有的这些文件，然后按你条件分别写入各个文件中去。

代码我也没去测试。

夜雨霖铃2014-03-06 21:21

回复 2楼 owenlu1981

非常感谢

夜雨霖铃2014-03-06 21:22

回复 3楼风吹过b

同样感谢你帮我