Listenname an Prozedur zum füllen übergeben...

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Ghosty1967
Beiträge: 203
Registriert: 29.08.2005 13:56
Computerausstattung: Intel i7, 128GB Ram, Win10 Ultimate, PB6.00 Alpha 3
Wohnort: Köln

Listenname an Prozedur zum füllen übergeben...

Beitrag von Ghosty1967 »

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:

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])

Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Listenname an Prozedur zum füllen übergeben...

Beitrag von RSBasic »

In der PB-Hilfe auf der Seite "Prozeduren" gibt es ein Beispielcode: http://purearea.net/pb/german/manual/re ... dures.html
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
Ghosty1967
Beiträge: 203
Registriert: 29.08.2005 13:56
Computerausstattung: Intel i7, 128GB Ram, Win10 Ultimate, PB6.00 Alpha 3
Wohnort: Köln

Re: Listenname an Prozedur zum füllen übergeben...

Beitrag von Ghosty1967 »

... :oops: vielen Dank, das habe ich echt glatt überlesen!
Antworten