compare path strings

[Peter Proost]

Hi group, I want to compare path strings in order to sort them, assuming I
have got:

"a.txt"
"dir1\c.txt "
"e.txt"
"dir1\d.txt "

When I compare them using "e.text" would be greater than "dir1\c.txt "
But I would like them to be sorted as followed
"a.txt"
"e.txt"
"dir1\c.txt "
"dir1\d.txt "

so I wrote the following function to compare the strings, but I was
wondering if I'm maybe missing some built in dot net function because for
the moment my function is lacking support for strings containing more than
one \

Private Function MyCompare(ByVal str1 As String, ByVal str2 As String) As
Boolean
str1 = LCase(str1)
str2 = LCase(str2)
If str1.IndexOf("\ "c) <-1 And str2.IndexOf("\ "c) = -1 Then
Return True
Else
If str1.IndexOf("\ "c) <-1 And str2.IndexOf("\ "c) <-1 Then
If Mid(str1, 1, str1.IndexOf("\ "c)) = Mid(str2, 1,
str2.IndexOf("\ "c)) Then
Return Mid(str1, str1.IndexOf("\ "c) + 2, str1.Length -
str1.IndexOf("\ "c) + 2) Mid(str2, str2.IndexOf("\ "c) _ + 2, str2.Length -
str2.IndexOf("\ "c) + 2)
Else
Return Mid(str1, 1, str1.IndexOf("\ "c)) Mid(str2, 1,
str2.IndexOf("\ "c))
End If
Else
If str1.IndexOf("\ "c) = -1 And str2.IndexOf("\ "c) <-1 Then
Return False
Else
If str1.IndexOf("\ "c) = -1 And str2.IndexOf("\ "c) = -1
Then
Return str1 str2
End If
End If
End If
End If
End Function

Greetz,

Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning. (Rich Cook)

[Robert Schneider]

"Peter Proost" <pp*****@nospam .hotmail.comsch rieb im Newsbeitrag
news:eI******** ******@TK2MSFTN GP06.phx.gbl...

Hi group, I want to compare path strings in order to sort them, assuming I
have got:

"a.txt"
"dir1\c.txt "
"e.txt"
"dir1\d.txt "

When I compare them using "e.text" would be greater than "dir1\c.txt "
But I would like them to be sorted as followed
"a.txt"
"e.txt"
"dir1\c.txt "
"dir1\d.txt "

so I wrote the following function to compare the strings, but I was
wondering if I'm maybe missing some built in dot net function because for
the moment my function is lacking support for strings containing more than
one \

Private Function MyCompare(ByVal str1 As String, ByVal str2 As String) As
Boolean
str1 = LCase(str1)
str2 = LCase(str2)
If str1.IndexOf("\ "c) <-1 And str2.IndexOf("\ "c) = -1 Then
Return True
Else
If str1.IndexOf("\ "c) <-1 And str2.IndexOf("\ "c) <-1 Then
If Mid(str1, 1, str1.IndexOf("\ "c)) = Mid(str2, 1,
str2.IndexOf("\ "c)) Then
Return Mid(str1, str1.IndexOf("\ "c) + 2, str1.Length -
str1.IndexOf("\ "c) + 2) Mid(str2, str2.IndexOf("\ "c) _ + 2,
str2.Length -
str2.IndexOf("\ "c) + 2)
Else
Return Mid(str1, 1, str1.IndexOf("\ "c)) Mid(str2, 1,
str2.IndexOf("\ "c))
End If
Else
If str1.IndexOf("\ "c) = -1 And str2.IndexOf("\ "c) <-1
Then
Return False
Else
If str1.IndexOf("\ "c) = -1 And str2.IndexOf("\ "c) = -1
Then
Return str1 str2
End If
End If
End If
End If
End Function

Greetz,

Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning. (Rich Cook)

You may want to try this:

Public Class Comparer
Implements IComparer(Of String)

Public Function Compare(ByVal x As String, ByVal y As String) As Integer
Implements System.Collecti ons.Generic.ICo mparer(Of String).Compare
Dim numOfPSS_x As Integer = GetNumberOfPath SeparatorSigns( x)
Dim numOfPSS_y As Integer = GetNumberOfPath SeparatorSigns( y)
If numOfPSS_x = numOfPSS_y Then
Return x.CompareTo(y)
Else
If numOfPSS_x numOfPSS_y Then
Return 1
Else
Return -1
End If
End If
End Function

