Information générale
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
You should use filepointer instead of the filename:
Private CodeLine
CodeLine = ""
lnfp=Fcreate("Begin.prg",0)
CodeLine = "Close tables"
Fwrite(lnfp,CodeLine)
....
Fclose(lnfp)
>I used to do this in my sleep a century or two ago. Now that I am an old guy . . . . . ??
>
>
>Private CodeLine
>CodeLine = ""
>Fcreate("Begin.prg",0)
>Fopen("Begin.prg",2)
>CodeLine = "Close tables"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Safety Off"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Talk Off"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Deleted On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Exclusive On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Century On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Sysmenu Automatic"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Confirm On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Cpdialog Off"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Do DefineVariables"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Do InitializeVariables"
>Fwrite("Begin.prg",CodeLine)
>Fclose("Begin.prg")
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement