Entwickler-Ecke :: Thema anzeigen - Textdatei auslesen mit verschieden Werten

Krawatte - Sa 01.03.03 14:25
Titel: Textdatei auslesen mit verschieden Werten

Hallo,

vieleicht kann mir ja jemand helfen. Folgendes Problem habe ich. Es gibt eine Textdatei mit unzähligen Datensätzen wobei jede Position einen bestimten Wert beinhaltet. Wie jann ich nun z.B den Wert 1,2 auslesen und in eine Variable soeichern. Oder gibt es eine andere Möglichkeit ? Hier der 1. Versuch.

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

AssignFile(jahrlei,'C:\Daten\Jahrbuch\jahrlei.txt'); 
reset(jahrlei); 

table1.open; 
x:=0; 
up:=0; 
inn:=0; 
i:=0; 
repeat 
i:=i+1; 
merk:=0; 
x:=x+1; 

readln(jahrlei,vv); 
Application.ProcessMessages; 

// Land 
for j:=1 to 2 do land[j-0]:=vv[j]; 
bi:=2; 
land[0]:=chr(bi); 
edit1.Visible:=TRUE; 
edit1.text:=land; 
until(eof(jahrlei)); 

// Kreis 
repeat 
for j:=3 to 4 do kreis[j-2]:=vv[j]; 
bi:=2; 
kreis[0]:=chr(bi); 
until(eof(jahrlei)); 

// Betriebsnummer 
repeat 
for j:=5 to 12 do bnr[j-4]:=vv[j]; 
bi:=8; 
bnr[0]:=chr(bi); 
edit2.visible:=TRUE; 
edit2.text:=kreis; 
until(eof(jahrlei));

leider funktioniert das nich so wie ich es mir vorgestellt habe.

Moderiert von Tino: Code-Tags hinzugefügt.

Krawatte - So 02.03.03 12:25
Titel: Textdatei auslesen

Hier das Beispiel der Textdatei

Quelltext

1:

1270900201210000000011000032820000845820001100003411000028420001100000326000230000692000020673100023000086810000715500000000000000000100000305000006930000010000028400000220000010000002700001000002880000087150000100000360000002850000000000000

Das ist ein Datensatz von vielen.

Mfg Krawatte

Moderiert von Tino: Code-Tags hinzugefügt.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!