'
' Sorting test of strings
'
' Problem: How to sort strings, on a Number inside the string
'
' 2017.08.25 Peter Svard
'
Cls
'
Dim m$(10) As string
m$(1)= "Knr: 151, Tom, No: 50, blablabla"
m$(2)= "Knr: 292, Phil, No: 75, blablabla"
m$(3)= "Knr: 313, Anna, No: 80, blablabla"
m$(4)= "Knr: 424, Harry, No: 56, blablabla"
m$(5)= "Knr: 155, Lisa, No: 37, blablabla"
m$(6)= "Knr: 235, Carl, No: 49, blablabla"
m$(7)= "Knr: 372, Greg, No: 51, blablabla"
m$(8)= "Knr: 168, Will, No: 21, blablabla"
m$(9)= "Knr: 189, Roy, No: 13, blablabla"
'
' Test to sorting string's on No: number
'
' using Bubble (or ripple) sort... algorithm
'
Dim temp$ As string = ""
arraysize = 9
For i = 1 To arraysize - 1
For j = 1 To arraysize - 1
' take out No: number from strings
p = Instr(1,m$(j),"No:") + 3 ' where is No:
no1 = Val(Mid$(m$(j),p,Len(m$(j))-p))
p = Instr(1,m$(j+1),"No:") + 3
no2 = Val(Mid$(m$(j+1),p,Len(m$(j+1))-p))
If no1 > no2 Then
temp$ = m$(j)
m$(j) = m$(j+1)
m$(j+1) = temp$
EndIf
Next j
Next i
'
' Print out the sorted results...
'
Print "- Result -"
For i = 1 To arraysize
Print m$(i)
Next i
End