24小时热门版块排行榜    

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

刘昭然

新虫 (小有名气)

加油!


小木虫(金币+0.5):给个红包,谢谢回帖交流
我也是新手,提问时也是尽量表述的有深度
8楼2010-12-11 08:45: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的回帖

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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上合作单位盖章 +6 ssyjh 2026-08-27 9/450 2026-09-01 20:01 by huagongfeihu
[基金申请] 学科评审组评审是指会评吗? +4 瞬息宇宙 2026-08-31 4/200 2026-09-01 14:58 by jiaoxg
[论文投稿] 小白求助 投论文要求的highlights应该如何写 5+3 l1963982152 2026-08-29 4/200 2026-09-01 09:04 by 北京莱茵编辑
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +7 gdd2018 2026-08-28 12/600 2026-09-01 08:32 by 尼古拉斯小虫
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 中青基了要发朋友圈吗? +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
信息提示
请填处理意见