Deutsches Lazarusforum

Hallo zusammen,

ich habe mal wieder eine Frage..
Und zwar habe ich eine Datei die wie folgt aussieht in ein Array geladen:

19.04.2017 19:15;[b]A 9079/A 9078;0987654321/123;[/b]18;1,254461538461537;
19.04.2017 20:00;[b]A 9079/A 9078;0987654321/123;[/b]27;1,26549467;
19.04.2017 20:00;190779 ...

Hallo Mathias,

Wieso hast du eine repaet until Schleife, anstelle einer for to ?
Weil es für mich irgendwie einfacher ist. Gibt's da Vor- oder Nachteile bei einer "FOR TO-Schleife"?

Hallo wp_xyz,

Habe ich das Problem richtig verstanden? Du hast eine aus Excel exportierte Text-Datei, in der ...

Dank Mathias bin ich jetzt schon viel weiter:

Mein Code sieht jetzt so aus und ich bin soweit zufrieden:


procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
SLArray: TStringArray;
i, j, zaehler1,zaehler2, Zeilenende,Spaltenende : Integer;
begin
ListBox1.Items.LoadFromFile(CSVFile ...

Habe mir jetzt eine Art Zähler gebaut und probiere morgen in neuer Frische meine .TXT zu basteln, vielen Dank nochmal Mathias für die Hilfe.


procedure TForm1.Button4Click(Sender: TObject);
var sa :TStringArray;
zaehler :Integer;
s :String;
begin

ListBox1.Items.LoadFromFile(CSVFileName);
s ...

Hallo Mathias,

danke erstmal für deine rasche Rückmeldung.
Das hilft mir erstmal weiter.

Jedoch habe ich fragen zur Ausgabe:

Die Ausgabe ist ja davon abhängig wieviele Lieferabrufe ich habe..
Dementsprechend müsste er ja rein theoretisch errechnen wie oft Satzart 512 -514 benötigt werden und ...

Hallo zusammen,

ich bin gerade am Verzweifeln wie ich meine Daten in einer Stringlist richtig verarbeitet bekomme.

Meine Stringlist sieht wie folgt aus (Export aus Excel):

;;;;
;;;;
Datum;Ueberschrift 1;Ueberschrift 2;Ueberschrift 3;Ueberschrift 4
;;;;
06.04.2017 12:00;Artk.1;;Sachnr.;0
06.04 ...

Hallo noobynerd,

bin blutiger Anfänger probiere dir aber trotzdem mal ein Ideenvorschlag zu geben.
Probier es mal ohne Datenbank:


var
sl: TStrings;
begin
sl := TStringList.Create;

sl.LoadFromFile(CSVFileName);
Listbox1.Items.Clear;
ListBox1.Items.Add('Festerwert'+sl[1]+' ' + sl[2 ...

Jagut klingt logisch...

Ohje shon bisschen peinlich.. Tut mir Leid. Aber vielen Dank.

Hallo wp_xyz,

ich habe einfach mal den Wert direkt auf 1 gesetzt und es hat funktioniert. So wie bei dir.

procedure TForm1.ButtonClick(Sender: TObject);
var
wb : TsWorkbook;
i : Integer;
begin
wb := TsWorkbook.Create;
try
wb.ReadFromFile('C:\TEMP\ExcelFiles\Test.xlsm');
CSVParams ...

Müsste ich mit diesem Code nicht alle Worksheets als CSV bekommen?

procedure TForm1.ButtonClick(Sender: TObject);
var
wb : TsWorkbook;
i : Integer;
begin
wb := TsWorkbook.Create;
try
wb.ReadFromFile('C:\TEMP\ExcelFiles\Test.xlsm');

for i = 0 to wb.GetWorksheetCount-1 do begin
wb ...

Hallo wp_xyz,

erstmal danke mal wieder für deine Mühe. Jetzt habe ich das mit dem Worksheet verstanden, aber was haben CSVParams mit den FPSpreadsheet zu tuen?
Darf ich dich mal Fragen, woher du das alles so weißt? :D :P

Nagut, ich habe das Ganze mal probiert. Jedoch schreibt der mir kurioseweise ...

Hallo zusammen,

habe mal wieder eine Frage zu meinem Code:
Ich würde gerne ein WS auswählen und das gewählte WS als CSV speichern


procedure TForm1.Button2Click(Sender: TObject);
var
wb : TsWorkbook;
ws : TsWorksheet;
begin
wb := TsWorkbook.Create;
ws := TsWorksheet.Create;
try
wb ...

Ok, werde ich morgen erneut probieren.
Danke für deine Mühe und Hilfsbereitschaft.

http://wiki.freepascal.org/Lazarus_Packages/de

Ok habe das mit dem Package ins Projekt einbinden gefunden. :)
Danke für die Mühe. Und da das ja fpsexport nicht in den units zu suchen hat, habe ich es einfach mal rausgenommen und jetzt kann ich erstmal ohne Probleme arbeite. Vielen Dank für deine ...

Genau die Strukur habe ich auch und unter Sources findet man die ganzen .lpk + .pas Dateien.

Damit hast du das Package der IDE bekannt gemacht. Wenn du in einem Projekt FPSpreadsheet brauchst, öffnest du die Projekt-Optionen ("Projekt" > "Projekteinstellungen"), "Hinzufügen" > "Neue Anforderung ...