如何使用VBA修改文本文件并维护现有文本行的格式

Question

如何使用VBA修改文本文件，而不会丢失文本行的格式 - 我说的是至少有1个数字的行 例如：如果我在一行上有5个数字，则在新修改的文​​件中，所有这些数字都在5行上。 包含数字以外的字符的行很好！

如果您有3-4分钟，请使用VBA（包含至少包含2个数字的行）打开任何单个文本文件，并尝试使用下面发布的方法将其保存到新文件。

Open Path For Input As #1 
Do Until EOF(1)     
Input #1, ReadData
File.WriteLine (ReadData) 

问题：不保留带数字的行的格式。

原件：

1 2 3 4 5 6

修改：

1
2
3
4
5
6

有什么建议吗？

Answer 1

Writeline写一行（带换行符）。 您必须组装一个完整的行，然后将其写入文件：

dim s as string
s=data1 & " " & data2 & " " '...
file.writeline(s)

Answer 2

输入用于为各个变量赋值。就像逗号分隔值的记录一样。

尝试线路输入，

Open Path For Input As #1 
Do Until EOF(1)     
Line Input #1, ReadData
File.WriteLine (ReadData) 

more info here