我在将文本导出到记事本时遇到问题。我曾经adwriteline
表示每个文件,但是当文件中包含带有换行符或类似“¶”的文本时,代码出错了。问题是在我的电脑上,这条新行被导入到记事本中(更不用说这个导出的不可见新行已成功导入)但是当我在其他电脑上尝试时,新行是可见的。因此,产生错误。
谢谢并恭祝安康。
编辑:
当导出的文本在其句子中有新行时发生错误
出口:
adoStreamExport.WriteText Filepath &"' '" & child.Height & "' '" & child.Width, adWriteLine
进口:
fileIn = Split(Replace(adoStreamImport.ReadText, vbCrLf, "' '"), "' '")
scanText fileIn(indexCount), fileIn(indexCount + 2), fileIn(indexCount + 3)
Case "Text" SetValue value, value2, value3