VB.NET按一定需求读取文本,该怎么解决

VB.NET按一定需求读取文本

上图是文本文件的部分内容，我要读取的是POINT ID下方的那一块信息，将其存储到一个Pointlist集合当中。编程如下
Dim objFile As New StreamReader(TextBox1.Text)
        Dim str As String  
        Dim PointList As New ArrayList
       Do Until  objFile.EndOfStream 
            str=objFile.readline()
            If str.Substring(6, 8) = "POINT ID" Then
            str = objFile.ReadLine()
             Do While str.Substring(1, 12) = ""
               PointList.Add(CDbl(str.Substring(13, 2).Trim))
               For i As Integer = 0 To 5
                   PointList.Add(CDbl(str.Substring(27 + 15 * i, 13).Trim))
               Next
               str = objFile.ReadLine()
              Loop
             end if
       Loop
     TextBox2.Text = PointList(2)' 这是为了查看有没有存储成功


上述程序运行以后老是有问题，有没有大神能帮我改改啊~~~
------解决思路----------------------
你不把问题写出来

你意思 想帮助你的人按照你的图片  把txt 打字出来

然后再把你的程序 写出来

在运行一下，看看什么错误？

------解决思路----------------------
代码可以给，但是你的无满意结贴比较多，先结贴了再写给你
以免吃到苍蝇
------解决思路----------------------

引用:

Quote: 引用:

你不把问题写出来

你意思 想帮助你的人按照你的图片  把txt 打字出来

然后再把你的程序 写出来

在运行一下，看看什么错误？

运行了就这样了

  If str.Length>14 And str.Substring(6, 8) = "POINT ID" Then
------解决思路----------------------
用AndAlso，And是不短路的
不过这种文件还是Declare一个scanf来做方便