Linq to Xml sorting

[Crzyrio]

Hey,

I am attempting to sort an xml file by 2 variables the Signal name and the Size, here is what I have tried so far

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CStr([email protected]())

Which gives me the data sorted like so

Signal : 1051 Size : AWG 10
Signal : 1052 Size : AWG 10
Signal : 1053 Size : AWG 10
Signal : 1071 Size : AWG 10
Signal : 1071 Size : AWG 10
Signal : 1072 Size : AWG 16
Signal : 1073 Size : AWG 14
Signal : 1073 Size : AWG 14
Signal : 1081 Size : AWG 10
Signal : 1081 Size : AWG 10
Signal : 1082 Size : AWG 16
Signal : 1083 Size : AWG 14
Signal : 1083 Size : AWG 14
Signal : 1091 Size : AWG 10
Signal : 1091 Size : AWG 10
Signal : 1092 Size : AWG 10
Signal : 1093 Size : AWG 10
Signal : 1093 Size : AWG 10
Signal : 1141 Size : AWG 10
Signal : 1151 Size : AWG 16
Signal : 1151 Size : AWG 14
Signal : 1151 Size : AWG 14
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 16
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1182 Size : AWG 16
Signal : 1182 Size : AWG 14
Signal : 1182 Size : AWG 14
Signal : 1182 Size : AWG 14
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 16
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 16
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 2082 Size : AWG 10
Signal : 2082 Size : AWG 10
Signal : 2082 Size : AWG 10
Signal : 2091 Size : AWG 2/0
Signal : 2092 Size : AWG 2/0
Signal : 2092 Size : AWG 10
Signal : 2092 Size : AWG 10
Signal : 2092 Size : AWG 10
Signal : 2093 Size : AWG 10
Signal : 2121 Size : AWG 18
Signal : 2191 Size : AWG 10
Signal : 2201 Size : AWG 10
Signal : 2241 Size : AWG 18
Signal : 4021 Size : AWG 18
Signal : 4022 Size : AWG 18
Signal : 4031 Size : AWG 18
Signal : 4032 Size : AWG 18
Signal : 4053 Size : AWG 18
Signal : 4061 Size : AWG 18
Signal : 4081 Size : AWG 18
Signal : 4091 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4111 Size : AWG 18
Signal : 4111 Size : AWG 18
Signal : 4112 Size : AWG 18
Signal : 4113 Size : AWG 18
Signal : 4114 Size : AWG 18
Signal : 4192 Size : AWG 18
Signal : 4192 Size : AWG 18
Signal : 4193 Size : AWG 18
Signal : 4193 Size : AWG 18
Signal : 4236 Size : AWG 18
Signal : 4267 Size : AWG 18
Signal : 4267 Size : AWG 18
Signal : 4268 Size : AWG 18
Signal : 5021 Size : AWG 18
Signal : 7071 Size : AWG 18
Signal : 7072 Size : AWG 18
Signal : 7072 Size : AWG 18
Signal : 7082 Size : AWG 18
Signal : 7083 Size : AWG 18
Signal : 7084 Size : AWG 18
Signal : 7101 Size : AWG 18
Signal : 7102 Size : AWG 18
Signal : 7103 Size : AWG 18
Signal : 7104 Size : AWG 18
Signal : 7131 Size : AWG 18
Signal : 7132 Size : AWG 18
Signal : 7133 Size : AWG 18
Signal : 7134 Size : AWG 18
Signal : 7161 Size : AWG 18
Signal : 7192 Size : AWG 18
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10

and I tried this

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CStr([email protected]()), CStr(n.<Size>.Value.First())

and I gets this

