Discussion :

[irouni]

Bonjour tout le monde,

Voilà mon problème:

J'ai des fichiers .log dans lesquel je récupère les numéros des clients qui se présente sous cette forme:

<COUNTERS>
<COUNTER CALLEE_DURATION="0" CALLEE=" " CALLER="38367671553 " CLIENT="MER20 " FLAGS="146" INCOMING="671295 " PBX="mer54501Berthel" REAL_CALLEE=" " SERVER="CTI10 " SERVICE="MER "

ce que je veux c'est de récuperer les numéros CALLER dans tous mes fichiers et les enregistrer dans un fichier ou je stock tout les numéros.

Pour cela, j'aimerai utiliser un .bat mais je ne sais pas comment le faire.

Pourriez vous m'aider SVP
Bonne journée

[ShaiLeTroll]

Un Fichier BAT ???
Autant utiliser directement un GREP ...
Tu iras plus vite à faire un programme console en Delphi ...
Surtout que te logs, ça ne serait pas du XML ?

[irouni]

Merci ShaiLeTroll pour ta réponse,
Mes fichiers log sont des fichier plat texte tout basique
en se qui concerne "grep", je ne sais pas comment l'utiliser moi je suis un débutant en informatique, peux tu me dire comment je peux le faire avec un "grep" >>>Delphi? STP ?

[ShaiLeTroll]

Je ne connais pas GREP spécialement non plus, mais je suis habitué à manipuler des fichiers, regarde ma fonction SearchStringInFile, il permet de chercher une chaine, par exemple "CALLER", elle renvoie la position du mot dans le fichier, ensuite avec une lecture binaire (BlockRead), tu peux retrouver ton numéro ... cherche sur le forum, tu as plein de sujet concernant la manipulation de fichier ...

mais si tu es débutant, la lecture de fichier n'est pas non plus le plus simple, car selon la méthode, avec ReadLn, il faut soit être habitué avec la comparaison et manipulation de chaine, dans l'autre (ReadBlock), il être habitué à la comparaison et manipulation de buffer binaire considéré comme des chaines

[ero-sennin]

Salut,

J'ai fait vite fait une petite fonction qui renvoie le contenu d'un élément si il est trouvé, sinon renvoie une chaine vide. Ce n'est surement pas la meilleure façon de faire, mais au moment où j'écris ce message, j'ai que ça

Voici la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function GetData(element,chaine:string):string;
var
LongueurElement:integer;
PositionChaine:integer;
ChaineDecoupe:string;
begin
  PositionChaine:=Pos(element,chaine);
  if PositionChaine>0 then
  begin
    LongueurElement:=Length(element+'="');
    ChaineDecoupe:=RightStr(chaine,length(chaine)-PositionChaine-LongueurElement+1);
    ChaineDecoupe:=Trim(LeftStr(ChaineDecoupe,Pos('"',ChaineDecoupe)-1));
    Result:=ChaineDecoupe;
  end
  else
  result:='';
end;

Et voici comme je l'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  Memo1.Lines.LoadFromFile('C:\Test\MonFichier.txt');
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    if Pos('CALLER',Memo1.Lines[i]) >0 then
      Memo2.Lines.Add(GetData('CALLER',Memo1.Lines[i]));
  end;
end;

J'ai donc un Memo1 qui va charger le contenu de mon fichier ou je dois récupérer les numéros et dans le Memo2, je mets les numéros trouvés ...

Si ça peut aider
A+

[irouni]

Merci ero-sennin,
Merci ShaiLeTroll,
pour vos réponse, je vais me plonger dedans...