| 查看: 2666 | 回复: 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资料 |
» 猜你喜欢
今天务委会开完了，明天出结果吗
已经有22人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？
已经有19人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
在坚冰还盖着北海的时候，我看到了怒放的梅花。
已经有9人回复
-
明天应该可查了！？
已经有6人回复
-
有没有大神帮我看看基金代码
已经有10人回复
-
放榜前的不淡定
已经有19人回复
-
某些机构，以效率低为荣，以效率低作为存在感
已经有10人回复
-
2026国自然函评费到账
已经有23人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 怎么实现txt文件中的列数转换
已经有14人回复
- 读取多个txt文件
已经有18人回复
- matlab如何读取未知行数，带头文件和字段名的txt文件
已经有3人回复
- 如何用matlab处理txt文件里的数据
已经有7人回复
- 超大型TXT数据处理办法，有木有？
已经有9人回复
- 【讨论】求助Matlab批量读取和处理一个文件夹里的txt文件
已经有9人回复
- 【求助】如何把TXT文件转化为矩阵
已经有4人回复
- 【求助】java读取txt文件里的数据【已完结】
已经有12人回复
- 请问如何将txt文件导入EXCEL，然后再将经EXCEL编辑的数据导回TXT？
已经有1人回复
- 请问如何实现在TXT文件中添加一列，要求要与原来的列平行？
已经有3人回复
- 【求助】请教VB txt文件输出如何让每个数据占用固定长度的字节~~~
已经有4人回复
- 【求助】如何用vb循环搜索txt文本内的数据
已经有4人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
- 【求助】ANSYS定义数组时，如何从TXT文件中导入？
已经有7人回复
2楼2010-09-20 20:26:55
yhwsmile
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1053.8
- 帖子: 160
- 在线: 16.2小时
- 虫号: 620196
- 注册: 2008-10-08
- 性别: GG
- 专业: 大气环境与全球气候变化
3楼2010-09-21 08:47:03
4楼2010-09-21 09:27:58
yhwsmile
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1053.8
- 帖子: 160
- 在线: 16.2小时
- 虫号: 620196
- 注册: 2008-10-08
- 性别: GG
- 专业: 大气环境与全球气候变化
5楼2010-09-21 09:57:21
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):辛苦了！ 2010-09-21 16:59:32
小木虫(金币+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 ] |
6楼2010-09-21 16:03:51
stephenliu89
银虫 (小有名气)
- 应助: 3 (幼儿园)
- 金币: 448.7
- 散金: 13
- 红花: 3
- 帖子: 183
- 在线: 25.7小时
- 虫号: 953342
- 注册: 2010-02-06
- 性别: GG
- 专业: 理论和计算化学
7楼2010-09-22 23:52:23
8楼2010-12-11 08:45:58
xj544
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 3649.3
- 散金: 20
- 红花: 1
- 帖子: 152
- 在线: 84.7小时
- 虫号: 945655
- 注册: 2010-01-20
- 专业: 理论和计算化学
9楼2011-01-01 00:25:42
10楼2012-03-08 16:21:13
20