Je me permet de vous solliciter pour mon projet de code
L'objectif est d'extraire un ou plusieurs numéros de chaque fichier txt d'un répertoire puis de noté sur un autre fichier txt.
Chaque numéros séparés par un espace et un saut de ligne entre chaque fichier lu
J'ai assemblé ça:
Code : Tout sélectionner
#include <file.au3>
#include <Excel.au3>
Global $cheminFichier =("C:\Users\Aurore\Desktop\...\txt acide")
$nbreFichier=_FileListToArrayRec($cheminFichier,"*", 1, 1, 0, 0)
;-------------------------------------------------------------------
For $i = 1 to $nbreFichier step 1
;------------------------------------------- ;lit "No.-CAS" de la FDS
Dim $CAS = "No.-CAS ", $text
$filename = $nbreFichier
$filename2 = 'recup.txt'
;-------------------------------------------
$file = FileOpen($filename, 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
If StringInStr($line, $CAS) Then
$text &= StringReplace($line, $CAS, "") & @CRLF
EndIf
Wend
FileWrite($filename2, $text)
FileClose($filename)
;------------------------------------------- ;lit "CAS:" de la FDS
$file = FileOpen($filename, 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
If StringInStr($line, $CAS) Then
$text &= StringReplace($line, $CAS, "") & @CRLF ;
EndIf
Wend
FileWrite($filename2, $text)
FileClose($filename)
;--------------------------------------------------- ;SUPPRIME LES DOUBLONS
Dim $aArray, $aNewArray
;---------------------------------------------------
_FileReadToArray($filename2, $aArray)
_ArrayDelete($aArray, 0)
$aNewArray = _ArrayUnique($aArray)
_FileWriteFromArray($filename2, $aNewArray, 1)
;--------------------------------------------------- ;SUPPRIMER LETTRES
$newtext = StringRegExpReplace(FileRead($filename2), 'No.', "")
$file = FileOpen($filename2, 2)
FileWrite($file, $newtext)
FileClose($file)
Nextpouvez-vous me dire pourquoi ?
