Hallo Detlef,
hier ein Beispiel.
' liest die Kundendatei nach einem bestimmten Feld sortiert.
Declare FeldName$,DateiName$,SatzN&,Anzahl&,OpCod$
' ---------------------------------------
'========================
' Programm Start
'========================
Cls @RGB(32,32,32)
' öffnen der Datei (Beispiel Kundendatei)
Let Anzahl& = @dbOpen(#1,"Kunden.dbf")
@dbUse(#1)
dbCreateIndex Feldname$ > Dateiname$ ' Feldname$ = danach soll sortiert gelesen werden
' Dateiname = wie die Indexdatei heissen soll (ohne
' Dateinamenerweiterung. ".ndx" erfolgt automatisch !
@dbIndex(Dateiname$)
Let SatzN% = 0
Let OpCod$ = "|<"
While (SatzN% < Anzahl&)
Inc SatzN%
@dbGo(OpCod$)
' hier den Satz auswerten z.B.
Print Name$ ' hier den Feldnamen einsetzen
Let OpCod$ = ">" ' für nächster Satz
EndWhile
waitinput
@dbClose(#1)
end
Mfg
Gerhard
|