Сортировка строк TextBox, содержащих числа - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

всем приветы. в TextBox1 имею список который нужно отсортировать :
Спойлер
сейчас выполняю сортировку вот так:
Листинг программы
  1. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  2. Dim lst As List(Of String) = New List(Of String)(TextBox1.Lines()) ' Создаем список из строк TextBox1
  3. lst.Sort(New Comparison(Of String)(AddressOf SortString)) ' Сортируем, используя делегат сравнения Comparison(Of T)
  4. TextBox2.Text = ""
  5. For i As Integer = 0 To lst.Count - 1
  6. TextBox2.Text &= String.Format("{0}{1}", lst(i), vbCrLf)
  7. Next i
  8. End Sub
  9. Function SortString(ByVal x As String, ByVal y As String) As Integer
  10. Return String.Compare(x, y) ' Сравнение строк
  11. End Function
в TextBox2 вывожу результат (который совсем не радует). результат таков:
Спойлер
а мне нужно его отсортировать чтобы получился "нормальный" список:
Спойлер
подскажите КАК получить "нормальный" список?

Решение задачи: «Сортировка строк TextBox, содержащих числа»

textual
Листинг программы
  1. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  2.     Dim lst() As String = TextBox1.Lines()
  3.     Dim nums() As Integer = (From num In lst Select CInt(num.Substring(1))).ToArray
  4.     Array.Sort(nums, lst)
  5.     TextBox2.Text = ""
  6.     For i As Integer = 0 To lst.Count - 1
  7.         TextBox2.Text &= String.Format("{0}{1}", lst(i), vbCrLf)
  8.     Next i
  9. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы