急等!!!我定义了一个文本文件,请问高手,用VB怎么读入到一个数组里!!多谢!

mss 2003-05-10 12:10:19
文本文件如下:
<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[]

...全文
8 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过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>就行了
高手也给我想别的办法实现也行!
多谢!!!
回复
rainstormmaster 2003-05-10
用数据库思想处理,即把文本文件看成数据库,速度要快得多。
回复
mss 2003-05-10
用ini文件怎么编,或用xml文档
请高手告诉我!多谢!
多谢!多谢!多谢!
谢谢:上面的sxs69()!我来试一下!!
回复
落伍者 2003-05-10
用ini文件,更方便
或者用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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-10 12:10
社区公告
暂无公告