Sorting Items In A TxtBx by Alphabetical Order ?

[SWDT]

Hi All,

I have created a program that when a user selects a button, an input box is displayed to type in, for instance a name, when clicked ''OK'' the name goes into a textbox, how can i program it so that the contents of that textbox is automatically sorted into Alphabetical order according to the first to the first letter ?

Can this be achieved ?

Kind regards.

THink this should have been posted in VB.NET forums, sorry.

[Hack]

Put them in a ListBox instead of a textbox.

Sorting a listbox can be done simply by setting a property.

[Siddharth Rout]

One more way to do it is export the text from the textbox to array and then sort it. Once sorted, export it back to textbox....

[SWDT]

Thanks chap - the issue I'm now having is that the text isn't going into the Listbox where as it was with the Textbox. What happens is a user click on the ''Create contact'' button where an inputbox displays, they enter a name and click ok, the name then appeared in the textbox, however changing it to a listbox and also moding the code to direct the text to the listbox, its no longer working and the text isn't displaying.

Is that a result of it being a listbox and not a textbox ?

Kind regards.

[user name]

Not sure what you are asking but you just need to forget the textbox, use a listbox as suggested with a simple bit of code similar to this.

 Dim Response As String = InputBox("Enter Contact Name", "Create Contact")

        If Response <> String.Empty Then
            ListBox1.Items.Add(Response)
        End If

[SWDT]

Thanks for that works a treat, I know I'm talking about the Textbox, however another feature that it was able to do was to save the text inside the textbox into a .TXT or whatever, I've noticed that I cannot save the items that are in the listbox the same way, is that possible. Here is the save code that I'm using:

  Dim Save As New SaveFileDialog()
        Dim myStreamWriter As System.IO.StreamWriter
        Save.Filter = "Text[*.DOOS*]|*.DOOS|All File[*.*]|*.*"
        Save.CheckFileExists = False
        Save.Title = "Save File"
        Save.ShowDialog(Me)
        Try


            myStreamWriter = System.IO.File.AppendText(Save.FileName)
            myStreamWriter.Write(ListBox1.Text)
            myStreamWriter.Flush()
        Catch ex As Exception

        End Try

Many thanks to all help so far.

[Siddharth Rout]

Did you see post no 3?

[SWDT]

Ah apologies missed that - I can give that a go, is that easy enough to accomplish ?

[Siddharth Rout]

It is ...

Give it try...

If you get stuck then simply post the code that you have tried and we will definitely help

[Pradeep1210]

Here is one simple way to do it using LINQ.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim sortedText = From t In Split(TextBox1.Text, vbCrLf) Order By t
    TextBox1.Text = Join(sortedText.ToArray, vbCrLf)
End Sub