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; |
Partager