vb中，用Excel内容替换txt中指定部分的内容
txt含有如下的文本段：
INPUT 1
NAME "" LABEL 0.00 0.00
LINK 13 Q 800.000 COMPOSITION 1
TIME FROM 0.0 UNTIL 300.0
将整个一个这样的文本定义为一个文本段，txt中这样的文本段大概有i个。Excel中记录数为m个，每条记录可以生成一个上述的文本段。
要做的事情是：当i<=m时，将i个文本段替换为Excel中的内容。
当i>m时，将txt中的前m个文本段替换为Excel中的内容，并将txt中剩余的i-m个文本段删除。
求求各位老师帮忙！分数不多，还请谅解 VB Excel txt
[解决办法]
将Excel文件另存为.csv格式
然后问题变为：
用.csv文件的内容替换txt中指定部分的内容。
提醒：.csv文件是用逗号间隔列，换行间隔行的纯文本文件。
[解决办法]
文本文件的“修改”，实际上就是重新生成新文件。
所以，你的文件归结起来就是，文本文件是一定要重新生成的：
1 首先统计文件文件中和 Excel 表中的记录数。
2 首先用 Excel 中的信息写新文本文件。
3 如果原文本文件中还有多出的记录，逐条复制到新文件中。
可以用 ADO 数据库引擎作为外部数据库打开 Excel。文本文件的读入和搜索应该没有太多可说的。
[解决办法]
文本文件和EXCEL同时进行搜索，然后根据你的条件双循环然后进行核对替换。
