Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
24. Mai 2019
Sehe ich auch so, deshalb hier noch ein verbesserter Vorschlag unter Berücksichtigung von Schokohase und Uwes Empfehlung Odd vs. mod 2
procedure TClientDataSetCsvClassHelper.LoadFromFile;
var
myString :Variant;
slFile :TStringList;
slRow :TStringList;
x,i,j :Integer;
myPos :Integer;
myFields :Integer;
cntFields :Integer;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
23. Mai 2019
Dann klärt mich doch bitte auf, bevor wir weiter aneinander vorbeireden.
Das als Grundlage:
und ergänzt:
Apple systems define sLineBreak as simply a carriage return (#13).
Gruß
BP
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
21. Mai 2019
@Schokohase
Ich bin ja froh das deine Datei auch nicht die Anforderung erfüllt
mit dieser Version wird aber auch deine Datei eingelesen
procedure TClientDataSetCsvClassHelper.LoadFromFile;
var
myString :Variant;
slFile :TStringList;
slRow :TStringList;
x,i,j :Integer;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
19. Mai 2019
Nein, wenn du es selbst mal versucht hättest, würdest du nur zwei CrLf sehen.
Selbst mit Notepad+ gelingt es mir nicht, sonst würde ich nicht danach fragen.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
19. Mai 2019
Du sprichst immer von Dateien, könntest du mir das Beispiel als Datei zur Verfügung stellen?
Hab keine Lust dafür zu coden und möchte auch keinen Hex-Editor dafür bemühen.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
19. Mai 2019
Schön das du es erwähnst:
entspricht somit nicht der Spezi ;)
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
19. Mai 2019
Da hast du allerdings Recht.
If X=0 and (not FirstLineTitle)
Ich denke das tu ich schon, hast du meine Intention verstanden?
Und wie oft ist dir dein Beispiel im Alltag begegnet?
Wobei auch deine Konstellation unter meinen Voraussetzungen läuft.
Hmm:roll:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
19. Mai 2019
@Schokohase
Da bin ich mal froh, das mir das TStringlist schon abnimmt ;)
Try it!
@Rollo62
Header wird erzeugt wenn nicht vorhanden
@Uwe Raabe
Auch elegant gelöst!
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
19. Mai 2019
@Rollo62
könnte sein das du zu schnell drauf geschaut hast ;)
@MaBuSE
Um CrLf ging es mir gar nicht. Ich hatte Probleme mit Dateien die auch Linefeed als Satztrenner haben.
Bei Dateien mit CrLf als Satztrenner hätte vmtl. TStringList kein Problem.
Deinen Vorschlag mit RegEx werde ich mal testen, wobei es mir gar nicht um den erhalt ging.
@Schokohase
In der Art habe ich es gemacht,...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Blackpit,
16. Mai 2019
Hi Folks,
hier eine Implemtierung für LF in Quoted-Fields:
// v1.1 - 26.02.2019 - Blackpit: Anpassung LF in Quotes
/// /////////////////////////////////////////////////////////////////////////////
procedure TClientDataSetCsvClassHelper.LoadFromFile;
var
myString :Variant;