Il doit en exister d'autres.
Code : Tout sélectionner
;;;Separation des nombres et des lettres
Global Dim tabd.s(10)
tabd.s(1) = "10000A"
tabd.s(2) = "2Aa"
tabd.s(3) = "2"
tabd.s(4) = "3"
tabd.s(5) = "20"
tabd.s(6) = "2A"
tabd.s(7) = "2Ab"
tabd.s(8) = "2C"
tabd.s(9) = "1"
tabd.s(10) = "10000Az"
If CreateRegularExpression(0, "[0-9]+")
Dim res$(0)
For i=1 To 10
ExtractRegularExpression(0,tabd(i),res$());;; séparation des nombres
tabd(i) = RSet(res$(0), 8, " ")+"!"+tabd(i) ;;; préparation pour le tri avec séparateur ! ou autre séparateur autre que space
Next
SortArray(tabd(), #PB_Sort_Ascending | #PB_Sort_NoCase,1,10)
For i=1 To 10
pospv=FindString(tabd(i),"!",1)
Debug Right(tabd(i),Len(tabd(i))-pospv);;; élimination des nombres qui nous ont servis pour le tri
Next
FreeRegularExpression(0)
EndIf