使用VBA逐行操作文本文件

Question

我有一个文本文件，我必须使用Excel Worsheet中的某些值修改某些行。

我这样做的方式： 我在VBA中打开文本，然后循环每一行。如果该行符合我的标准，我将其替换并将其保存到新文件中，但如果它不感兴趣，我只需将该行保存到新文件而不进行任何修改。 问题是，当我保存与我无关的行时，我会松开这些行的格式 - 这只发生在包含至少一个数字的行中。

例如：这一行

1          2     3

将成为：

1
2
3

这是我循环每一行的方式：

Open Path For Input As #1 
Do Until EOF(1)     
Input #1, ReadData
If not flag then
File.WriteLine (ReadData) 
else

我做错了什么？

P.S。在我的程序中重建行不是一个解决方案，因为行的格式不同。

Answer 1

问题在于我使用了Input方式来读取文件。

所以当我使用Input方式时：“使用Input语句将数据值作为变量列表读取”。因此，我没有阅读整行，只读了第一个数字。

所以我使用了Line Input：使用Line Input语句，所有数据都被读取为单个字符串

这是我找到解决方案L：http://www.myengineeringworld.net/2012/06/excel-vba-read-and-write-text-files.html

的地方