1有几个关于读取文本文件的问题？请各位高手帮帮忙！！！！

Question

Private Sub Command1_Click()
    Dim lastReplaceStr As String
    Dim curReplaceStr As String
    Dim str() As String
    Dim i As Long
    curReplaceStr = "asd    asdf          gfdg sdfsdfsgsdg"
    
    Do
      curReplaceStr = Replace(curReplaceStr, "  ", " ")
      If lastReplaceStr = curReplaceStr Then
        Exit Do
      Else
        lastReplaceStr = curReplaceStr
      End If
    Loop
    str = Split(curReplaceStr, " ")
    For i = LBound(str) To UBound(str)
        Debug.Print str(i)
    Next i
End Sub

Answer 1

非常感谢，blp(★★★)
不好意思，请告诉我给分的方法！