请问怎么用StreamReader读取文件特定数据啊?

Question

x:5度  y:0.0871557427476582
x:10度  y:0.17364817766693
x:15度  y:0.258819045102521
x:20度  y:0.342020143325669
x:25度  y:0.422618261740699
我想读冒号后面的double型的数字,我用File.OpenText() 得到StreamReader以后不知道该怎么read,
或者不用StreamReader其他的更好读取方法是什么?

Answer 1

Dim TextLine As String
Dim ary() As String
Open "c:\a.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
    Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
    ary = Split(TextLine, "y:")
    Debug.Print ary(1) ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件

Answer 2

Dim SReadLine As Stream
Dim strArray As String()
SReadLine = File.OpenRead(“c：a.txt”)
Dim SrReadLine As StreamReader = New StreamReader(SReadLine, System.Text.Encoding.Default)
SrReadLine.BaseStream.Seek(0, SeekOrigin.Begin)
While (SrReadLine.Peek() > -1)
            strTemp = Replace(SrReadLine.ReadLine(), """", "")
            strArray = strTemp.Split("y:")'第一种方法
            strArray = Microsoft.VisualBasic.mid(strTemp,3,len(strTemp)-2) ‘第二种方法
End While
SrReadLine.Close()