Hallo, kann jemand weiter helfen?
Aus meiner Datenbank muss ich eine txt-Datei exportieren.Die Satzlänge ist 128. Das funktioniert bei allen Sätzen bis auf den letzten Satz, der 20 Zeichen zu wenig bringt.
Delphi
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| while not tblASatz.Eof do begin sLineString := ''; sLineString := sLineString + 'A'; sLineString := sLineString + FillStr(tblASatz.FieldByName('Nr').AsString, 7, '0', taRightJustify); sLineString := sLineString + FillStr(tblASatz.FieldByName('Ordnungsbegriff').AsString, 13, ' ', taRightJustify); sLineString := sLineString + FillStr(tblASatz.FieldByName('Nutzer_Nr').AsString, 20, ' ', taLeftJustify); sLineString := sLineString + FillStr(tblASatz.FieldByName('art').AsString, 1, '0', taRightJustify); sLineString := sLineString + FillStr('', 86, ' ', taRightJustify); Writeln(fExportFile,sLineString); tblASatz.Next; end; tblASatz.Close; |
Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| A00312001084800000720006060 0......................................................................................//Satzende A00312001084800000730006059 0......................................................................................//Satzende A00312001084800000740006058 0......................................................................................//Satzende A00312001084800000750006061 0......................................................................................//Satzende A00312001084800000760006074 0......................................................................................//Satzende A00312001084800000770006075 0......................................................................................//Satzende A00312001084800000780006076 0......................................................................................//Satzende A00312001084800000790006073 0.....................................................................//Satzende |
Was kann man hier eventuell ändern?
Danke schon mal im Voraus!!
Moderiert von Th69: Delphi-Tags hinzugefügt
Moderiert von Th69: Titel geändert.Moderiert von Th69: Topic aus Datenbanken (inkl. ADO.NET) verschoben am Di 17.04.2018 um 08:52