Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   group.value auslesen bei regulären Ausdrücken? (https://www.delphipraxis.net/214636-group-value-auslesen-bei-regulaeren-ausdruecken.html)

nezumi7 12. Feb 2024 19:32

group.value auslesen bei regulären Ausdrücken?
 
Hallo,

ich habe angefangen, mich mit regulären Ausdrücken zu befassen, komme aber an einer Stelle einfach nicht weiter.

Konkret möchte ich aus dem Seitenquelltext einer html-Seite alle Werte auslesen, die zwischen ["durationLabel":"] und [","geoblocking":] stehen. Ich scheitere schon daran, mir den ersten Wert anzeigen zu lassen:

Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
vtext, erg: String;
match: TMatch;
matches: TMatchCollection;
groups: TGroupCollection;
group: TGroup;
begin
vtext := 'ion":657,"durationLabel":"11 Min.","geoblocking":{"code":"';
regex := '"durationLabel":"(.+)","geoblocking"';
matches := TRegEx.Matches(vtext, regex);
if matches.Count > 0 then begin
match := matches[0];
groups := match.Groups;
if groups.Count > 0 then begin
group := groups[0];
form1.Caption := group.value;
end;
end;
end;
Als Ergebnis wird immer der komplette string ["durationLabel":"11 Min.","geoblocking"] geliefert. Ich hätte als Ergebnis aber gerne: [11 Min.]

Was mache ich falsch?

Klaus01 12. Feb 2024 19:57

AW: group.value auslesen bei regulären Ausdrücken?
 
versuche mal diese als regex
Code:
("durationLabel":")(.*)("."geoblocking")
Ein nette Seite zum Ausprobieren: https://regex101.com/

Viele Grüße
Klaus

nezumi7 12. Feb 2024 20:06

AW: group.value auslesen bei regulären Ausdrücken?
 
Zitat:

Zitat von Klaus01 (Beitrag 1533361)
versuche mal diese als regex
Code:
("durationLabel":")(.*)("."geoblocking")
Ein nette Seite zum Ausprobieren: https://regex101.com/

Viele Grüße
Klaus

Super, danke Klaus, so gehts! :thumb::wink:

Viele Grüße,
Stephan.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz