Funktionen für Stringoperationen
an CSV-Dateien
Einen Wert auslesen
Die CSV-Datei
wird hier mit Semikolons getrennt. Jeder Wert entspricht einer
Spalte, wobei die erste Spalte die Nummer
0 hat.
|
function
GetColValue(StringSalat: String;
Position: Integer): String;
var
Puffer: String;
n: Integer;
begin
Puffer := StringSalat;
for n :=
1 to
Position do
Puffer := copy(Puffer, pos(';',
Puffer) +1, length(Puffer));
if pos(';',
Puffer) > 0
then Puffer := copy(Puffer,
0, pos(';',
Puffer) -1);
Result := Puffer;
end; |
Syntax:
|
EinText := 'Das;ist;ein;Test;mit;CSV-Dateien'
s := GetColValue(EinText,3);
ShowMessage(s); // das
Ergebnis wird Test sein |
Einen Wert austauschen
|
function
ReplaceColValue(StringSalat: String;
Position: Integer; NewValue: String):
String;
var
PufferA, PufferB: String;
n: Integer;
begin
PufferA := StringSalat;
for n :=
1 to
Position do
begin
if
pos(';', PufferA) >
0 then
PufferB :=
PufferB +copy(PufferA, 0, pos(';',
PufferA))
else
PufferB :=
PufferB +PufferA;
PufferA := copy(PufferA, pos(';',
PufferA) +1, length(PufferA));
end;
PufferA := copy(PufferA, pos(';',
PufferA) +1, length(PufferA));
Result := PufferB +NewValue;
if PufferA <>
'' then
Result := Result +';';
Result := Result +PufferA;
end; |
Syntax:
|
EinText := 'Das;ist;ein;Test;mit;CSV-Dateien'
s := ReplaceColValue(EinText,3,'schöner
Test');
ShowMessage(s); // das
Ergebnis wird "Das;ist;ein;schöner Test;mit;CSV-Dateien" sein |
|