Text (ASCII) Datei

[jo1234]

@mkinzler

Hallo

ich bräuchte nochmals Deine Hilfe:

Es kommt bei der Ausführung der Zeile

sl2.ValueFromIndex[0] := sl1.ValueFromIndex[2];

die Fehlermeldung "Listenindex überschreitet das Maximum(0)"

Was kann ich hier tun?

Danke!!

[Klaus01]

Kann es sein, daß sl2 nach dem create noch keinen String auf Indexposition 0 liegen hat?
sl2[0] := sl1.ValueFromIndex[2];

könnte vielleicht besser sein.

Grüße
Klaus

[mkinzler]

Ersetze die Zeile sl2.DelimitedText := ''; durch sl2.DelimitedText := ';;;;;;'; oder
benzutze  sl2.Add( sl1.ValueFromIndex[2]); usw.

Problem liegt daran das durch das Setzen das Textes auf '' die Anzahl der Einträge der Stringliste auf 0 gesetzt wird.

[mkinzler]

Du kannst natürlich das Ganze auch vereinfachen auf die 2. Strinliste sl2 verzichten und den String s2 direkt setzten mit  s2 := sl1.ValueFromIndex[2] + ';'+sl1.ValueFromIndex[1]+';'+ ...

[Catbytes]

Zitat von markusj:

Hallo @ all

Ich denke, hier könnte man auch einfach mit einem Stream arbeiten, der Zeichenweise nach einem " " sucht und es durch ein ";" ersetzt ...

Das war auch meine erste Idee - bis mir als Straßenname z.B. "Am Bahnhof" oder sowas einfiel... :-/

Oder als Stadtname "Frankfurt am Main" etc...

Der Urheber der "Urdatei" hat sich keine großen Gedanken über die weitere Verarbeitung gemacht

[jo1234]

@All

Der Urheber der "Urdatei" hat sich tatsächl. keine großen Gedanken gemacht.
Ich muß jetzt aus der Exportdatei (Urdatei) eines alten Warenwirtschaftsprogrammes
ein File erstellen, das die Datev-Buchhaltung als ASCII-Datei importieren kann.
In der Exportdatei sind nur Leerzeichen als Trenner zugelassen (warum auch immer).

Da aber manchmal zwischen zwei Felder kein Trennzeichen (Leerzeichen) ist, habe ich es doch
mit readln,copy,writeln realisiert, da ich hier die Position und die Länge angeben kann.
Es funktioniert soweit auch ganz gut.
Ich kann somit auch die Problematiik von @Catbytes umgehen ('Am Bahnhof').

Besten Dank nochmals für die super Hilfe.
Ich werde dem Forum treu bleiben.

Reiner