如何将文本文件的内容读入到一个字符串中

Question

Private Sub Command2_Click()
    Dim buf As String
    Dim tmp As String
    
    buf = ""
    Open "i:\2.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, tmp
        buf = buf & tmp
    Loop
    Debug.Print buf
    Close #1
End Sub

Answer 1

这样也成Private Sub Command2_Click()
    Dim buf As String
    
    Open "i:\2.txt" For Binary As #1
    buf = String(LOF(1), " ")
    Get #1, , buf
    
    buf = Replace(buf, vbCrLf, "")
    Debug.Print buf
    Close #1
End Sub