[R] FileOpen avec _FileListToArrayNT

[mystere]

Bonjour, voici mon problème. Je n’arrive pas a exploité le résultat de _filelisttoarraynt.
Je retrouve bien les fichiers dans le dossier que j’ai indiqué dans ma gui, mais je n’arrive pas à les ouvrir avec fileopen. J’ai essayé plusieurs trucs comme par exemple :

Code : Tout sélectionner

fileopen($destination2 & “\*.php,0)

Mais rien ne fonctionne.

Voici une partie de mon code j’ai souligné en rouge ce qui ne fonctionne pas. Si je sélectionne fichier par fichier dans un scripte appart sa fonctionne mais si je veux que plusieurs fichier soit traité, sa ne fonctionne plus. A la base ce qui est en rouge ouvre un fichier et transforme par exemple 7000 lignes en 1 seul ligne dans ce même fichier.

Code : Tout sélectionner

$source2=controlgettext("nom","","[classnn:Edit1]")
$destination2=controlgettext("nom","","[classnn:Edit2]")
if fileexists($source2 & "\*.php") or fileexists($source2 & "\*.html") or fileexists($source2 & "\*.txt") then
filecopy($source2 & "\*.php",$destination2)
filecopy($source2 & "\*.html",$destination2)
filecopy($source2 & "\*.txt",$destination2)
$recherche=[color=#000000][b]_FileListToArrayNT[/b][/color]($destination2 & "\","*.php;*.html;*.txt",0,2,true)
[color=#000000][b]_ArrayDisplay[/b][/color]($recherche,"Liste fichier")

[color=#FF0000]$open=fileopen($destination2 & $recherche,0)
$read=fileread($open)
$read=stringreplace($read,@crlf,"")
fileclose($open)
$open=fileopen($destination2 & $recherche,2)
filewrite($open,$read)
fileclose($open)[/color]

else
msgbox(4096,"Fichiers non trouvé","Aucun fichier d'extension :  php, html, txt, n'a étai trouvé")
endif

Comment résoudre ce problème ?

[matwachich]

N'oubliez pas que ce que retourne _FileListToArrayNT est un Array! Et Pour traiter un array, on utilise en général un boucle, pour traiter tous les éléments du dit array.

Code : Tout sélectionner

$recherche=_FileListToArrayNT($destination2,"*.php;*.html;*.txt",1,2,true)
_ArrayDisplay($recherche,"Liste fichier")

For $i = 1 To $recherche[0]
    $read = FileRead($recherche[$i])
    $read = StringReplace($read, @CRLF, "")
    $hFile = FileOpen($recherche[$i], 2)
    FileWrite($hFile, $read)
    FileClose($hFile)
Next

[mystere]

Merci de ta réponse matwachich, sa fonctionne. Le problème est résolut.

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.