Forum: Sonstige Fragen zu Delphi
Delphi
by Moon,
11. Jun 2004
assignfile('C:\IK\Allgemein.txt')
reset(dat);
b:=geszeilen; // gesamt Zeilen hab ich vorher mit ner stringlist und strinlist.count ermittelt
for znr:=1 to b do
begin
ReadLn(dat,astr);
if (pos('Rang<',astr) <> 0) then // da Rang ohne Zusatz 3x vorkommt
b:=znr+1;
if znr=b then
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Moon,
11. Jun 2004
Edit: Zu früh gefreut...:
Wie bekomme ich das jetzt hin, dass er wenn das Wort "Rang" gefunden hat, dann in der nächsten Zeile erst die Werte ausliest ? Siehe Beispiel..
Edit2: Hab grad mal nachgedacht => Könnte man das nicht mit einer for-Schleife realisieren ? Ich müsste nur ermitteln wieviele Zeilen die txt-Datei und dann einfach von 1 bis "LängeDatei" laufen lassen. Kann das...
Forum: Sonstige Fragen zu Delphi
Delphi
by Moon,
11. Jun 2004
Nochmal vielen dank, aber ich bekomme da ein paar Fehlermeldungen bei deinem Code:
var dat: textfile;
i: integer;
i:=0; // Oben in der Variable wollte er das nicht =0 setzten
assignfile(dat,'C:\Dokumente und Einstellungen\Moon\Desktop\Woisserdenn\text.txt');
reset(dat);
while not EOF(dat) do
Forum: Sonstige Fragen zu Delphi
Delphi
by Moon,
10. Jun 2004
Vielen Dank schonmal! So langsam klingelt's.
Nochmal kurz die Erklärung in eigenen Worten:
copy(astring,9,5) würde bedeuten:
Gib mir im astring von Zeichen 9 an die nächsten 5 Zeichen aus ?!
zu den zeilen:
Wäre möglich, die Zeilen zu zählen, nur bin ich mir nicht sicher in wie fern sich der Quellcode "vor" Punkte noch verändert ...
Forum: Sonstige Fragen zu Delphi
Delphi
by Moon,
10. Jun 2004
Hi ich habe mir an folgendem Problem schon den Kopf zerbrochen:
Ich habe eine Textdatei, in der der Quellcode einer Homepage gepeichert ist. Jetzt möchte ich daraus einige Daten auslesen. Ich mache das am Besten mal direkt am Beispiel fest, dann muss ich nicht so viel erklären ;) :
So sieht (ein Teil) der allgemein.txt aus:
Die jeweils fettgedruckten Daten bräuchte ich...
Theoretische...
