Discussion :

[mavrix91]

Bonjour,

J'ai un fichier XML et je veux extraire certaines informations du texte de ce fichier. C'est ok quand tout est en ligne mais , KO quand j'ai des retours chariots/sauts de ligne ( #13#10 )

Exemple :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
 
uses ...  System.RegularExpressions 
 
...
 
procedure TForm42.Button1Click(Sender: TObject);
 
const   chaine1 ='<transformation> <info> <name>NOM_FICHIER</name>';
 
const   chaine2 ='<transformation>'#13#10'<info>'#13#10'<name>NOM_FICHIER</name>';
 
var
  regex : TRegEx;
  Match  : TMatch;
begin
 
  Match :=regex.Match(chaine1,'<transformation>.+<name>(.+)</name>');
 
//  Match :=regex.Match(chaine2,'<transformation>.+<name>(.+)</name>');
 
  if Match.Success then
  begin
    showMessage('OK');
    ShowMessage ( Match.Groups[1].Value );
  end
  else
  begin
    showMessage('Non rien :( ');
  end;
 
end;

Le code fonctionne avec la chaine1 mais pas la chaine2 .


Est ce que vous avez une idée de comment extraire mes infos dans un texte avec sauts de ligne ?


Merci d'avance .

[tourlourou]

Bonjour,
Ne connaissant pas ces expressions rationnelles, j'utiliserais barbarement : chaine1 := StringReplace(chaine2, CRLF, ' ', [rfReplaceAll]); qui a pê de plus beaux équivalents et surtout un motif adaptable en regexp...

[mavrix91]

Bonjour,
Ne connaissant pas ces expressions rationnelles, j'utiliserais barbarement : chaine1 := StringReplace(chaine2, CRLF, ' ', [rfReplaceAll]); qui a pê de plus beaux équivalents et surtout un motif adaptable en regexp...

Bonjour,
J'y ai pensé pour d'autres raisons je dois conserver la structure inter-balises , pour faire des découpage plus complexes . C'est juste un exemple simple .
Merci en tout cas .

[CosmoKnacki]

L'option que tu cherches est roSingleLine, mais tu t'exposes à des déconvenus en t'attaquant à du XML comme avec une simple chaîne. Il doit bien avoir des parsers DOM ou SAX pour faire ça avec Delphi.

[SergioMaster]

Perso, je trouve les expressions mal "fagotées", je suggère un outil comme Expresso pour mieux maitriser ça

(\x0A\x0D)? devrait remplacer un #13#10

soit une expression comme cela

Code RegEx :

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

'<transformation>(\x0A\x0D)?<info>(\x0A\x0D)?<name>NOM_FICHIER</name>'

mais il y a certainement mieux

[Andnotor]

Il y a aussi des espaces. En multilines on pourrait l'écrire ainsi : <transformation>(?: |\R)?<info>(?: |\R)?<name>(.+)</name>.

En singleline, attention s'il peut y avoir plusieurs fois la même information, il faudra passer en mode lazy sous peine de ne récupérer que le dernier NOM_FICHIER : <transformation>.+?<name>(.+?)</name>.


ps : bizarre que ça fonctionne sous Delphi, le standard PCRE demande normalement que les / soient échappés : <\/name> (les deux écritures fonctionnent)