[已解决]怎么样将 txt文件里所有换行符替换成空

linatt

求助啊代码要怎么写

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-17 12:36

1. Sub test()
   
2.     Dim strFile$
   
3.     Dim strPath$
   
4.     Dim strTemp$
   
5.     strPath = ThisWorkbook.Path & Application.PathSeparator
   
6.     strFile = "test.txt"
   
7.     Open strPath & strFile For Input As #1
   
8.     strTemp = StrConv(InputB(LOF(1), #1), vbUnicode)
   
9.     Close #1
   
10.     Open strPath & strFile & "-new.txt" For Output As #1
    
11.     strTemp = Replace(strTemp, vbCrLf, " ")
    
12.     Print #1, strTemp
    
13.     Close #1
    
14. End Sub

复制代码

写入的，不过是写入到了新文件。

跳转到最佳答案楼层

那么的帅

提供数据附件

hwc2ycy

1. Sub test()
   
2.     Dim strFile$
   
3.     Dim strPath$
   
4.     Dim strTemp$
   
5.     strPath = ThisWorkbook.Path & Application.PathSeparator
   
6.     strFile = "test.txt"
   
7.     Open strPath & strFile For Input As #1
   
8.     strTemp = StrConv(InputB(LOF(1), #1), vbUnicode)
   
9.     Close #1
   
10.     MsgBox strTemp
    
11.     MsgBox Replace(strTemp, vbCrLf, " ")
    
12. End Sub
    

复制代码

hwc2ycy

Desktop.rar (15.13 KB, 下载次数: 8)

2014-3-17 12:32 上传

点击文件名下载附件

hwc2ycy

代码只演示了把TXT里的换行符换成了空格，通过msgbox输出。
如果要在写回文件，只需要稍微改变即可。

hwc2ycy

1. Sub test()
   
2.     Dim strFile$
   
3.     Dim strPath$
   
4.     Dim strTemp$
   
5.     strPath = ThisWorkbook.Path & Application.PathSeparator
   
6.     strFile = "test.txt"
   
7.     Open strPath & strFile For Input As #1
   
8.     strTemp = StrConv(InputB(LOF(1), #1), vbUnicode)
   
9.     Close #1
   
10.     Open strPath & strFile & "-new.txt" For Output As #1
    
11.     strTemp = Replace(strTemp, vbCrLf, " ")
    
12.     Print #1, strTemp
    
13.     Close #1
    
14. End Sub

复制代码

写入的，不过是写入到了新文件。

linatt

hwc2ycy 发表于 2014-3-17 12:36
写入的，不过是写入到了新文件。

strpath这是做什么用的？

linatt

hwc2ycy 发表于 2014-3-17 12:36
写入的，不过是写入到了新文件。

运行时在十一行报错

hwc2ycy

linatt 发表于 2014-3-17 14:19
strpath这是做什么用的？

文件的位置。

hwc2ycy

linatt 发表于 2014-3-17 14:20
运行时在十一行报错

哪一行出错，是第二个代码么。