Private Shared Function GetNumberOfPath SeparatorSigns( ByVal x As String)
As Integer
Dim count As Integer = 0
For i As Integer = 0 To x.Length - 1
If x.Chars(i) = "\"c Then
count += 1
End If
Next
Return count
End Function
End Class

Private Sub Test()
Dim stringList As New List(Of String)

stringList.Add( "e.txt")
stringList.Add( "dir1\c.txt ")
stringList.Add( "dir1\d.txt ")
stringList.Add( "a.txt")

stringList.Sort (New Comparer())

For Each s As String In stringList
Debug.Print(s)
Next
End Sub

Hope this is correct.

Robert

--
e-mail: r_.s_chnei_der\ wein_gart_ner.c om (remove all '_' and replace '\'
with
'@')

[Peter Proost]

Thanks that seems to do the job

thanks again

Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning. (Rich Cook)

"Robert Schneider" <lo*******@the. postingschreef in bericht
news:ey******** ******@TK2MSFTN GP06.phx.gbl...

"Peter Proost" <pp*****@nospam .hotmail.comsch rieb im Newsbeitrag
news:eI******** ******@TK2MSFTN GP06.phx.gbl...

Hi group, I want to compare path strings in order to sort them, assuming

I

have got:

"a.txt"
"dir1\c.txt "
"e.txt"
"dir1\d.txt "

When I compare them using "e.text" would be greater than "dir1\c.txt "
But I would like them to be sorted as followed
"a.txt"
"e.txt"
"dir1\c.txt "
"dir1\d.txt "

so I wrote the following function to compare the strings, but I was
wondering if I'm maybe missing some built in dot net function because

for

the moment my function is lacking support for strings containing more

than

one \

Private Function MyCompare(ByVal str1 As String, ByVal str2 As String)

As

Boolean
str1 = LCase(str1)
str2 = LCase(str2)
If str1.IndexOf("\ "c) <-1 And str2.IndexOf("\ "c) = -1 Then
Return True
Else
If str1.IndexOf("\ "c) <-1 And str2.IndexOf("\ "c) <-1 Then
If Mid(str1, 1, str1.IndexOf("\ "c)) = Mid(str2, 1,
str2.IndexOf("\ "c)) Then
Return Mid(str1, str1.IndexOf("\ "c) + 2,

str1.Length -

str1.IndexOf("\ "c) + 2) Mid(str2, str2.IndexOf("\ "c) _ + 2,
str2.Length -
str2.IndexOf("\ "c) + 2)
Else
Return Mid(str1, 1, str1.IndexOf("\ "c)) Mid(str2,

1,

str2.IndexOf("\ "c))
End If
Else
If str1.IndexOf("\ "c) = -1 And str2.IndexOf("\ "c) <-1
Then
Return False
Else
If str1.IndexOf("\ "c) = -1 And str2.IndexOf("\ "c)

= -1

Then
Return str1 str2
End If
End If
End If
End If
End Function

Greetz,

Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to

produce

bigger and better idiots. So far, the Universe is winning. (Rich Cook)

You may want to try this:

Public Class Comparer
Implements IComparer(Of String)

Public Function Compare(ByVal x As String, ByVal y As String) As

Integer

Implements System.Collecti ons.Generic.ICo mparer(Of String).Compare
Dim numOfPSS_x As Integer = GetNumberOfPath SeparatorSigns( x)
Dim numOfPSS_y As Integer = GetNumberOfPath SeparatorSigns( y)
If numOfPSS_x = numOfPSS_y Then
Return x.CompareTo(y)
Else
If numOfPSS_x numOfPSS_y Then
Return 1
Else
Return -1
End If
End If
End Function

Private Shared Function GetNumberOfPath SeparatorSigns( ByVal x As

String)

As Integer
Dim count As Integer = 0
For i As Integer = 0 To x.Length - 1
If x.Chars(i) = "\"c Then
count += 1
End If
Next
Return count
End Function
End Class

Private Sub Test()
Dim stringList As New List(Of String)

stringList.Add( "e.txt")
stringList.Add( "dir1\c.txt ")
stringList.Add( "dir1\d.txt ")
stringList.Add( "a.txt")

stringList.Sort (New Comparer())

For Each s As String In stringList
Debug.Print(s)
Next
End Sub

Hope this is correct.

Robert

--
e-mail: r_.s_chnei_der\ wein_gart_ner.c om (remove all '_' and replace '\'
with
'@')