OWBasic

Gruppe FILEBUFFER Start INTRO Alphabetischer Index

Beispiel für das Lesen von Zeichenketten aus dem Dateipuffer

Das Beispiel zeigt die Verwendung von FBSTRING zum Lesen von Zeichenketten aus dem Dateipuffer:


! Lesen des ersten MEMO in Kategorie 2
fp=-1
FILENEXT 3,2,fp: ! fp auf den ersten Datensatz
FILEREAD 3,2,fp: ! Datensatz (=MEMO) lesen
FBINIT:          ! internen Zeiger auf Anfang des Puffers
$m
  s$=FBSTRING$(rc): ! String auslesen
  if rc>0 goto mend: ! Memoende -> fertig 
  ? s$ :            ! String ausgeben
  goto m :          ! weiter 
$mend


Gruppe FILEBUFFER Start INTRO Alphabetischer Index