Listenname an Prozedur zum füllen übergeben...
Verfasst: 10.05.2017 08:26
Guten Morgen zusammen...
Folgendes Problemchen: Ich möchte zwei Excel .csv-Dateien in eine Structur einlesen. Dazu habe ich eine kleine Prozedur gebastelt, die
die einzelnen Felder der .csv-Datei der Struktur zuweist. Da ich die Prozedur nicht zweimal im Code haben möchte um beide .csv-Dateien
einlesen zu können, möchte ich gerne den Namen der zu füllenden Liste an die Prozedur übergeben...
Könnt ihr mir dabei helfen?
Hier mal der Code um den es geht:
Folgendes Problemchen: Ich möchte zwei Excel .csv-Dateien in eine Structur einlesen. Dazu habe ich eine kleine Prozedur gebastelt, die
die einzelnen Felder der .csv-Datei der Struktur zuweist. Da ich die Prozedur nicht zweimal im Code haben möchte um beide .csv-Dateien
einlesen zu können, möchte ich gerne den Namen der zu füllenden Liste an die Prozedur übergeben...
Könnt ihr mir dabei helfen?
Hier mal der Code um den es geht:
Code: Alles auswählen
Structure CSVDATA_STRUCTURE
Id.s
Name.s
ActualValue.s
PersistentValue.s
Unit.s
MinValue.s
MaxValue.s
Comment.s
Status.s
EndStructure
Global NewList CSV_SFILE.CSVDATA_STRUCTURE()
Global NewList CSV_DFILE.CSVDATA_STRUCTURE()
Procedure ReadCSVDATA()
If OpenFile(0, "Z:\Daten\31001447424 NTM.csv")
While Eof(0) = 0
AddElement(CSV_SFILE())
inpLine.s = ReadString(0, #PB_Unicode)
With CSV_SFILE()
\Id = StringField(inpLine, 1, Chr(9))
\Name = StringField(inpLine, 2, Chr(9))
\ActualValue = StringField(inpLine, 3, Chr(9))
\PersistentValue = StringField(inpLine, 4, Chr(9))
\Unit = StringField(inpLine, 5, Chr(9))
\MinValue = StringField(inpLine, 6, Chr(9))
\MaxValue = StringField(inpLine, 7, Chr(9))
\Comment = StringField(inpLine, 8, Chr(9))
\Status = StringField(inpLine, 9, Chr(9))
Debug \Name
EndWith
Wend
CloseFile(0)
EndIf
EndProcedure
ReadCSVDATA()
;Sollte eigentlich so aufgerufen werden
;ReadCSVDATA([Dateiname, Listenname])
vielen Dank, das habe ich echt glatt überlesen!