24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2106  |  回复: 12
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

yhwsmile

金虫 (小有名气)

[交流] 【求助】VB如何读取txt文件~~已有9人参与

VB新手求助,现有站点温度数据,现在要将其转为二进制,请问各位大虾如何用vb读取数据文件~~数据格式如图所示,每年为一个数据模块,第一行为站点和年份,下面为日数据每年366个(每行30个数据,最后一行6个)数据到2010年~~~谢谢咯~~~下面是我试验的读数据部分程序:
我是想一个一个的把数据读出来,然后计算,但现在是一行一行的读~~


Option Explicit
Dim year(80, 100), n(100), i, j, k,As Integer
'Dim c(1 to 368) as integer
Dim oo, sta(80), c(1 To 368) As String

Sub ctm()

'For i = 1 To 80
i = 1
'Open "e:\extr\原始资料\hisctm\ctm" + sta(i) + ".dat" For Input As #1
Open "test.txt" For Input As #1

For k = 1 To 368
Input #1, c(k)
Debug.Print c(k)
Next k

End Sub


[ Last edited by yhwsmile on 2010-9-21 at 16:10 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kevinwan2011

金虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
如何指定读某一列的数据呢?
12楼2012-11-15 09:23:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 13 个回答

magic7004

金虫 (职业作家)


小木虫(金币+0.5):给个红包,谢谢回帖交流
楼主作为新手,应该找本VB的基础书看一下
流氓不可怕,可怕的是流氓有文化,有文化又BH的流氓无敌~~!
2楼2010-09-20 20:26:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhwsmile

金虫 (小有名气)

引用回帖:
Originally posted by magic7004 at 2010-09-20 20:26:55:
楼主作为新手,应该找本VB的基础书看一下

找了一些书,也上网查了读文件的方法,基本的会了,但对这个怎么弄还是不太明白,所以来求助咯~~
3楼2010-09-21 08:47:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

magic7004

金虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-09-21 11:06:52
引用回帖:
Originally posted by yhwsmile at 2010-09-21 08:47:03:

找了一些书,也上网查了读文件的方法,基本的会了,但对这个怎么弄还是不太明白,所以来求助咯~~

那就问不明白的那一点啊,比如你做了什么样的尝试,现在有什么问题。

如果自己都没尝试过,就很空泛的问怎么做,估计是没人回答你的。

ps:就算不会解决问题,至少也要会提问题。
流氓不可怕,可怕的是流氓有文化,有文化又BH的流氓无敌~~!
4楼2010-09-21 09:27:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复(可上传附件)
信息提示
请填处理意见