7,762
社区成员
发帖
与我相关
我的任务
分享
Dim strOldFile As String, strNewFile As String
Dim strLine() As String
Open "C:\test\testfile.txt" For Input As #1
Line Input #1, strOldFile
Close #1
strLine = Split(strOldFile, vbLf)
strNewFile = Join(strLine, vbCrLf)
Open "C:\test\newtestfile.txt" For Output As #1
Print #1, strNewFile
Close #1