Zu blöd eine Datasection zu parsen

[alen]

Hallo Zusammen,

ich stell mich mit dem Parsen von Daten aus einer DataSection ein wenig dumm an.

Ich habe hier sowas:

Code: Alles auswählen

DataSection
  DBData:
    Data.S "Peter","Pan"
    Data.S "Alfred","E.Neumann"
    Data.S "Willibald","Müller"
    Data.S "Egon","Anfänger"
EndDataSection

Nun möchte ich diese Daten in einer Schleife auslesen aber kriege nix brauchbares auf die Reihe.
Habe es so versucht:

Code: Alles auswählen

Restore DBData
repeat
  read.s vorname
  read.s nachnahme 
until vorname.s <> ""

Wenn ich das ganze mit einer for .. next schleife mit festen Länge durchlaufe klappt es.
Aber ich kenne die Anzahl der Zeilen nicht im Voraus. Daher der andere Ansatz.

Bekomme aus der PB Hilfe aber keinen Hinweis und im Forum sind meine Suchversuche auch nicht erfolgreich. Ich will aber nicht ausschliessen das ich nach den falschen Begriffen gesucht habe.

Hat hier jemand mal einen Tipp oder einen Ansatz.
Bin dankbar für jegliche Hilfe.

Vielen Dank im Voraus.

Grüße
alen

[Kaeru Gaman]

dein until ist falsch, weil der vorname immer nicht leer ist.
und du brauchst eine ende-markierung, damit der Read-Vorgang nicht ins Leere greift.

Code: Alles auswählen

Define vorname.s
Define nachnahme.s

Restore DBData
Repeat
  Read.s vorname
  Read.s nachnahme
  Debug nachnahme + ", " + vorname
Until vorname = "#"

DataSection
  DBData:
    Data.S "Peter","Pan"
    Data.S "Alfred","E.Neumann"
    Data.S "Willibald","Müller"
    Data.S "Egon","Anfänger"
    Data.s "#", "#"
EndDataSection

[ts-soft]

Statt der Raute gehts natürlich auch mit einem leerem string:

Code: Alles auswählen

EnableExplicit

DataSection
  DBData:
  Data.s "Peter", "Pan"
  Data.s "Alfred", "E.Neumann"
  Data.s "Willibald", "Müller"
  Data.s "Egon", "Anfänger"
  Data.s "", ""
EndDataSection

Define.s vorname, nachnahme
Restore DBData
Repeat
  Read.s vorname
  Read.s nachnahme
Until vorname = ""

[Kaeru Gaman]

wobei natürlich anzumerken ist, dass dort dann trotzdem bei beiden #NULL markierungen für die beiden String-Enden in die DataSection geschrieben werden und nicht ganix...

[alen]

Hallo Zusammen,

auch wenn ich PHP und Python versaut bin, oder auch eben deswegen, muss ich PB erstmal immerwieder neu lernen. Vor allem nach langen Pausen.

Danke für Eure Hilfe
Es hat funktioniert.

Grüße
alen

[Josef Sniatecki]

wobei natürlich anzumerken ist, dass dort dann trotzdem bei beiden #NULL markierungen für die beiden String-Enden in die DataSection geschrieben werden und nicht ganix...

Und deswegen nutze ich mein Zeigerverfahren :

Code: Alles auswählen

Global *Pointer.Character, *First.Character
Global Vorname.s, Nachname.s


*Pointer = ?Start
Repeat
  ; Startposition des ersten Zeichens merken:
  *First = *Pointer
  ; Alle Zeichen bis zur terminierenden Null überspringen:
  While *Pointer\c
    *Pointer + SizeOf(Character)
  Wend
  ; Zeichen von "First" bis "Pointer" in "Vorname" einlesen:
  Vorname = PeekS(*First, *Pointer - *Start)
  
  *Pointer + SizeOf(Character)
  
  ; Startposition des ersten Zeichens merken:
  *First = *Pointer
  ; Alle Zeichen bis zur terminierenden Null überspringen:
  While *Pointer\c
    *Pointer + SizeOf(Character)
  Wend
  ; Zeichen von "First" bis "Pointer" in "Nachname" einlesen:
  Nachname = PeekS(*First, *Pointer - *Start)
  
  *Pointer + SizeOf(Character)
  
  Debug Vorname + " " + Nachname
Until *Pointer = ?Finish

DataSection
  Start:
    Data.s "Josef"     , "Sniatecki"
    Data.s "Leif"      , "Paulus"
    Data.s "Maximilian", "Roth"
  Finish:
EndDataSection