1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Dim toto As List(Of String) = New List(Of String) From {"E1", "10", "2", "1", "F1"}
'On récupère les chiffres et on trie par ordre croissant
Dim listeChiffre = From s In toto _
Where Int32.TryParse(s, 0) = True
Select s
Order By Int32.Parse(s)
'On récupère les lettres et on trie par ordre alphabétique
Dim listeLettre = From s In toto _
Where Int32.TryParse(s, 0) = False
Select s
Order By s
'On remet la liste à vide (.Clear() fait perdre les données de listeChiffre et listeLettre)
toto = New List(Of String)
'On rerempli avec nos 2 listes
toto.AddRange(listeChiffre)
toto.AddRange(listeLettre)
For Each elem As String In toto
MsgBox(elem) 'Retourne 1, 2, 10, E1, F1
Next |