Moin moin & Hallo,
ich bin momentan echt am verzweifeln und hoffe das jemand mir helfen kann.
Ich habe eine Excel Datei von der ich Werte in eine .dat speichere.
Meine Vorgehensweise ist dabei wie folgt.
Ich definiere die Überschriften der Spalten als Variablen (MaxMenge, MinMenge, etc.)
z.B. Dim MaxMenge As String * 17
Dim MinMenge As String * 17
Dann befülle ich meine Variable mit dem Wert aus der benötigten Celle
z.B. MaxMenge = Cells(iZeile, 1) (99.999.899,000)
MinMenge = Cells(iZeile, 2) (0,000)
Damit ich meine Werte in die .dat schreiben kann, benutze ich Print #1
z.B String = MaxMenge & MinMenge
Print #1, String
Jetzt kommen wir zu meinem Problem.
Da ich die länger der einzelnen Strings angegeben habe, sind die einzelnen Feldgrößen passend.
(Dies ist auch sehr wichtig)
(Bei dem Orginal/Vorgabe & Meiner .dat sind die Feld Größen alle gleich.)
Wenn ich jetzt meine Daten in die .dat schreibe, sieht es so aus.
03N268000010128.07.2009 1 02684 KG 0,000 99.999.899,000
03N268000020128.07.2009 1 02684 KG 0,000 99.999.899,000
03N268000030128.07.2009 1 02684 KG 0,000 99.999.899,000
Aber leider müssen die Daten rechtsbündig in die .dat geschrieben werden, damit das System die Daten auch richtig erkennen kann.
So sollte es aus sehen.
03N000001110121.06.2016 1 02684 KG 0,000 99.999.999,000
03N000001110221.06.2016 1 02684 KG 0,000 99.999.999,000
03N000001110321.06.2016 1 02684 KG 0,000 99.999.999,000
Falls noch fragen zu meinem Problem sind, stehe ich Ihnen gerne zur Verfügung.
Mit freundlichen Grüßen
Andre
|