String Suchen aus Datei heruaus bis bestimmten String

Biarchiv · Beiträge: 688

Hallo,

Wie kann ich z.B.: von einer Datei ab einen bestimmten String alle Bytes in eine eigene
Datei hineinschreiben bis einen andere bestimmten String.

b.brecht · Beiträge: 81

simpelste lösung:
du lädst die Datei in ein TMemo und machst dann folgendes:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function search(memo:TMemo; anfang,ende:string):string;
var a:integer; ok:boolean;
begin
  a:=0;
  ok:=false;
  Result:='';
  REPEAT
    a:=a+1;
    if ok=true then Result:=Result+memo.text[a];
    If memo.text[a]=anfang then 
    begin
      Result:=Result+memo.text[a];
      ok:=true;
    end;
  UNTIL memo.text[a]=ende;
end;

webrage · Hält's aus hier Beiträge: 14

das vestehe ich nicht ...
nehmen wir an ich suche alle links <a href="blablabla">
ich brauche also das blablabla aus allen links aus der seite

also praktisch immer das, was zwischen <a href=" und dem nächsten " steht

wie soll das damit gehen ???

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo,

es ist für Dich wahrscheinlich am besten die Datei in eine tStringList zu laden und dann in einer For-Next-Schleife die Zeilen durchsuchen (oder gleich über das Property Text gehen). Das suchen könntest Du über die Funktion Pos erledigen. Mit den Methoden Copy und/oder Delete kannst Du den Rest erledigen.

Schau am besten einmal in die Hilfe und lass Dir mal die Informaionen zu den o. g. Methoden anzeigen.

Gruß
TINO

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme