定义一个变量记录读到了第几行。
Dim?txt?As?String,?i?As?Long Open?"C:a1.txt"?For?Input?As?#1 Open?"C:a2.txt"?For?Output?As?#2 Do?While?Not?EOF(1) ??Line?Input?#1,?txt ??i?=?i?+?1 ??If?i?=?6?Then?txt?=?"f=4888" ?
?Print?#2,?txt Loop Close
定义一个变量记录读到了第几行。
Dim?txt?As?String,?i?As?Long Open?"C:a1.txt"?For?Input?As?#1 Open?"C:a2.txt"?For?Output?As?#2 Do?While?Not?EOF(1) ??Line?Input?#1,?txt ??i?=?i?+?1 ??If?i?=?6?Then?txt?=?"f=4888" ?
?Print?#2,?txt Loop Close