Hallo!
Diesmal wollte ich keine Strings zwischen Simikolons lesen, sondern schreiben. Ich habe die Explode Methode nur so bearbeitet, dass man auch mit Explode die nächsten Zeilen mit an List hängt. Im Klartext:
Quelltext
1:
2:
3:
4:
5:
6:
|
1;2;3;4 <---erste Zeile
5,6,7,8 <---zweite Zeile
.
.
. |
Hier die modifizierte Explode:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure explode(S: String; C: Char; List: TStrings);
Var
I, J: Integer;
begin
if S = '' then
exit;
J := 1;
for I := 1 to length(S) do
if S[I] = C then
begin
List.Add(Copy(S, J, I-J));
J := I+1;
end;
List.Add(Copy(S, J, I-J));
end; |
Jetzt will ich List auch wieder zurück schreiben. Leider kann Implode alles nur hintereinander hänger, und nicht wieder in Zeilen. Kann mir jemand helfen, wie ich nun mit Implode auch wieder zwischen Simikolons und Zeilen schreiben kann.
P.s. Die Anzahl der Simikolons in jeder Zeile sind zwar unterschiedlich, aber in jeder Datei gleich.
ebs