现有如下格式的文件：
a8
0.7 2.1 2.9 3.8 6.3 8.9 12.8 0p
2 5 12 13 12 14 15
0
0
a9
0.8 1.5 2.9 5.7 7.8 13.7 0p
2 5 12 13 14 15
0
0
a10
0.8 1.5 3.5 5.7 9.8 12.4 0p
2 5 12 13 14 15
0
0
a11
0.8 1.7 3.3 5.9 10.1 12.2 0p
2 5 12 13 14 15
0
0
我想要从这个文件中读取数据，从a*到a*之间为一个模块，然后可以根据a*找到这个模块，然后把0.8 1.5 3.5 5.7 9.8 12.4 0p这个行放到一个数组中，把2 5 12 13 14 15这个行放到另一个数组中，底下的0，0先不使用。
请问怎么用vb实现，望大虾指教一下！

[此贴子已经被作者于2007-8-5 12:08:59编辑过]

怎没没人来看一哈，帮我一哈我啊！

我也想知道这，高手都不来帮忙啊，版主也不来，新手最头痛的问题啊

难道没人呢管了吗？

Private Sub Command1_Click()
'引用 Microsoft Scripting Runtime
Dim ts As TextStream
Dim fs As FileSystemObject
Dim strLin As String
Dim v() As Variant
Dim i As Long

i = 0
Set fs = New FileSystemObject
Set ts = fs.OpenTextFile("d:\1.txt")
Do While Not ts.AtEndOfStream
strLin = ts.ReadLine
If strLin = "a8" Then

Do While Not ts.AtEndOfStream
strLin = ts.ReadLine
If Mid$(strLin, 1, 1) = "a" Then
Exit Do
Else
ReDim Preserve v(i)
v(i) = Split(strLin, " ")
i = i + 1
End If
Loop

End If
Loop
End Sub

例子写出来了，自己改吧

写东西应该先自己把思路想通。

想通了开始做，遇到有的地方解决不了就问百度。

百度不理你，再来论坛请人帮忙解决。

不然一直等也不是办法哦

[此贴子已经被作者于2007-8-5 14:12:03编辑过]

要的，谢谢你哈！

谢谢！基本看懂了，这应该算是一个脚本吧

呵呵.看懂就好哈

怎么就算个脚本了呢……不过的确算的