Signal : 1051 Size : AWG 10
Signal : 1052 Size : AWG 10
Signal : 1053 Size : AWG 10
Signal : 1071 Size : AWG 10
Signal : 1071 Size : AWG 10
Signal : 1072 Size : AWG 16
Signal : 1073 Size : AWG 14
Signal : 1073 Size : AWG 14
Signal : 1081 Size : AWG 10
Signal : 1081 Size : AWG 10
Signal : 1082 Size : AWG 16
Signal : 1083 Size : AWG 14
Signal : 1083 Size : AWG 14
Signal : 1091 Size : AWG 10
Signal : 1091 Size : AWG 10
Signal : 1092 Size : AWG 10
Signal : 1093 Size : AWG 10
Signal : 1093 Size : AWG 10
Signal : 1141 Size : AWG 10
Signal : 1151 Size : AWG 16
Signal : 1151 Size : AWG 14
Signal : 1151 Size : AWG 14
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 16
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1182 Size : AWG 16
Signal : 1182 Size : AWG 14
Signal : 1182 Size : AWG 14
Signal : 1182 Size : AWG 14
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 16
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 16
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 2082 Size : AWG 10
Signal : 2082 Size : AWG 10
Signal : 2082 Size : AWG 10
Signal : 2091 Size : AWG 2/0
Signal : 2092 Size : AWG 2/0
Signal : 2092 Size : AWG 10
Signal : 2092 Size : AWG 10
Signal : 2092 Size : AWG 10
Signal : 2093 Size : AWG 10
Signal : 2121 Size : AWG 18
Signal : 2191 Size : AWG 10
Signal : 2201 Size : AWG 10
Signal : 2241 Size : AWG 18
Signal : 4021 Size : AWG 18
Signal : 4022 Size : AWG 18
Signal : 4031 Size : AWG 18
Signal : 4032 Size : AWG 18
Signal : 4053 Size : AWG 18
Signal : 4061 Size : AWG 18
Signal : 4081 Size : AWG 18
Signal : 4091 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4111 Size : AWG 18
Signal : 4111 Size : AWG 18
Signal : 4112 Size : AWG 18
Signal : 4113 Size : AWG 18
Signal : 4114 Size : AWG 18
Signal : 4192 Size : AWG 18
Signal : 4192 Size : AWG 18
Signal : 4193 Size : AWG 18
Signal : 4193 Size : AWG 18
Signal : 4236 Size : AWG 18
Signal : 4267 Size : AWG 18
Signal : 4267 Size : AWG 18
Signal : 4268 Size : AWG 18
Signal : 5021 Size : AWG 18
Signal : 7071 Size : AWG 18
Signal : 7072 Size : AWG 18
Signal : 7072 Size : AWG 18
Signal : 7082 Size : AWG 18
Signal : 7083 Size : AWG 18
Signal : 7084 Size : AWG 18
Signal : 7101 Size : AWG 18
Signal : 7102 Size : AWG 18
Signal : 7103 Size : AWG 18
Signal : 7104 Size : AWG 18
Signal : 7131 Size : AWG 18
Signal : 7132 Size : AWG 18
Signal : 7133 Size : AWG 18
Signal : 7134 Size : AWG 18
Signal : 7161 Size : AWG 18
Signal : 7192 Size : AWG 18
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10

In theory the 2nd try should work, I want it so that the signals are the primary and then the size is arranged in order within the signal... so

instead of

Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 16
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 16
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18

The Size AWG 16 should either be first or last and not in between, I do not know why it does not catch that ? :S

[.paul.]

try this:

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CInt(n.@Signal), CInt(n.<Size>.Value.Replace("AWG ", ""))

[Crzyrio]

try this:

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CInt(n.@Signal), CInt(n.<Size>.Value.Replace("AWG ", ""))

The only thing is, some of the wires are "AWG 2/0"

Will put together a quick function that gets just the numeric values I suppose! GOnna try it thanks!

EDIT: Really Close!

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CStr([email protected]()), CStr(GetNumber(n.<Size>.Value.Substring(3)))

For some reason, they are still apart. It does not make sense why the bolded ones are seperated

