Reading XML file - Printable Version

Code:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>

    <Table>

    <Product>

    <Product_id value="1"/>

    <Product_name value="Product 1"/>

    <Product_price value="1000"/>

    </Product>

    <Product>

    <Product_id value="2"/>

    <Product_name value="Product 2"/>

    <Product_price value="5000"/>

    </Product>

    </Table>.

Code:

Public Class Form1



    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load



        Dim reader As New System.IO.StreamReader("C:\Users\Brandon\Desktop\lol.txt") 'Read the text file



        Dim i As Integer = 0 'Keep track if the item is a category or a value

        For Each entry In reader.ReadToEnd.Split(Chr(34)) 'Split by quotation marks



            'Here we check to see if the value or category contains invalid symbols that are 

            'not necessarily pertinent to the information that we need to gather.

            'If the string contains these symbols, they are removed.

            If (entry.Contains("<") Or entry.Contains(">") Or entry.Contains(" ") Or entry.Contains("/") Or entry.Contains("\")) Then

                Try

                    entry = entry.Replace("<", "")

                    entry = entry.Replace(">", "")

                    entry = entry.Replace(" ", "")

                    entry = entry.Replace("/", "")

                    entry = entry.Replace("\", "")

                Catch ex As Exception

                    Continue For

                End Try

            End If





            If (i Mod 2 = 0) Then 'The item is a category

                ListBox1.Items.Add(entry)

            Else 'The item is a value

                ListBox2.Items.Add(entry)

            End If



            i += 1 'Increase the counter of the category determiner so we can keep track

        Next



    End Sub



    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        ListBox2.SelectedIndex = ListBox1.SelectedIndex

    End Sub

End Class