Memo Komponente Wörter rausfiltern
Hi!
Ich bin neu hier und habe ein Problem ich hoffe ihr könnt helfen. Ich hab über den Webbrowser den Quelltext in eine Memo datei gespeichert. Jetzt zb:
Delphi-Quellcode:
Jetzt möchte ich durch einen Button filtern .Die Nummer hinter view.php?ad= also in diesem Falle 21702 in ein 2tes Memofeld speichern.
<td width="70%" class="class2" style="FONT-FAMILY: Verdana; FONT-SIZE: 11px; BACKGROUND-COLOR: #ffffff; border:solid 1px #999999; border-top:none;"><span style="margin-left: 3px;">
<a href=view.php?ad=21702 target=_blank>New! Wie erreiche ich ,dass ich die Nummer dahinter speichern kann? Meine Überlegung war wie immer mit einer Zählschleife das zu machen bitte helft mir , Danke. |
Re: Memo Komponente Wörter rausfiltern
.....
|
Re: Memo Komponente Wörter rausfiltern
Pos, Copy
|
Re: Memo Komponente Wörter rausfiltern
Ich hab den Quelltext aus der Twebbrowser Komponente von Delphi in ein Delphi Memo gespeichert und jetzt möchte ich die Memodatei filtern.
Ich benutze Delphi 7. |
Re: Memo Komponente Wörter rausfiltern
Hallo, willkommen in der DP :dp:
Wenn der String immer nur einmal vorkommt, sollte das im Prinzip recht einfach sein: Zunächst die Position des eindeutigen Strings innerhalb des Memos ermitteln
Delphi-Quellcode:
Wird dieser String gefunden, dahinter solange Zeichen einlesen, bis ein Leerzeichen kommt.
iPos := Pos(Memo.Text,'view.php?ad=');
Delphi-Quellcode:
Getippt und nicht getestet.
SuchString := '';
SuchPos := iPos + Length('view.php?ad='); while (SuchPos < Length(Memo.Text) and (Memo.Text[SuchPos] <> #32) do begin SuchString := SuchString + Memo.Text[SuchPos]; inc(SuchPos); end; |
Re: Memo Komponente Wörter rausfiltern
Danke für die schnelle Antwort,
view.php?ad= kommt öfters vor. Ich hab grade die Methode getestet Ich weiss nicht ob das mit der Deklaration stimmt :
Delphi-Quellcode:
Ich bekomme den Fehler
var ipos,suchpos:integer;suchstring:string;
Delphi-Quellcode:
[Fehler] m_test.pas(74): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] m_test.pas(74): Operator ist auf diesen Operandentyp nicht anwendbar
|
Re: Memo Komponente Wörter rausfiltern
zeig uns mal bitte zeile 74
|
Re: Memo Komponente Wörter rausfiltern
Delphi-Quellcode:
while (SuchPos < Length(Memo1.Text) and (Memo1.Text[SuchPos] <> #32) do
|
Re: Memo Komponente Wörter rausfiltern
Sorry, da fehlt eine Klammer.
Delphi-Quellcode:
while (SuchPos < Length(Memo1.Text)) and (Memo1.Text[SuchPos] <> #32) do
|
Re: Memo Komponente Wörter rausfiltern
Vielen Dank,
es läuft zwar aber wenn ich
Delphi-Quellcode:
benutze
memo2.Lines.add(suchstring);
um dieses in memo2 zu speicher kommt sowas bei rau
Delphi-Quellcode:
t
tM tMa tMar tMarg tMargi tMargin tMargin= tMargin=0 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:51 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