How to sort listbox items by the value in the middle of the listbox item

Question

0.00/5 (No votes)

See more:

Hello to all,
I don't have idea how to sort listbox items by some number in the middle of the text.
For example, my listbox has populated list with items in the format like:

VB

ListBox1.Items.Add("Plate: " & oPlateName & "; Angle: - " & strAngle & "; Diameter: " & strDiameter)

And list has to be sorted by the value:

strAngle

which is somewhere in the middle of the listbox item.

Any help is very appreciated.
TK

What I have tried:

What I have tried is:

VB

Dim orderedList As List(Of String) = (From item In myList Order By Integer.Parse(item.Substring(item.IndexOf("; Angle: - ") + 1)) Descending Select item).ToList

Posted 1-Jul-17 23:45pm

blueye89

Updated 3-Jul-17 1:42am

Patrice T

v3

Add a Solution

Comments

Richard MacCutchan 2-Jul-17 8:26am

And what happened when you tried that code?

Michael_Davies 2-Jul-17 9:18am

What result are you getting in orderedList, does it meet your expectations and if so what is wrong.

Rarely use a listbox, prefer listview set to detailed and add a handler for sorting so it sorts as you add items to the list or turn sorting off, build the list then sort.

Michael_Davies 2-Jul-17 9:30am

Why not use a ListView in detail mode add a column for each item Plate, Angle & Diameter then set the sort on the Angle column.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Lockwood · Accepted Answer · 2017-07-03T01:42:00

Is this WinForms? If so, you can do this:

VB

Public Class PlateItem
    Public Plate As String
    Public Angle As Decimal
    Public Diameter As Decimal
    Public Overrides Function ToString() As String
        Return "Plate: " & Plate & "; Angle: - " & Angle & "; Diameter: " & Diameter
    End Function
End Class

'In your function
Dim plateItems As New List(Of PlateItem)
'Loop through items to add
plateItems.Add(New PlateItem with {.Plate = oPlateName, .Angle = strAngle, .Diameter = strDiameter})
'Finish Adding
lstPlateList.Items.AddRange(plateItems.OrderBy(Function(p) p.Angle).ToArray) 'This line had an error. Fixed.

That will also let you pull out a PlateItem object from lstPlate.SelectedItem which you can pull the angle and diamter from, without needing the string manipulation

blueye89 · Accepted Answer · 2017-07-02T03:33:00

I have done it by splitting a string. Here is a solution.

'Sorting by Angle
  Dim items = (From item In lstPlateList.Items
               Let parts = item.ToString.Split(New String() {"; Angle: - ", "; Diameter: "}, StringSplitOptions.None)
               Order By CInt(parts(1))
               Select item).ToArray
  lstPlateList.Items.Clear()
  lstPlateList.Items.AddRange(items)

How to sort listbox items by the value in the middle of the listbox item

2 solutions

Solution 2

Solution 1

Add your solution here

Preview 0