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

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】VB如何读取txt文件~~
131/2返回列表12下一页
查看: 2107  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