Flasher
|
Posted: Mon Jun 08, 2020 00:41 Post subject: |
|
|
WindR
Одни числа сортировать — не проблема: Code: | Numbers = "12 1 1,1 14 11 2 21 22 2.1 2.2 15 1,5"
Set Col = CreateObject("System.Collections.ArrayList")
D = Mid(1/2,2,1)
Numbers = Replace(Replace(Numbers, ".", D), ",", D)
For Each N in Split(Numbers)
Col.Add CSng(N)
Next
Col.Sort
MsgBox Join(Col.ToArray, vbLf)
Set Col = Nothing |
А вот текст вперемешку с цифрами — это уже совсем другая песня. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|