应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】VB如何读取txt文件~~
131/2返回列表12下一页
查看: 2667  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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资料

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-09-20 16:25:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

magic7004

金虫 (职业作家)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
楼主作为新手，应该找本VB的基础书看一下
赞一下(1人) 回复此楼
流氓不可怕，可怕的是流氓有文化，有文化又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：就算不会解决问题，至少也要会提问题。
赞一下(2人) 回复此楼
流氓不可怕，可怕的是流氓有文化，有文化又BH的流氓无敌~~！
4楼2010-09-21 09:27:58
已阅   回复此楼   关注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的回帖

magic7004

金虫 (职业作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):辛苦了！ 2010-09-21 16:59:32
楼主，把InputLine改成Input就可以了。
VB会逐个数据读入，至于数据表示什么那就是楼主自己处理了。

比如 C:\a.txt 文件内容：
123 344
1223 5 6 73
3 5 82

程序：
Private Sub Command1_Click()
Dim n(9) , i As Integer
Open "c:\a.txt" For Input As #1
For i = 0 To 8
    Input #1, n(i)
Next i
Close #1
End Sub

执行完之后 n(0) ~ n(8)分别等于文件中的9个数。

[ Last edited by magic7004 on 2010-9-21 at 16:05 ]
赞一下(3人) 回复此楼
流氓不可怕，可怕的是流氓有文化，有文化又BH的流氓无敌~~！
6楼2010-09-21 16:03:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

stephenliu89

银虫 (小有名气)
不用VB的飘过~~~~~~~~~~~
赞一下 回复此楼
Email:stephenliu1989@163.com
7楼2010-09-22 23:52:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

刘昭然

新虫 (小有名气)

加油！

★
小木虫(金币+0.5):给个红包，谢谢回帖交流
我也是新手，提问时也是尽量表述的有深度
赞一下(1人) 回复此楼
8楼2010-12-11 08:45:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xj544

木虫 (小有名气)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助，欢迎常来程序语言版！ 2011-01-05 20:22:46
你用的是按照顺序文件来打开的。
可以按照打开随机文件的方式来打开，如：
open "d:\a.txt" for  random as #1 Len=5
len=5表示一条记录的长度为5，即以5为单位读取文件。
赞一下(2人) 回复此楼
9楼2011-01-01 00:25:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wuxiankeneng

新虫 (初入文坛)
★
小木虫(金币+0.5):给个红包，谢谢回帖
都绕弯子了，试了下，把你的每一个数据都以英文 逗号  分开，那么用INPUT 语句的时候，自然是分开读取的。
赞一下(1人) 回复此楼
10楼2012-03-08 16:21:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yhwsmile 的主题更新
131/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 Qj98d49dHFb9 2026-08-25 4/200 2026-08-26 03:08 by cNXvBfCpiZOM
[论文投稿] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 7K1CJE38xLG4 2026-08-25 4/200 2026-08-26 02:04 by cNXvBfCpiZOM
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？ +17 木水思豆 2026-08-25 20/1000 2026-08-26 01:26 by chengyan1220
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 明天应该可查了！？ +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 有没有大神帮我看看基金代码 28+4 1234567wang 2026-08-24 10/500 2026-08-25 19:15 by lfy8008
[基金申请] 放榜前的不淡定 20+4 snowwithsea 2026-08-19 19/950 2026-08-25 17:57 by chick875
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +17 医学老男孩 2026-08-20 22/1100 2026-08-25 15:36 by 医学老男孩
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
[教师之家] 导师吐槽：我怎么摊上了这么个极品研究生！ +3 苏东坡二世 2026-08-23 3/150 2026-08-25 10:35 by shisan1313
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +5 process2012 2026-08-23 7/350 2026-08-25 09:42 by huixian257
[基金申请] 今天基金会出结果吗？20260819 +17 kkkl_v 2026-08-19 18/900 2026-08-25 09:41 by windflowerwy
[基金申请] 我面上完蛋了 +13 且听虎啸 2026-08-20 14/700 2026-08-25 09:10 by mrkang
[基金申请] 能否退出参与的面上项目解除限项 +21 koalala 2026-08-24 24/1200 2026-08-24 19:25 by 家与远方
[基金申请] 让我中一个面上吧！ +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 今天放榜吗？ +15 布布和一二 2026-08-19 16/800 2026-08-23 09:55 by 张春生
[基金申请] 时间戳今天，20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
信息提示
关闭
请填处理意见
关闭