Page 1 sur 1

[R] FileListToArrayRec et ArrayToString

Posté : jeu. 20 nov. 2014 20:15
par adri0726
Bonjour a tous .
J'aurait une question concernant _FileListToArrayRec ou _ArrayToString , je suis un peut perdu .
donc voila j'utilise FileListToArrayRec pour lister tout les fichier texte d'un dossier et des sous dossier, que j'affiche ensuite dans une input avec ArrayToString .
voici le code dont je me sert tirer d'un exemple que j'avais vu sur votre forums)

Code : Tout sélectionner

Global $listage_des_builds, $X = 0, $alistage_des_builds[10000]
$test_lire_builds = 1
If $test_lire_builds = 1 Then
    $listage_des_builds = _FileListToArrayRec(@MyDocumentsDir&"\GUILD WARS\Templates\Skills", "*.txt", 1,1, 0,1)

    For $I = 1 To $listage_des_builds[0]
                $alistage_des_builds[$X] = $listage_des_builds[$I]
                $X += 1
    Next
    ReDim $alistage_des_builds[$X]
EndIf
$clistage_des_builds = _ArrayToString($alistage_des_builds, "|",0,0)

;l'input pressent dans le gui
$liste_builds = GUICtrlCreateCombo("", 5, 355, 380)
GUICtrlSetData(-1, $clistage_des_builds)
 
je suis arriver a un résulta que me convient presque, sauf que je ne sait pas comment masquer l'extention .txt des fichier afficher dans mon input, je n'aie pas trouver ou je ne sait pas si ArrayToString ou FileListToArrayRec me permettrai de masquer l’extension .txt .
merci d'avance pour votre aide .

Re: [..] FileListToArrayRec et ArrayToString

Posté : jeu. 20 nov. 2014 20:21
par aulus
Pour supprimer .txt , utilisez la fonction StringLeft($chaine,nombre de caractères à conserver) :

$chaine = StringLeft($chaine,StringLen($chaine) - 4)

Re: [..] FileListToArrayRec et ArrayToString

Posté : jeu. 20 nov. 2014 21:12
par mikell
Ou comme ça

Code : Tout sélectionner

    For $I = 1 To $listage_des_builds[0]
                $alistage_des_builds[$X] = StringTrimRight($listage_des_builds[$I], 4)
                $X += 1
    Next

Re: [..] FileListToArrayRec et ArrayToString

Posté : jeu. 20 nov. 2014 22:23
par adri0726
Merci beaucoup pour vos réponses, mon problème est résolue .