probleme mit leerzeichen beim csv einlesen.

[agm65]

hallo leute, habe folgendes problem.
ich benutze um eine csv einzulesen folenden code von mkinzle.

Delphi-Quellcode:

var
   zeilennr: integer;
   DateiName, Zeile: String;
   F: TextFile;

begin

   OpenDialog.Execute;                 // Das Ergebnis steht in FileName
//   ShowMessage(OpenDialog1.FileName);
   DateiName := OpenDialog.FileName;   //Der Pfad wird in die Datei gestellt
   txtfilename.Text := DateiName;

   //   ShowMessage(DateiName);
   sl:=TStringList.Create; //Objekt erzeugen
   sl.Delimiter := ';';
   try
      //sl.LoadFromFile(DateiName);       //Datei in Stringliste laden
      AssignFile(F, OpenDialog.FileName);
      Reset(F);
      Readln(F, Zeile); //Erste Zeile laden
      sl.DelimitedText := Zeile; //Zeile der StringListe zuweisen, nun kann man mit der Eigenschaft Count die Anzal der           Spalten auslesen, die Spaltenname sthen dann in der Stringliste

      //sl.Strings[0] enthält Namen erste Spalte usw.

     While not Eof(F) do //Daten laden
      begin
         Readln(F, S);
         Edit1.Text := S;

         sl.DelimitedText := s; // Datenzeile wird in Stringliste geschrieben -< Auslesen wie Kopfspalte

      end;  


   finally


      //
      //sl.free; //Objekt wieder freigeben
      edit2.Text := inttostr(sl.count);
end;

die liesst auch wunderbar alles in die stringliste. wenn jetzt aber leerzeichen vorkommen, dann schreibt er pro leerzeichen 1 neue zeile, was kann ich dagegen machen ?

[mkinzler]

-Die Felder in der CSV Quoten
-Leerzeichen temporär ersetzen.

[smudo]

Das ist eine ziemlich unangenehme Eigenschaft von DelimitedText. Das läßt sich m.E. nur durch Überschreiben der Methode lösen.

René

[agm65]

hmm was hättet ihr für einen vorschlag, alle leerzeichen durch zB |$| oder sowas zu ersetzen und später wieder rückgänig zu machen. weil auf die csv dateien habe ich keinen einfluss.

[mkinzler]

Zitat:

Zitat von agm65

hmm was hättet ihr für einen vorschlag, alle leerzeichen durch zB |$| oder sowas zu ersetzen und später wieder rückgänig zu machen. weil auf die csv dateien habe ich keinen einfluss.

das meinte ich mit Leerzeichen temporär zu ersetzen ;-)

[agm65]

ach das nervt, jetzt kann ich für jeden string den ich da raus bekomme eine rückaction machen.

[agm65]

also ich wandel jetzt die leerzeichen in ° um, so:

Delphi-Quellcode:

while Pos(' ', s) > 0 do
s[Pos(' ', s)] := '°';

kann ich jetzt innerhalb der stringliste die einzelnen strings wieder ändern ?

Delphi-Quellcode:

for I := 0 to sl.Count - 1 do
begin
while Pos('°', sl.Strings[i]) > 0 do
sl.Strings[i][Pos('°', sl.Strings[i])] := ' ';
end;

das geht leider nicht ..jemand eine idee ?

[mkinzler]

Versuchs mal mit StringReplace

[agm65]

dann für den einzelnden string ? oder für die sl ?

[Luckie]

Guck dir mal Explode in der Code-Lib an.

[agm65]

ja danke werde ich machen. ich hab das gefühl, dass ich in der stringliste nichts verändern kann. dann muss ich beim übergeben von sl auf meinen string das machen ;(.

[agm65]

ach perfekt, geht doch !

Delphi-Quellcode:

var
i:integer;
begin
for I := 0 to sl.Count - 1 do
begin
sl.Strings[i] := StringReplace(sl.Strings[i],'°',' ',[rfReplaceAll, rfIgnoreCase]);
end;