怎么把txt文件里的两列分别读入两个text框 - 编程论坛

unsamesky2015-01-01 23:31

读取txt文件的方法有N多种，有Open语句，filesystemobject方法等等等等，最关键是理解任何其中一种方法，然后为自己所用，我比较喜欢filesystemobject方法里面的：ReadAll，一次性将所有数据读入到变量，然后自己可以随意处理数据，代码如下：

程序代码：

Private Sub Command1_Click()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.opentextfile("D:\22.txt")    '注意路径和文件名称
    Dim istr As String
    istr = f.readall
    arr = Split(istr, vbCrLf)

    Dim i As Integer
    For i = 0 To UBound(arr)
        brr = Split(arr(i), " ")   '以空格为分隔符
        If Text1 = "" Then
            Text1.Text = brr(0)    '取数组0位置的元素
            Text2.Text = brr(UBound(brr))    '取数组最大维的元素
        Else
            Text1.Text = Text1.Text & vbCrLf & brr(0)
            Text2.Text = Text2.Text & vbCrLf & brr(UBound(brr))
        End If
    Next
End Sub

Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
End Sub