vb txt1文件内容写入到txt2指定位置

显示全部楼层 · 2010-5-14 14:48:26

将c:\txt1.txt的内容写入到c:\txt2.txt里的指定字符的下一行
比如txt1的内容为
1244
5323
fdhfgf
fgfhy5fgj4
446633
txt2的内容为
098766544
09875533
08765433
456778hgf
97543gm
现在要把txt1的内容写入到txt2里的下一行写入后把这行删除
最终的结果如下：
098766544
09875533
1244
5323
fdhfgf
fgfhy5fgj4
446633
08765433
456778hgf
97543gm
请高手写下完整的代码

千问 · 2010-5-14 14:48:26

Dim strA() As String, strB() As String
ReDim strA(1), strB(1)
BX1 = "d:\txt1.txt"
BX2 = "d:\txt2.txt"
Open BX1 For Input As #1
Do While Not EOF(1)
Line Input #1, strA(UBound(strA))
ReDim Preserve strA(UBound(strA) + 1)
Loop
Close #1
Open B

千问 · 2010-5-14 14:48:26

很简单的问题，instr就能解决