[RESOLVED] XML Parsing and counting

[onestarpro]

good day all I have a little issue with reading xml which i have not done before

Im trying to read an xml and load it into a list view(easy and done)

what i want to do is count wheather a category field says "cms" or says "php" thats it. what im trying to do is with the list view add the category once with the the count. looking like

application
------cms(15)
------php(5)
------blog(25)

here is a portion of my xml

<?xml version="1.0" encoding="UTF-8"?>
<product>
	<application>
		<packageid>PHPnuke</packageid>
        	<packageType>CMS</packageType>
        	<version>[1.0.40959.2]</version>
        	<feedURL>file://%ProgramFiles%\test\templates\</feedURL>
    		<image>http://phpnuke.org/images/logo.png</image>
	</application>
  	<application>
		<packageid>PHPCurcuit</packageid>
        	<packageType>blog</packageType>
        	<version>[1.0.40959.2]</version>
        	<feedURL>file://%ProgramFiles%\test\templates\</feedURL>
    		<image>http://phpnuke.org/images/logo.png</image>
  	</application>
	<application>
		<packageid>PHPCurcuit</packageid>
        	<packageType>php</packageType>
        	<version>[1.0.40959.2]</version>
        	<feedURL>file://%ProgramFiles%\test\templates\t</feedURL>
    		<image>http://phpnuke.org/images/logo.png</image>
	</application>
</product>

what i have so far

Dim lv As ListViewItem
        Dim xd As XDocument = XDocument.Load(pathToMain & "Recources\SitesGallery.xml")
        Dim appinfo = From info In xd.Descendants("application") _
                     Select New With _
                     { _
                        .packageid = info.Element("packageid").Value, _
                        .packageType = info.Element("packageType").Value, _
                        .version = info.Element("version").Value, _
                        .feedURL = info.Element("feedURL").Value, _
                        .image = info.Element("image").Value _
                     }
        lv = New ListViewItem()
        lv.Text = "All(" & xd.Elements("application").Nodes.Count & ")"
        Me.LVCategories.Items.Add(lv)


        For Each node In appinfo
            lv = New ListViewItem()
            lv.Text = node.category
            Me.LVCategories.Items.Add(lv)
        Next

please help if you can

thanks in advance

[onestarpro]

yeah no one aswers i do it myself this is now resolved

'read in xml for use
        Dim xd As XDocument = XDocument.Load(pathToMain & "Recources\SitesGallery.xml")
        Dim appinfo = From info In xd.Descendants("application") _
                     Select New With _
                     { _
                        .packageid = info.Element("packageid").Value, _
                        .packageType = info.Element("packageType").Value, _
                        .version = info.Element("version").Value, _
                        .feedURL = info.Element("feedURL").Value, _
                        .image = info.Element("image").Value _
                     }

        Dim group = appinfo.GroupBy(Function(value) value.packageType)

        Dim lv As ListViewItem
        Dim itm As ListViewItem

        lv = New ListViewItem()

        lv.Text = "All"

        Me.LVCategories.Items.Add(lv)

        With LVCategories
            For Each node In appinfo

                itm = .FindItemWithText(node.packageType, True, 0, True)
                If itm Is Nothing Then
                    lv = New ListViewItem()

                    For Each grp In group
                        If grp(0).packageType = node.packageType Then
                            lv.Text = node.packageType & " (" & grp.Count & ")"
                        End If
                    Next
                    Me.LVCategories.Items.Add(lv)

                End If

            Next
        End With
        LVCategories.Items.Item(0).Selected = True
        lv = Nothing
        itm = Nothing

you can take that to the bank ...