Signal : 1051 Size : AWG 10
Signal : 1052 Size : AWG 10
Signal : 1053 Size : AWG 10
Signal : 1071 Size : AWG 10
Signal : 1071 Size : AWG 10
Signal : 1081 Size : AWG 10
Signal : 1081 Size : AWG 10
Signal : 1091 Size : AWG 10
Signal : 1091 Size : AWG 10
Signal : 1092 Size : AWG 10
Signal : 1093 Size : AWG 10
Signal : 1093 Size : AWG 10
Signal : 1141 Size : AWG 10
Signal : 1073 Size : AWG 14
Signal : 1073 Size : AWG 14
Signal : 1083 Size : AWG 14
Signal : 1083 Size : AWG 14
Signal : 1151 Size : AWG 14
Signal : 1151 Size : AWG 14
Signal : 1182 Size : AWG 14
Signal : 1182 Size : AWG 14
Signal : 1182 Size : AWG 14
Signal : 1072 Size : AWG 16
Signal : 1082 Size : AWG 16
Signal : 1151 Size : AWG 16
Signal : 1171 Size : AWG 16
Signal : 1182 Size : AWG 16
Signal : 1221 Size : AWG 16
Signal : 1221 Size : AWG 16
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1171 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 1221 Size : AWG 18
Signal : 2091 Size : AWG 2/0
Signal : 2092 Size : AWG 2/0
Signal : 2082 Size : AWG 10
Signal : 2082 Size : AWG 10
Signal : 2082 Size : AWG 10
Signal : 2092 Size : AWG 10
Signal : 2092 Size : AWG 10
Signal : 2092 Size : AWG 10
Signal : 2093 Size : AWG 10
Signal : 2191 Size : AWG 10
Signal : 2201 Size : AWG 10
Signal : 2121 Size : AWG 18
Signal : 2241 Size : AWG 18
Signal : 4021 Size : AWG 18
Signal : 4022 Size : AWG 18
Signal : 4031 Size : AWG 18
Signal : 4032 Size : AWG 18
Signal : 4053 Size : AWG 18
Signal : 4061 Size : AWG 18
Signal : 4081 Size : AWG 18
Signal : 4091 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4101 Size : AWG 18
Signal : 4111 Size : AWG 18
Signal : 4111 Size : AWG 18
Signal : 4112 Size : AWG 18
Signal : 4113 Size : AWG 18
Signal : 4114 Size : AWG 18
Signal : 4192 Size : AWG 18
Signal : 4192 Size : AWG 18
Signal : 4193 Size : AWG 18
Signal : 4193 Size : AWG 18
Signal : 4236 Size : AWG 18
Signal : 4267 Size : AWG 18
Signal : 4267 Size : AWG 18
Signal : 4268 Size : AWG 18
Signal : 5021 Size : AWG 18
Signal : 7071 Size : AWG 18
Signal : 7072 Size : AWG 18
Signal : 7072 Size : AWG 18
Signal : 7082 Size : AWG 18
Signal : 7083 Size : AWG 18
Signal : 7084 Size : AWG 18
Signal : 7101 Size : AWG 18
Signal : 7102 Size : AWG 18
Signal : 7103 Size : AWG 18
Signal : 7104 Size : AWG 18
Signal : 7131 Size : AWG 18
Signal : 7132 Size : AWG 18
Signal : 7133 Size : AWG 18
Signal : 7134 Size : AWG 18
Signal : 7161 Size : AWG 18
Signal : 7192 Size : AWG 18
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10
Signal : GND Size : AWG 10

[IanRyder]

Hi,

Since you did not provide an example of the structure of your XML file I have created an assumed XML file in the form of:-

<?xml version="1.0" standalone="true"?>
<DocumentElement>
  <myXMLFile>
    <Signal>Signal : 1051</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1052</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1053</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1071</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1071</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1072</Signal>
    <Size>Size : AWG 16</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1073</Signal>
    <Size>Size : AWG 14</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1073</Signal>
    <Size>Size : AWG 14</Size>
  </myXMLFile>
</DocumentElement>

