Hey Jungs,
ich sitz hier schon seit längerem vor dem Problem, dass ich einen Quelltext über die Function
Http.Get hole und diesen bearbeiten will.
Ich will einen Aktienkurs abfragen.
Ich will nach ganz bestimmten Textstellen suchen und diese dann ausschneiden.
Beispiel Quelltext:
Procedure:
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
var
HttpResponse :
string;
counter : Integer;
begin
HttpResponse := http.Get('
http://de.finsearch.yahoo.com/de/index.php?s=de_sort&nm=514000&tp=S&r=*&sub=Suchen');
memo2.Text := parseString(HttpResponse);
end;
Function:
Delphi-Quellcode:
function TForm5.parseString(aString: string): string;
var start, ende: Integer;
MyStartString, MyEndString: string;
begin
// Anfangs Tag
MyStartString:= '<td nowrap class="yfnc_h" align="center">';
start := Pos(MyStartString, astring);
start := start + Length(MyStartString)+1;
// End Tag
MyEndString:= '</td>';
ende := PosEx(MyEndString,astring, start);
ItemSym := Copy(aString, start, ende-start);
Result := ItemSym;
end;
Nur leider was ich nicht wie ich es anstellen soll, dass nicht nur das erste Tag geliefert bekomme.
Er soll die Tags abarbeiten und die Ergebnisse liefern.
Könnt ihr mir vieleicht helfen?
HISTHIS