Voici une fonction pour classer vos données par ordre alphabétique.
#include <Array.au3>
#include <GuiListBox.au3>
; #FUNCTION# ====================================================================================================================
; Name ..........: ClasserParOrdreAlphabetique
; Description ...: Trie les elements d'un tableau par ordre alphabetique
; Syntax ........: ClasserParOrdreAlphabetique($sArrayOF_Elements)
; Parameters ....: $sArrayOF_Elements - a string value.
; Return values .: Tableau des elements ordonnés selon l'ordre A-Z
;
; Author ........: Numeric
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Oui
; ===============================================================================================================================
Func ClasserParOrdreAlphabetique($sArrayOF_Elements)
Local $hGUI = GUICreate(" ", 400, 296)
Local $idListBox = _GUICtrlListBox_Create($hGUI, "", 20, 20, 0x0002)
_GUICtrlListBox_BeginUpdate($idListBox)
For $iI = 1 To UBound($sArrayOF_Elements) - 1
_GUICtrlListBox_AddString($idListBox, $sArrayOF_Elements[$iI])
Next
_GUICtrlListBox_EndUpdate($idListBox)
Local $ListBoxGetCount = _GUICtrlListBox_GetCount($idListBox)
Local $RangeArray[$ListBoxGetCount + 1]
For $j = 0 To $ListBoxGetCount - 1
$RangeArray[$j] = _GUICtrlListBox_GetText($idListBox, $j)
Next
ReDim $RangeArray[$j]
_GUICtrlListBox_ResetContent($idListBox)
_GUICtrlListBox_Destroy($idListBox)
GUIDelete()
Return $RangeArray
EndFunc ;==>ClasserParOrdreAlphabetique
Local $sText = "Bonjour,Bonheur,Bonbon,Alain,Dupont,Rene,Gomez,Patati,Patata,Pff!!,Aye,humm"
Local $Split = StringSplit($sText, ",")
Local $ClasserParOrdre = ClasserParOrdreAlphabetique($Split)
_ArrayDisplay($ClasserParOrdre, "Ordre A-Z")
#include <GuiListBox.au3>
; #FUNCTION# ====================================================================================================================
; Name ..........: ClasserParOrdreAlphabetique
; Description ...: Trie les elements d'un tableau par ordre alphabetique
; Syntax ........: ClasserParOrdreAlphabetique($sArrayOF_Elements)
; Parameters ....: $sArrayOF_Elements - a string value.
; Return values .: Tableau des elements ordonnés selon l'ordre A-Z
;
; Author ........: Numeric
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Oui
; ===============================================================================================================================
Func ClasserParOrdreAlphabetique($sArrayOF_Elements)
Local $hGUI = GUICreate(" ", 400, 296)
Local $idListBox = _GUICtrlListBox_Create($hGUI, "", 20, 20, 0x0002)
_GUICtrlListBox_BeginUpdate($idListBox)
For $iI = 1 To UBound($sArrayOF_Elements) - 1
_GUICtrlListBox_AddString($idListBox, $sArrayOF_Elements[$iI])
Next
_GUICtrlListBox_EndUpdate($idListBox)
Local $ListBoxGetCount = _GUICtrlListBox_GetCount($idListBox)
Local $RangeArray[$ListBoxGetCount + 1]
For $j = 0 To $ListBoxGetCount - 1
$RangeArray[$j] = _GUICtrlListBox_GetText($idListBox, $j)
Next
ReDim $RangeArray[$j]
_GUICtrlListBox_ResetContent($idListBox)
_GUICtrlListBox_Destroy($idListBox)
GUIDelete()
Return $RangeArray
EndFunc ;==>ClasserParOrdreAlphabetique
Local $sText = "Bonjour,Bonheur,Bonbon,Alain,Dupont,Rene,Gomez,Patati,Patata,Pff!!,Aye,humm"
Local $Split = StringSplit($sText, ",")
Local $ClasserParOrdre = ClasserParOrdreAlphabetique($Split)
_ArrayDisplay($ClasserParOrdre, "Ordre A-Z")