vb.net 以读文本文件的方式对XML文件进行遍历

'    对XML文件按照文本文件的方式进行遍历

Private Sub checkFile_establishEntity(strFile As String)

       Dim reader AsTextReader = File.OpenText(strFile)    '  打开文件

       Dim ii AsInteger = 0   ' 行号

       Dim line AsString = reader.ReadLine()    '  读第一行

              While line <> ""

                       ii += 1          '   当前行号

                   'MessageBox.Show(line)      '    Line     <RICD>C10782999</RICD>

                      Dim strs AsString() = line.Split(">")

                      ' 假设输入的line为   <RICD>C10782999</RICD>

                      '                   <RICD   >    C10782999</RICD   >

                      '    拆分以后得到:  "<RICD",  "C10782999</RICD" , "" 

                    '                      0          1                2      ，  共3个字符串

                     If strs.Length > 2 Then    '  如果有两个以上字符串

                                '  说明这一行里边是有内容的，至少是类似于：    <RICD></RICD>   

                           ' MessageBox.Show(strs(0).Split("<")(1) & " --- " & strs(1).Split("</")(0))

                              Dim strName AsString = strs(0).Split("<")(1).Split(" ")(0)     '  取得元素名：    RICD

                              Dim strValue AsString = strs(1).Split("</")(0)             '  取得元素值： C10782999  

                              'MessageBox.Show(strName & " --- " & strValue)

                              '     注意：    元素值可能是空的

                    End If

                                  line = reader.ReadLine       ' 再读一行

        End While

        reader.Close()

       'MessageBox.Show(" checkFile1 OK,  该文件共有 " & ii & " 行")

 

End Sub