Private Sub Form_Load()
Dim CpDate As String
Open App.Path & "\books.txt" For Input As #1
CpDate = Input(LOF(1), 1)
Close #1
Text1.Text = Replace(Replace(CpDate, Chr(10), ""),Chr(32), "")
End Sub



如上两个图片，第一个是文本中的文件格式，我要把空格和换行符删除，变成纯字符串，弄了很久也不行，不知什么原因？请高手帮忙，谢谢！

那个应该是Tab吧？


那个应该是Tab吧？

Private Sub Form_Load()
Dim CpDate As String
Open App.Path & "\books.txt" For Input As #1
CpDate = Input(LOF(1), 1)
Close #1
Text1 = Replace(Replace(CpDate, vbTab, ""),vbCrLf, "")
End Sub

谢谢！这样可以了，实在不好意思，总麻烦您！VB学起来挺难的。

慢慢来……你发现没有你想象中难