如何在A文件中找到行首字为0的行，并复制到B文件中相同的行
编号：QA004321
建立日期: 2001年7月29日 最后修改日期：2001年7月29日
所属类别：
lzx:
操作系统: windows2000
编程工具: vb6
问题: 各位大哥：
请问，在VB中如何在A文件中找到行首字为0的行，并把该行复制到B文件中相同的行中去（如A文件中第3行首字0，就把该行复制到B文件的第3行中去）。反复直到A文件找完。
小弟先谢了！
水平: 中级
回答:
下面的这个例子采用的是Line Input逐行读入，比较慢，但容易理解。如果想要快速的方法，可以利用下面的思路并参考QA001860 "如何按行分割字符串"。在这个例子中我们假设A和B文件行数相同。
Open "A" For Input As 1
Open "B" For Input As 2
Open "TempB" For Output As 3
While Not Eof(1)
Line Input #1, s1
Line Input #2, s2
If Left(s1, 1) = "0" Then
Print #3, s1
Else
Print #3, s2
End If
Wend
Close 1
Close 2
Close 3
FileCopy "TempB", "B"
Kill "TempB"
此问题由李海回答。
| |
|
|
| |
|
|
