Discussion :

[ouiouioui]

bonjour, je crée un programme d'analyse de log d'environ 500000 lignes minimum

je le charge et exécute via http://www.regexpstudio.com/TRegExpr/TRegExpr.html des:

Code :

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

1
2
3
4
 
    Search := TRegExpr.Create;
    Search.Expression := 'SV packet.*?getstatus';
    Search.Replace(Log.Text, '', True);

auparavant j'utilisais php en ligne de commande sa prenait environs 2 à 5mins
mais avec delphi je suis à plus de 10min pour 1/20 des expressions à chercher! donc je peux pas continuer sa mettrais des heures à terme.

aussi je voudrais vos conseils sur la manière de faire des recherches avec un motif de recherche évolué

et aussi des recherches et remplacer les résultats avec si on veut une partie du résultat.

si vous avez des exemples ou liens de composants unités

avec php sa correspond à
http://fr.php.net/manual/fr/function.preg-match.php
http://fr.php.net/manual/fr/function.preg-match-all.php
http://fr.php.net/manual/fr/function.preg-replace.php

il doit bien y avoir une correspondance efficace avec delphi
merci d'avance.

[sjrd]

Euh, ta regexpr est invalide Tu enchaînes un *? Si ça se trouve, ça a un rapport

Sinon, je n'ai pas connaissance d'autres bibliothèques de regexpr pour Delphi. J'ai toujours entendu dire qu'elle était très bien.

[anapurna]

salut

surtout qu'il faut déterminer si ce n'est pas l'affichage qui plombe les performance
sans un bout de code ils nous est difficile de définir d'où peut provenir le problème

@+ Phil

[ouiouioui]

c'est un exemple, je précise aussi que j'ai lu:
http://delphi.developpez.com/faq/?page=regex
mais pas testé toutes les solutions proposé, pour sa si quelqu'un a déjà comparé sa m'aiderai bien à trouvé le plus rapide.
j'ai trouvé sa aussi qui est exactement ce dont j'ai besoin: http://www.yunqa.de/delphi/doku.php/...ts/regex/index mais c'est payant si j'ai bien vu.

pour anapurna, j'ai bien tout isolé et c'est la recherche qui bloque pas de doute possible.

[exoseven]

tu as aussi TPerlRegEx de gratuit, je n'ai fait aucun test par contre

[ouiouioui]

merci, je vais tester aussi. Elle a l'air complète comme celle payante que j'ai trouvé, notamment le chercher remplacer qui manque à RegExpr

[LeGEC]

notamment le chercher remplacer qui manque à RegExpr

Salut,

en lisant la doc de TRegExpr, j'ai vu qu'il y avait une méthode "subtitute". Ce n'est pas exactement ce que tu veux faire?

Je me joins à anapurna pour dire : montre-nous un bout de code. Quelle(s) structure(s) de stockage utilises-tu? comment? combien d'objets crées-tu au cours de ta boucle de recherche? etc...

[ouiouioui]

Après test pour moi c'est http://www.regular-expressions.info/delphi.html celle qui me convient merci exoseven.
on peut tous faire y compris les remplacement avec les captures d'un motif comme en PHP

TRegExpr est bien mais payant et pour mes besoins TPerlRegEx fait le boulot aussi rapidement.

par contre sous D2009 impossible à faire fonctionner j'obtiens l'image en pièce jointe

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
 
  Search := TPerlRegEx.Create(nil);
  try
    try
    Search.Subject := Log.Text;
    Search.RegEx := 'Rcon';
    Search.Replacement := 'test';
    Search.ReplaceAll;
    log.Text := Search.subject;
    Except
    on E : Exception do
      ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
    end;
  finally
    Search.Free;
  end;

avec le même code sous D2007 aucun soucis je sèche
si quelqu'un trouve je lui tire mon chapeau moi j'y ai passé mon dimanche... je suppose du à l'unicode je suis bloqué sur un autre programme à cause de sa aussi faut que j'étudie le sujet.

[ero-sennin]

Salut,

Pour utiliser l'ancien codage pour les chaines de caractères, il faut déclarer les chaines en AnsiString et non en String

[ouiouioui]

Salut,

Pour utiliser l'ancien codage pour les chaines de caractères, il faut déclarer les chaines en AnsiString et non en String

Sous D2009 TPerlRegEx utilise UTF8 donc mon log en string UTF16 est converti en 8
j'ai essayé une variable en AnsiString avec text bidon et j'ai la même erreur.

[ero-sennin]

Je pensais que je te serais utile mais non

[ouiouioui]

c'est gentil déjà d'avoir pris la peine de me lire merci

je précise que sous D2009 Le même composant n'utilise pas la dll pcre mais des fichiers obj alors je sais pas si c'est moi qui bug ou TPerlRegEX