Using this structure you could then say:-

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  Dim myXMLDoc As XDocument = XDocument.Load("d:\temp2\convertedToXML.xml")
  Dim wiredatas = (From n In myXMLDoc.<DocumentElement>.<myXMLFile> Select strSignal = n.<Signal>.Value.ToString, strSize = n.<Size>.Value.ToString Order By strSignal, strSize)
 
  ListBox1.Items.AddRange(wiredatas.Select(Function(x) x.strsignal & " " & x.strSize).ToArray)
End Sub

Which will sort correctly (as per the rules of sorting strings) based on the first and second columns.

I am sure you should be able to modify this to accommodate your own XML file structure.

Hope that helps.

Cheers,

Ian

[.paul.]

EDIT: Really Close!

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CStr([email protected]()), CStr(GetNumber(n.<Size>.Value.Substring(3)))

For some reason, they are still apart. It does not make sense why the bolded ones are seperated

numeric sorting is completely different to string sorting. that's why I suggested integers

[Crzyrio]

numeric sorting is completely different to string sorting. that's why I suggested integers

Sorry about that , forgot to change it.

But with the Signal, I have times have signals that are GND and not numeric values, how would this work then?

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CStr([email protected]()), CInt(GetNumber(n.<Size>.Value.Substring(3)))

Hi,

Since you did not provide an example of the structure of your XML file I have created an assumed XML file in the form of:-

<?xml version="1.0" standalone="true"?>
<DocumentElement>
  <myXMLFile>
    <Signal>Signal : 1051</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1052</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1053</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1071</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1071</Signal>
    <Size>Size : AWG 10</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1072</Signal>
    <Size>Size : AWG 16</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1073</Signal>
    <Size>Size : AWG 14</Size>
  </myXMLFile>
  <myXMLFile>
    <Signal>Signal : 1073</Signal>
    <Size>Size : AWG 14</Size>
  </myXMLFile>
</DocumentElement>

Using this structure you could then say:-

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  Dim myXMLDoc As XDocument = XDocument.Load("d:\temp2\convertedToXML.xml")
  Dim wiredatas = (From n In myXMLDoc.<DocumentElement>.<myXMLFile> Select strSignal = n.<Signal>.Value.ToString, strSize = n.<Size>.Value.ToString Order By strSignal, strSize)
 
  ListBox1.Items.AddRange(wiredatas.Select(Function(x) x.strsignal & " " & x.strSize).ToArray)
End Sub

Which will sort correctly (as per the rules of sorting strings) based on the first and second columns.

I am sure you should be able to modify this to accommodate your own XML file structure.

Hope that helps.

Cheers,

Ian

Ill be sure to include the xml file next time :P

Thanks, I will just have to play around with it a little more.

I am actually using the query like this

Dim wiredatas = From n In doc.<Data>.<WireData>.<Signal_Name> Order By CInt(n.@Signal), CInt(GetNumber(n.<Size>.Value.Substring(3)))
              Select New WireData With {
                  .Signal = n.@Signal,
                  .FromDevice = n.<From_Device>.Value,
                  .ToDevice = n.<To_Device>.Value, .CoreName = (n.<Core_Name>.Value),
                  .WireColor = n.<Colour>.Value,
                  .WireSize = n.<Size>.Value,
                  .WireType = n.<Type>.Value}

[IanRyder]

Hi,

Rather than doing what you are showing, you can just set your Source Object to another variable in the Select Clause of the LINQ query. i.e:-

Dim wiredatas = (From n In myXMLDoc.<DocumentElement>.<myXMLFile> Select mySourceObject = n, strSignal = n.<Signal>.Value.ToString, strSize = n.<Size>.Value.ToString Order By strSignal, strSize)

Doing that, you get the sorting you need and then the information you want is accessed via the wiredatas array (to be specific a collection of IOrderedEnumerable(Of Anonymous Type)) through the original object of the LINQ query. i.e:-

MsgBox(wiredatas(0).mySourceObject.<Signal>.Value.ToString)

Hope that helps.

Cheers,

Ian

