Question

vb如何对一个txt文件进行逐行比较然后输出到一个新的txt文件

比如1.txt中有两行字符，分别是123 001007 ： 456 001adsff，我想将第一个txt文件中的每行001后面的字符开始全部删除，然后生成到新的文件2.txt，两行字符分别是123 ： 456.求教谢谢各位大侠

Answer 1

dim s as string, t() as string
open app.path & "\1.txt" for input as #1
open app.path & "\2.txt" for output as #2
do until eof(1)
line input #1,s
t=split(s," 001")
if ubound(t)>0 then print #1,t(0)
loop
close #2
close #1