Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by joachimd,
10. Mai 2007
reicht nicht!
@Tommy:
Such Dir die Positionen von <HEAD> und </HEAD> und bastel Dir einen String über Copy zusammen:
function ReplaceBetween(Tag1, Tag2, Text, NewText: String): String;
var
iTag1, iTag2: integer;
begin
iTag1:=Pos(Tag1,Text)+length(Tag1);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by joachimd,
9. Mai 2007
passt nicht, wenn er nach längeren Tags sucht (zB <title>...</title>). Dann bitte folgendes:
function Between(Tag1, Tag2, Text: String): String;
begin
Delete(Text,1,Pos(Tag1,Text)+length(Tag1)-1); //Änderung hier!
Delete(Text,Pos(Tag2,Text),Length(Text));
Result:=Text;
end;