Geht bei mir, schon die "neue" PB 4.20 von heute Mittag geladen?STARGÅTE hat geschrieben:Das hier ging auch bis zu 4.20, wieso jetzt nicht mehr ?Code: Alles auswählen
For n=1 To 2 : Next : Debug n
Edit: Man TiSi warum bist du so schnell?

Geht bei mir, schon die "neue" PB 4.20 von heute Mittag geladen?STARGÅTE hat geschrieben:Das hier ging auch bis zu 4.20, wieso jetzt nicht mehr ?Code: Alles auswählen
For n=1 To 2 : Next : Debug n
Code: Alles auswählen
ReadFile(0, Dateiname)
Code: Alles auswählen
Closefile(0)
Code: Alles auswählen
File=ReadFile(#PB_Any, Dateiname)
Code: Alles auswählen
Closefile(File)
Code: Alles auswählen
Debug ReadFile(0, "bla.text")
CloseFile(0)
Code: Alles auswählen
IncludeFile "droopy.pb"
Sender.s
IPAdresse.s
i.l
LdbCreate("sender.db","Sender,IPAdresse")
LdbOpen("sender.db")
If ReadFile(0, "Sender.dat")
While Not Eof(0)
Sender=ReadString(0)
IPAdresse=ReadString(0)
LdbInsertRecord(-1)
LdbWrite(1,Sender) ; 1st field
LdbWrite(2,IPAdresse) ; 2nd field
Wend
For i=1 To LdbCountRecord()
LdbSetPointer(i)
Debug LdbRead(1)
Debug LdbRead(2)
Next
LdbSaveDatabase()
LdbCloseDatabase()
CloseFile(0) ;<------
EndIf