Traitement de fichier.txt

Bonjour, je voudrai créer un script un peut complexe pour un traitement de fichier.txt

Voila le script va se déconposer en plusieur étape, voila ce que j'avais fait en batch:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

:: On créer la variable date au format 12\06\07: set datetimetmp=%date:~0,2%/%date:~3,2%/%date:~8,2% set datetimetmp=%datetimetmp: =%   :: On récupére le numéro de la ligne ou se trouve la date du jour dans le fichier.txt: for /f "tokens=1 delims=:" %%i in ('type fichier.txt ^| findstr /i /n /c:"%datetimetmp%"') do set VrNubLigneDat=%%i   :: On cherche les erreurs: for /f "skip=%VrNubLigneDat% tokens=1* delims= " %%i in ('type fichier.txt ^| findstr /i /c:"of which were"') do ( if not %%i== 0 echo Il y a une erreur %%i )

---

Donc voila ce que je veut faire:

Etape 1: Je veut récupére la date sou cette forme 05\07\07 pas 05\07\2007

Etape 2: Chercher le numéro de la ligne ou se trouve la date du jour, et placer le numéro de la ligne dans une variable

Etape 3: Chercher toutes les ligne contenant la chaine de caractére "of which were ignored" en commancant le traitement a partir de la ligne ou se trouve la date du jour, et tester le premier caractére de chaqu'une des ligne contenant la chaine de caractére que je vien de cité, si le premier caractére et 0 ne rien faire, si le premier caractére n'est pas 0 afficher un message.


Voici le fichier.txt:

Citation:

---

---------------------------------- 11/06/07 ----------------------------------

06:00:14 - DLL initialisation:-
Flagword=0000011011101100
Bit 0 clr = Raw data capture is disabled
Bit 1 clr = Debug option is disabled
01 c:\tsbload\bv.cdr
input from filename 'c:\tsbload\bv.cdr'
300 records received
0 of which were ignored
0 of which were faulty
0 of which were busy

----------------------------------------------------------------------------------

---------------------------------- 12/06/07 ----------------------------------

06:00:14 - DLL initialisation:-
Flagword=0000011011101100
Bit 0 clr = Raw data capture is disabled
Bit 1 clr = Debug option is disabled
01 c:\tsbload\bv.cdr
input from filename 'c:\tsbload\bv.cdr'
300 records received
0 of which were ignored
0 of which were faulty
0 of which were busy

----------------------------------------------------------------------------------
---------------------------------- 13/06/07 ----------------------------------

06:00:14 - DLL initialisation:-
Flagword=0000011011101100
Bit 0 clr = Raw data capture is disabled
Bit 1 clr = Debug option is disabled
01 c:\tsbload\bv.cdr
input from filename 'c:\tsbload\bv.cdr'
300 records received
0 of which were ignored
2 of which were faulty
0 of which were busy

----------------------------------------------------------------------------------

---

Sauriez vous m'aider ?

Ouch, ça c'est du Batch

Consulte ce Sujet, lit le en entier, c'est long mais c'est un gros déballage pour la lecture de fichier, ça pourrait t'inspirer

cherhce la fonction SearchStringInFile, ça pourrait servir pour
"of which were ignored"

Bonjour,


Je vous conseillerai d'utiliser un TStringList

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var List: TStringList begin List := TStringList.Create; try List := TStringList.LoadFromfile ('NonDufichierACharger');   // Fair le traitemement   finally List.free; end;

---

Dans list vous avez différentes fonction

List.Count donne le nombre de ligne.
List[I] renvoi la ligne N° I (attention de 0 à Count - 1 et non de 1 à count)
List.Text renvoi toute les lignes. Le séparateur #13+#10 (code 13 + code 10 en ascii soit CR LF) sépare les lignes.

Si j'ai bien compris, la 1° ligne (I = 0) contient la date sous la forme dd/mm/yy.
Vous pouvez extraire les valeur par un copy sur la ligne et reco,stituer la date par encode

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var dd, mm, yy: Word; sdd, smm, syy: String; Date: TDatetime; begin   sdd := copy(List[0], 1, 2); smm := copy(List[0], 4, 2); syy := copy(List[0], 7, 2);   try dd := IntTostr(sdd); mm := IntTostr(smm); yy := IntTostr(syy); Date := encodeDate(yy, mm, dd); except Erreure la 1° ligne n'est pas une date correcte end;

---

Enfin vous pouvez utilise pos pour trouver les lignes rechercher

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var I: Integer; begin   for I := 1 To List.count - 1 do begin // de la ligne 2 à la derniere ligne (la ligne1 est la date) if Pos(Valeur_a_trouver, List[I]) > 0 then begin la valeur a trouver à été trouver memoriser I pour traitememnt ultérieure ou traiter la ligne içi end; end;   end;

---

Citation:

---

Envoyé par Tardiff Jean-François

Je vous conseillerai d'utiliser un TStringList

---

+1
Dans le cadre de recherche dans un fichier type log ou les infos sont defini lignes a ligne et non bloc par bloc (ie document texte, code source, etc ..) dont la pertinance resulte de l'analyse des données pouvant etre sur stockeés sur plusieurs lignes, le TString list est l'ideal.