Hm... *überleg*
Also den ersten Block würde ich mit Prozedur Funtion schreiben. Wenn das machsen willst musste nur die Wert nehmen die geändert werden oder beim Aufruf anders sind als Prozedur Varaible angeben:
Delphi-Quellcode:
//irgentein passender name oder einen den du dir merken kannst, was er da macht
//die Varaiblen, die du Werten darin zuweisst, müssen Unit variablen sein (unter var der Unit)
procedure DoSomething1(Wert1,Wert2 :
String; Integer1 : Integer);
begin
pPos1 := AnsiPos(Wert1, aHTML);
pPos1Ex := PosEx(Wert2, aHTML, pPos1+1);
Showmessage(Copy(aHTML, pPos1+Integer1, (pPos1-pPos1Ex+Integer1)*-1)); ;
end;
//für den ersten Teil des Blocken so aufrufen:
//Block:
pPos1 := AnsiPos('
<span class="showTime">', aHTML);
pPos1Ex := PosEx('
</span>', aHTML, pPos1+1);
Showmessage(Copy(aHTML, pPos1+24, (pPos1-pPos1Ex+24)*-1));
//Aufruf:
DoSomething1('
<pan class="showTime">','
</span>',24);
Das wars schon. Vieleicht fällt es dir jetzt einfacher es zumachen
EDIT: Sorry für die vielen Edits, aber ich hab vieles Erst wieder gemerkt als es abgesendet war
