24小时热门版块排行榜    

查看: 2676  |  回复: 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 ]
回复此楼

» 收录本帖的淘帖专辑推荐

vb资料

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhwsmile

金虫 (小有名气)

引用回帖:
Originally posted by magic7004 at 2010-09-21 09:27:58:


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

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

ps:就算不会解决问题,至少也要会提问题。

恩,谢了~~~重新编辑了,把程序也附上去了~~~
5楼2010-09-21 09:57:21
已阅   回复此楼   关注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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-31 11:51 by xiangy672
[文学芳草园] 梦想 +4 myrtle 2026-08-26 4/200 2026-08-31 08:43 by 逸域隐帆
[基金申请] 中青基了要发朋友圈吗? +6 349506619 2026-08-28 6/300 2026-08-31 08:43 by kingkocxr
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 面上意见出来了 +10 黄鸟于飞Chao 2026-08-29 19/950 2026-08-31 08:01 by blueearth171
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +6 gdd2018 2026-08-28 11/550 2026-08-30 08:58 by 超级无敌华子
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 怎么看青基中了没有啊 +5 叶九微 2026-08-26 5/250 2026-08-27 10:35 by l_zh2008
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 国合现在查不到了吗? +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
信息提示
请填处理意见