Copy-Befehl / Pos-Befehl (bitte helfen)

[arest]

Hallo Leute,

ich hab eine Frage. Is eigentlich klar oder?^^ Naja zumindest lautet diese wie folgt: Ich habe eine Textdatei, aus der ich einzelne Zeilen per Readln in eine String-Variable lese. Das sind dann Zeilen, aus einem html.code und da die Position des gewünschten Textes aus der Variable variiert (^^) muss ich da wohl was mit copy und pos machen, habe allerdings nicht die volle Ahnung davon wie das geht. Ein Beispiel wäre das hier:

<td>...And You Will Know Us By The Trail Of Dead</td>
<td>Source Tags And Codes</td>


Der schief geschriebene Teil soll jetzt aus diesen Stringvariablen in neue Strings gespeichert werden. Das ganze läuft über eine Schleife ab... Es geht auch nur darum zu zeigen, dass es unterschiedlich lange Passagen vor und hinter dem gewünschten Teil gibt, die ich nicht gebrauchen kann. Vielleicht könnte mir hierzu jemand die "Grundlagen" über copy und pos erklären, da ich mir nicht sicher bin, ob das so ganz richtig ist, was ich bis jetzt darüber weiss.

Danke schon mal im Voraus, mfg arest

[Ultimator]

Ist der bzw. jeweils der einzige in den Zeilen, die du liest?
Wenn ja, dann lese jede Zeile wie gesagt einzeln aus und kopiere mit copy die Zeichen zwischen pos('', DeineZeile) und pos('', DeineZeile). Da pos dir die Positon des ersten vorkommens der Passage im ganzen String zurückgibt, ist die Länge des Ausschnittes, den du per copy kopieren musst pos('', DeineZeile) - pos('', DeineZeile). Denn copy erwartet 3 Parameter: 1. den String, aus dem kopiert werden soll 2. die Position darin, ab welcher kopiert werden soll 3. die Anzahl der zu kopierenden Zeichen.
Eigentlich alles nicht so schwer ;)

[Van HelF]

z.b.

Delphi-Quellcode:

var p:integer;
    erg:string;
begin
  p:=pos('ich suche','in diesem text');//p gibt dir dann die stelle an, an der "ich suche" beginnt
  erg:=copy('in diesem text',p,length('in diesem text')-p);
end;

habs zwar nicht getestet,sollte so eig funktionieren.
die strings können natürlich durch variablen ersetzt werden,...

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]