| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 389 人关注过本帖
标题:求助文件处理
只看楼主 加入收藏
夜雨霖铃
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-3-6
结帖率:50%
收藏
已结贴  问题点数:10 回复次数:2 
求助文件处理
文件内容如下:
53478    20131231210000    400000    1122700    -8.1
53486    20131231210000    402200    1134600    -4.9
53487    20131231210000    400500    1132500    -4.7
53488    20131231210000    400200    1133500    -5.4
...
第一列是站点,第二列是时间,第三列是纬度,第四列是经度,第五列是纬度。现在要把文件格式改成:站点、经度、纬度、温度值(注:经纬度按实际值53478 112.27  40.00  -14 ),我不知道vb怎样按列操作txt文件,刚学习vb,不大会,求各位大神帮忙
搜索更多相关主题的帖子: 经纬度 
2014-04-01 11:25
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:10 
假设原始文档名为 a.txt,存放在D:\,新文档名为b.txt
Dim NewLine As String
Private Sub Command1_Click()
Open "D:\a.txt" For Input As #1    '打开文件a.txt,读取数据
Open "D:\b.txt" For Output As #2    '打开文件b.txt,写入数据
If LOF(1) <> 0 Then
    Do While Not EOF(1)
        Line Input #1, NewLine
        NewLine = Replace(NewLine, " ", "")  '去除空格
        NewLine = Left(NewLine, 5) & vbTab & Mid(NewLine, 26, 3) & "." & Mid(NewLine, 30, 2) & vbTab & Mid(NewLine, 20, 2) & "." & Mid(NewLine, 23, 2) & vbTab & Mid(NewLine, 33)     '前提是各列长度固定
        Print #2, NewLine
    Loop
    Close #1
    Close #2
Else
    MsgBox "数据为空!"
End If
End Sub

[ 本帖最后由 owenlu1981 于 2014-4-1 15:09 编辑 ]
收到的鲜花
  • 夜雨霖铃2014-04-01 14:46 送鲜花  3朵   附言:我很赞同
2014-04-01 12:32
夜雨霖铃
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-3-6
收藏
得分:0 
原来可以这么简单,我一直想着把每一列放进一个数组再进行操作,结果做了好久都没做好,谢谢你
2014-04-01 14:44
快速回复:求助文件处理
数据加载中...
 
   



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

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