7491
社区成员
急等！！！我定义了一个文本文件，请问高手，用VB怎么读入到一个数组里！！多谢！
文本文件如下：
<begin>
<1>100<1>
<2>200<2>
<3>300<3>
<4>400<4>
<5>500<5>
<end>
在VB中定义了数组data1[4],data2[4]
我想把文件中的1，2，3，4，5读给数组data1[],把100，200，300，400，500读给数组data2[]
<begin>
<1>100<1>
<2>200<2>
<3>300<3>
<4>400<4>
<5>500<5>
<end>
在VB中定义了数组data1[4],data2[4]
我想把文件中的1，2，3，4，5读给数组data1[],把100，200，300，400，500读给数组data2[]
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
vikingleo 2003-08-08
MARK
mss 2003-05-10
文件名为：paramter.txt
请详细告诉我！
总之我是想把一个文件中的数据:一部分是档位，一部分是数据分别读入到两个数组中
因为我想可在文件中改数据，不用在VB中改代码！！就可实现档位所对应的数据的变化！
如我想给第一档：data[0]=1 所对应的data[0]=100想改为150
我就可把上面的：<1>100<1>改为<1>150<1>就行了
高手也给我想别的办法实现也行！
多谢！！！
请详细告诉我！
总之我是想把一个文件中的数据:一部分是档位，一部分是数据分别读入到两个数组中
因为我想可在文件中改数据，不用在VB中改代码！！就可实现档位所对应的数据的变化！
如我想给第一档：data[0]=1 所对应的data[0]=100想改为150
我就可把上面的：<1>100<1>改为<1>150<1>就行了
高手也给我想别的办法实现也行！
多谢！！！
rainstormmaster 2003-05-10
用数据库思想处理，即把文本文件看成数据库，速度要快得多。
mss 2003-05-10
用ini文件怎么编，或用xml文档
请高手告诉我！多谢！
多谢！多谢！多谢！
谢谢：上面的sxs69（）!我来试一下！！
请高手告诉我！多谢！
多谢！多谢！多谢！
谢谢：上面的sxs69（）!我来试一下！！
落伍者 2003-05-10
用ini文件，更方便
或者用xml文档。
或者用xml文档。
sxs69 2003-05-10
Private Sub Command1_Click()
Dim Data1(4) As Integer, data2(4) As Integer
Dim s As String, i As Integer
Open "d:\SXS\paramter.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Dim k As Integer, m As Integer, n As Integer
k = InStr(s, "<")
If k > 0 Then
m = InStr(k + 1, s, ">")
n = InStr(m + 1, s, "<")
If n > 0 Then
Data1(i) = Val(Mid(s, k + 1, m - k - 1))
data2(i) = Val(Mid(s, m + 1, n - m - 1))
i = i + 1
End If
End If
Loop
Close #1
For i = 0 To 4
Text1(i) = Data1(i): Text2(i) = data2(i)
Next
End Sub
Dim Data1(4) As Integer, data2(4) As Integer
Dim s As String, i As Integer
Open "d:\SXS\paramter.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Dim k As Integer, m As Integer, n As Integer
k = InStr(s, "<")
If k > 0 Then
m = InStr(k + 1, s, ">")
n = InStr(m + 1, s, "<")
If n > 0 Then
Data1(i) = Val(Mid(s, k + 1, m - k - 1))
data2(i) = Val(Mid(s, m + 1, n - m - 1))
i = i + 1
End If
End If
Loop
Close #1
For i = 0 To 4
Text1(i) = Data1(i): Text2(i) = data2(i)
Next
End Sub
发布本人整理的面试问题大全，为准备找工作的同行们尽一份力！希望大家多补充或回答！ 分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！ &...
Cb & Vc 经典大讨论（很长的一篇文章！）? 发信人: TopazY (清凉的水罐), 信区: C++Builder 标 题: Cb & Vc 经典大讨论（很长的一篇文章！）?发信站: BBS 水木清华站 (Thu Aug 31 12:26:49 2000) 查看问题及答案 序号 25 请对 Visual C++与Delphi/C++Builder...
实用!超强VC/MFC 常见问答收集 自编浏览器进入一个网页后,点一个链接后系统自动调用用IE打开网页而不是用自身浏览器打开网页。如何让窗口用我自己的浏览器打开？ 答 http://www.csdn.net/develop/read_article.asp?id=21702 控制新的...
C++数据类型转换(转)全! ///将i转换为字符串放入temp中,最后一个数字表示十进制 itoa(i,temp,2); ///按二进制方式转换 · 长整型(long) ltoa(l,temp,10); · 浮点数(float,double) 用fcvt可以完成转换,这是MSDN中的例子: ...
实用!超强VC/MFC 常见问答收集(下) 问：我想在网页的某个Table里插入一个新行，可是成功插入后却不显示。我用IHTMLTable->InsertRow()插入了一个新行，然 后IHTMLTableRow->insertCell()插入两个Cell,并设置好了高度，背景色，所有操作都成功了，但是...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
webservice 怎样返回一个自定义类 引用别人的问题：问题一：我遇到的问题是： 一个web服务器站点的某页面需要远程另一台数据库服务器中的数据，现打算用web service实现，在数据库服务器那端建立一个web服务项目，通过参数传递，执行SQL语句，查询...
vb/vb.net开发精粹(22) 关于 VB 里其它过程的值传递给 Function 函数体的问题？？？ VB更改Excel自定义纸张大小怎么操作呢？ 为什么我写的程序在VB环境下运行不报错，一编译运行就报错 数据导入EXCEL问题 发个预言贴, 过一年再回来看看...
利用自定义属性，定义枚举值的详细文本，完美解决 首先多谢两位给我的提示，发现在上个版本中所存在的问题：一、枚举类型的各个枚举值，应该属于“字段”。二、在获得枚举自定义属性时，只获得枚举类型，而不没有获得所属字段的自定义属性。完整工程下载现在解决方案...
