txt文件内容是这样子的：
1月1日   30.2
1月2日   35.345
1月3日   36.48
1月4日   29.11
……
然后我想在vb中设置两个text控件，text1里面显示第一列（时间），text2里面显示第二列（数据）。最好是一个commond控件控制，两个也可以，不知道论坛里的大神能否指点一下，小弟不胜感激！

[ 本帖最后由 hancy2015 于 2014-12-31 16:18 编辑 ]

读取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

谢谢，在学习中