AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi CSV Datei einlesen funktioniert aber nicht richtig

CSV Datei einlesen funktioniert aber nicht richtig

Ein Thema von Christian18 · begonnen am 30. Nov 2004 · letzter Beitrag vom 30. Nov 2004
Antwort Antwort
Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#1

CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 11:34
hallo,

ich habe ein kleiner Programm geschrieben, womit ich eine CSV Datei auslesen kann und die Daten die ausgelesen werden, werden in eine Paradox7 Tabelle gespeichert. Ich habe bloß ein Problem. hier erst einmal mein Code:

Delphi-Quellcode:
procedure TFMain.Button1Click(Sender: TObject);
  var open1 : TOpenDialog;
      s : String;
      l : TStringList;
      f : TextFile;
begin
  open1:=TOpenDialog.Create(self);

  l:=TStringList.Create();

  // Kapitel einlesen
  if
    open1.Execute
  then
    begin
      AssignFile(f, open1.FileName);
      Reset(f);
      while not Eof(f) do begin
        Readln(f, s);
        l.Delimiter:=';';
        l.DelimitedText:=s;
        TKapitel.Append;
        TKapitelAmtlicherOPS.AsString:=l[0];
        TKapitelKapitelnummer.AsString:=l[1];
        TKapitelKapiteltitel.AsString:=l[2];
        TKapitel.Post;
      end;
      CloseFile(f);
    end;
end;
so sieht ein Tag aus den ich einlese:

1;9;ERGÄNZENDE MASSNAHMEN

das einlesen funktioniert auch alles soweit ganz gut. aber in meiner DB wird in der letzten Spalte nur das erste Wort eingetragen. Also hier beim Bsp.: ERGÄNZENDE

es soll aber ERGÄNZENDE MASSNAHMEN in der Datenbank gespeichert werden. Und mein problem ist jetzt ich weiß nicht, ob es am einlesen der csv datei liegt oder am speichern???

PS: Kann mir jemand helfen???

Mit freundlichen Grüßen

Christian18
  Mit Zitat antworten Zitat
bttb930

Registriert seit: 6. Okt 2003
372 Beiträge
 
#2

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 12:13
ich glaub es liegt am readln - das liest bis zum freizeichen

les die datei doch auch in eine TStringList ein und durchlaufe die dann...
  Mit Zitat antworten Zitat
Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#3

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 12:31
Hallo,

readln überliest ein Leerzeichen, daran kann es nicht liegen, aber ist ein Leerzeichen nicht auch automatisch ein Delimiter?
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
Benutzerbild von runningsoft
runningsoft

Registriert seit: 8. Okt 2004
Ort: Bernau
108 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 12:33
Oder probiere doch einmal, Deinen gesamten String mit einem Semikolon abzuschließen.

l.DelimitedText:=s + ';'; Steffen
Steffen
  Mit Zitat antworten Zitat
Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#5

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 13:15
Zitat von runningsoft:
Oder probiere doch einmal, Deinen gesamten String mit einem Semikolon abzuschließen.

l.DelimitedText:=s + ';'; Steffen
Hallo,

es funktioniert leider aucch nicht, wenn ich an meinen String noch ein ; anhänge. Woran kann es noch liegen???

mit freundlichen Grüßen

Christian18
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#6

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 13:18
Zitat von MrSpock:
...aber ist ein Leerzeichen nicht auch automatisch ein Delimiter?
Ich meine nein.

@Christian: Kannst Du die CSV mal anhängen?
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Hansi

Registriert seit: 8. Okt 2004
271 Beiträge
 
#7

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 13:20
Probiers mal mit der Copy Funktion!

Habe leider jetzt kein Code dabei. Aber so müsste es funktionieren

String:=copy(1.Position bis ";")
Delete(1. Position bis "j")
  Mit Zitat antworten Zitat
bttb930

Registriert seit: 6. Okt 2003
372 Beiträge
 
#8

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 14:00
machs so
Delphi-Quellcode:
function GetNextPart(const aLine: string; var aPart, aRest: string; aDelimiter: string = ';');
var
  p: Integer;
begin
  if Pos(aDelimiter, aLine) > 0 then
  begin
    aPart := Copy(aLine, 1, p - 1);
    aRest := Copy(aLine, p + Length(aDelimiter), Length(aLine));
  end
  else
  begin
    aPart := aLine;
    aRest := '';
  end;
end;

procedure SplitLine(const aLine: string);
var
  Part, Rest: string;
begin
  Rest := aLine;
  while Rest <> 'do
  begin
    GetNextPart(Rest, Part, Rest);
    DoSomething(Part);
  end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von jim_raynor
jim_raynor

Registriert seit: 17. Okt 2004
Ort: Berlin
1.251 Beiträge
 
Delphi 5 Standard
 
#9

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 14:05
zwei Sachen hab ich anzumerken.

1. Zu deinem Problem: Ist das Feld auch wirklich groß genug? Wenn ja, schau dir doch mal in Debugger die einzelnen Werte an.

2. Wenn du ein Objekt mit Create erstellst, solltest du es auch wieder mit free freigeben, wenn du es nicht mehr brauchst. Hinterlässt sonst hässliche Speicher-Lecks.
Christian Reich
Schaut euch mein X-COM Remake X-Force: Fight For Destiny ( http://www.xforce-online.de ) an.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

Re: CSV Datei einlesen funktioniert aber nicht richtig

  Alt 30. Nov 2004, 14:35
Wie wäre es mit explodeexplode?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz