写入文本时删除换行符

Posted 2023-04-13

【中文标题】写入文本时删除换行符

【英文标题】：Remove newline while writing to text

【发布时间】：2012-05-12 06:00:01

【问题描述】：

这个简单的宏会将文本“ABC”写入 E: 驱动器下的 temp.txt 文件。但是如果我们打开文本文件，注意到C后面有一个新行char。我们怎样才能摆脱它，让它在C之后结束

代码：

Sub ExamplePrint
i = FreeFile()
Open "e:\Temp.txt" For Output As i
Print #i, "ABC"
Close #i
end Sub 

在 vba 中，如果我们这样给出，换行符就不会出现。但是在 openoffice 中，整个文本文档都是空的

代码：

Print #i, "ABC"; 

【问题讨论】：

文本文件通常以换行符结尾，这听起来像是 OpenOffice 所期待的。为什么会有这样的问题？

格雷格，有没有办法去掉它？

您展示了如何使用 Print #i, "ABC"; 避免结束换行符。但是，您说这不适用于您的 OpenOffice。你要哪个？你不能同时拥有它。

嗨，我只想删除在开放式办公室末尾出现的换行符。打印 #i, "ABC";仅适用于 vba。

【参考方案1】：

试试 FileSystemObject：

http://msdn.microsoft.com/en-us/library/6ee7s9w2%28v=vs.85%29.aspx