Textdatei - Inhalt ab bestimmten Punkt in Zeile einlesen

[Svenkan]

Ich habe eine PHP-Datei (Config vom wBB).
Nun möchte ich z.B. aus der Zeile

Code:

$sqlhost = "localhost";

das localhost auslesen und in ein Textfeld übergeben lassen.
Nur hab ich leider keine Ahnung, wie ich den Curser dahin setzen kann, damit er auch wirklich nur dies liest. Ist das überhaupt möglich?

[Klaus01]

Guten Abend,

mit der Funktion pos kannst Du feststellen ob ein bestimmter SubString in Deinem String existiert.
Wenn der SubString in dem String enthalten ist, gibt pos Dir die Position des Substrings aus.

Grüße
Klaus

[himitsu]

Mit PosEx kannst du dann auch nachfolgend noch was Suchen und per Copy kann man sich den betreffenden Abschnitt rauskopieren

man könnte jetzt zwar

Delphi-Quellcode:

i  := Pos('$sqlhost = "', S);
i2 := PosEx('"', S, i + 1);
S2 := Copy(S, i + 1, i2 - i - 1);
// oder
i  := Pos('$sqlhost', S) + 4;
i2 := PosEx('"', S, i + 1);
S2 := Copy(S, i + 1, i2 - i - 1);

gleich den ganzen Suchsting suchen, aber wenn da noch ein paar Leerzeichen mehr/weniger um das = drum sind, dann geht es nicht mehr, also wäre es besser, wenn man sich dem Stringanfang nähert.

Delphi-Quellcode:

S := '... $sqlhost = "localhost"; ...';

i  := Pos('$sqlhost', S);
i  := PosEx('"', S, i + 1);
i2 := PosEx('"', S, i + 1);
S2 := Copy(S, i + 1, i2 - i - 1);

// in S2 ist dann 'localhost' drin

(! ungetestet)

[Svenkan]

Das klappt schonmal.
Müsste ich nun, um eine bestimmte Zeile auszulesen und dort nach etwas zu suchen, dies über ReadLn machen?

[Klaus01]

Du könntest die Datei auch in eine StringList laden und direkt auf eine bestimmte Zeile zugreifen.

Delphi-Quellcode:

sl := TStringList.create;
sl.loadFromFile('FileName');

// auf eine Zeile zugreifen
// sl[i]

sl.free;

Grüße
Klaus

[Svenkan]

Ma ne ganz blöde Frage.....
Wo find ich denn die StringList? xD
Ich finds beim besten Willen nirgends oO

[Klaus01]

TStringList ist keine visuelle Komponente.

Du kannst Sie z.B. hier vereinbaren:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    sl: TStringList;
    { Private declarations }
  public
    { Public declarations }
  end;

Grüße
Klaus

[Svenkan]

So langsam häuft sich ja immer mehr Wissen an..
Kann ich bald auch ma Hilfe geben, statt nur nehmen. ^^
Danke.
Jetzt funktioniert alles, wie ichs will.