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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】VB如何读取txt文件~~
131/2返回列表12下一页
查看: 2706  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 两块石头 +7 阿美_Lml888 2026-09-03 10/500 2026-09-06 20:08 by 阿美_Lml888
[考博] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 j5mmowWXNWxv 2026-09-05 4/200 2026-09-06 19:21 by eObJPa4gWmp6
[博后之家] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 j5mmowWXNWxv 2026-09-05 6/300 2026-09-06 18:41 by eObJPa4gWmp6
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 jPDp0sc2B7zQ 2026-09-05 6/300 2026-09-06 18:21 by eObJPa4gWmp6
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 jPDp0sc2B7zQ 2026-09-05 4/200 2026-09-06 18:09 by eObJPa4gWmp6
[博后之家] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 jPDp0sc2B7zQ 2026-09-05 6/300 2026-09-06 18:09 by eObJPa4gWmp6
[论文投稿] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 jPDp0sc2B7zQ 2026-09-05 6/300 2026-09-06 18:01 by eObJPa4gWmp6
[找工作] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 jPDp0sc2B7zQ 2026-09-05 8/400 2026-09-06 17:49 by eObJPa4gWmp6
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 jPDp0sc2B7zQ 2026-09-05 6/300 2026-09-06 17:21 by eObJPa4gWmp6
[教师之家] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 jPDp0sc2B7zQ 2026-09-05 9/450 2026-09-06 17:09 by eObJPa4gWmp6
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 jPDp0sc2B7zQ 2026-09-04 8/400 2026-09-06 17:09 by eObJPa4gWmp6
[博后之家] 广西大学-广州大学招聘博士后 欢迎广大优秀人才！！！ +5 SCSIOyxguo 2026-09-03 8/400 2026-09-06 15:06 by 可爱小花朵
[考博] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 j5mmowWXNWxv 2026-09-05 4/200 2026-09-06 12:29 by eObJPa4gWmp6
[基金申请] 科研人应该花精力去思考如何解决问题，而不是去凝练问题 +10 瞬息宇宙 2026-09-01 19/950 2026-09-06 11:15 by jiangxuan2004
[博后之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 jPDp0sc2B7zQ 2026-09-05 8/400 2026-09-06 11:09 by eObJPa4gWmp6
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +6 7ZYIEW2YWn72 2026-09-04 9/450 2026-09-06 06:00 by E1iiBLMU2XnD
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +8 CRJ0Aq2FtVH0 2026-09-03 15/750 2026-09-06 05:48 by E1iiBLMU2XnD
[基金申请] 学科评审组评审是指会评吗？ +6 瞬息宇宙 2026-08-31 9/450 2026-09-05 13:11 by haizai99
[硕博家园] Ei源刊怎么投 +4 Fengshun9711 2026-09-04 4/200 2026-09-04 19:30 by 研途知予
[基金申请] 要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够 +9 瞬息宇宙 2026-08-31 17/850 2026-09-02 14:04 by anjeeshine
信息提示
关闭
请填处理意见
关闭