[MattP]

Here's a quick example sorting using a natural sort algorithm. Orig here: http://www.davekoelle.com/files/AlphanumComparator.cs

Imports System.Collections
Imports System.Text
 
Public Class NaturalComparator
    Implements IComparer(Of String)
 
    Private Enum ChunkType
        Alphanumeric
        Numeric
    End Enum
 
    Private Function InChunk(ch As Char, otherCh As Char) As Boolean
        Dim [type] As ChunkType = ChunkType.Alphanumeric
 
        If Char.IsDigit(otherCh) Then
            [type] = ChunkType.Numeric
        End If
 
        If ([type] = ChunkType.Alphanumeric AndAlso Char.IsDigit(ch)) OrElse ([type] = ChunkType.Numeric AndAlso Not Char.IsDigit(ch)) Then
            Return False
        End If
 
        Return True
    End Function
 
    Public Function Compare(x As String, y As String) As Integer Implements IComparer(Of String).Compare
        Dim s1 As String = TryCast(x, String)
        Dim s2 As String = TryCast(y, String)
 
        If s1 Is Nothing OrElse s1 Is Nothing Then
            Return 0
        End If
 
        Dim thisMarker As Integer = 0
        Dim thisNumericChunk As Integer = 0
        Dim thatMarker As Integer = 0
        Dim thatNumericChunk As Integer = 0
 
        While thisMarker < s1.Length OrElse thatMarker < s2.Length
            If thisMarker >= s1.Length Then
                Return -1
            ElseIf thatMarker >= s2.Length Then
                Return 1
            End If
 
            Dim thisCh = s1(thisMarker)
            Dim thatCh = s2(thatMarker)
 
            Dim thisChunk As New StringBuilder()
            Dim thatChunk As New StringBuilder()
 
            While (thisMarker < s1.Length) AndAlso (thisChunk.Length = 0 OrElse InChunk(thisCh, thisChunk(0)))
                thisChunk.Append(thisCh)
                thisMarker += 1
 
                If thisMarker < s1.Length Then
                    thisCh = s1(thisMarker)
                End If
            End While
 
            While (thatMarker < s2.Length) AndAlso (thatChunk.Length = 0 OrElse InChunk(thatCh, thatChunk(0)))
                thatChunk.Append(thatCh)
                thatMarker += 1
 
                If thatMarker < s2.Length Then
                    thatCh = s2(thatMarker)
                End If
            End While
 
            Dim result As Integer = 0
 
            If Char.IsDigit(thisChunk(0)) AndAlso Char.IsDigit(thatChunk(0)) Then
                thisNumericChunk = Convert.ToInt32(thisChunk.ToString())
                thatNumericChunk = Convert.ToInt32(thatChunk.ToString())
 
                If thisNumericChunk < thatNumericChunk Then
                    result = -1
                End If
 
                If thisNumericChunk > thatNumericChunk Then
                    result = 1
                End If
            Else
                result = thisChunk.ToString().CompareTo(thatChunk.ToString())
            End If
 
            If result <> 0 Then
                Return result
            End If
        End While
 
        Return 0
    End Function
 
End Class

Usage:

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim xdoc = <?xml version="1.0" standalone="yes"?>
                   <Data>
                       <WireData>
                           <Signal_Name Name="1000">
                               <Wire_Size>AWG 20</Wire_Size>
                           </Signal_Name>
                           <Signal_Name Name="1001">
                               <Wire_Size>AWG 20</Wire_Size>
                           </Signal_Name>
                           <Signal_Name Name="1000">
                               <Wire_Size>AWG 10</Wire_Size>
                           </Signal_Name>
                       </WireData>
                   </Data>
 
        Dim wiredatas = xdoc.<Data>.<WireData>.<Signal_Name> _
                        .OrderBy(Function(n) CInt(n.@Name)) _
                        .ThenBy(Function(n) n.<Wire_Size>.Value, New NaturalComparator()).ToList()
 
    End Sub
 
End Class