| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 475 人关注过本帖
标题:怎么把txt文件里的两列分别读入两个text框
只看楼主 加入收藏
hancy2015
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-12-25
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:2 
怎么把txt文件里的两列分别读入两个text框
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 编辑 ]
搜索更多相关主题的帖子: 不胜感激 最好 不胜感激 最好 
2014-12-31 15:52
unsamesky
Rank: 2
等 级:论坛游民
帖 子:2
专家分:20
注 册:2015-1-1
收藏
得分:20 
读取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
2015-01-01 23:31
jqs888
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2015-1-9
收藏
得分:0 
谢谢,在学习中
2015-10-05 18:55
快速回复:怎么把txt文件里的两列分别读入两个text框
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017146 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved