24小时热门版块排行榜    

查看: 2677  |  回复: 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的回帖

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的回帖
查看全部 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的回帖

yhwsmile

金虫 (小有名气)

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


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

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

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

恩,谢了~~~重新编辑了,把程序也附上去了~~~
5楼2010-09-21 09:57:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 梦想 +5 myrtle 2026-08-26 5/250 2026-08-31 14:40 by hahaboy
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-31 11:51 by xiangy672
[基金申请] 国社科又开始会评了,不知道这次命运如何 +6 雨打竹帘 2026-08-30 10/500 2026-08-31 09:29 by huixian257
[基金申请] 能否申诉? +6 echo8914667 2026-08-30 7/350 2026-08-31 08:41 by kingkocxr
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 出来了 +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
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
信息提示
请填处理意见