Entwickler-Ecke

Dateizugriff - String Suchen aus Datei heruaus bis bestimmten String


Biarchiv - So 14.07.02 18:38
Titel: String Suchen aus Datei heruaus bis bestimmten String
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 - So 14.07.02 23:02

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

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 - Do 29.08.02 03:27
Titel: ???
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 - Do 29.08.02 08:40

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