如何在a文件中找到行首字为0的行，并复制到b文件中相同的行.txt

VB技巧问答10000例 VB技巧问答10000例

下面的这个例子采用的是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" 
<END>