你这个思路,看着很乱。没看太明白。
整体而言,就是字符串的对比。这个很简单。
取出字符可以用 mid命令, s=mid(a,i,j) 那么s就是a中间 i 到i+j这一段。
打开文件,逐行读取
Open "C:\1.txt" for input as #1
Do while not EOF(1)
line input #1, a '一次读入一行直到文件尾
Loop
close #1
写文件
Open "C:\2.txt" for output as #2
Print #2, a
close #2
只要你VB的基础能看得懂上面的语句,也写出if endif 和Do Loop。自己完全可以动手做,而且excel VBA就可以,不必打包成exe。