UseFile()

Syntax

UseFile(#Datei)

Ändert die aktuell zu benutzende Datei auf die angegebene '#Datei'.

  file$ = OpenFileRequester("Datei auswählen...","","Text (.txt)|*.txt|All files (*.*)|*.*",0)
  If file$
    If ReadFile(0,file$) And CreateFile(1,"test.txt")
      UseFile(0)          ; ausgewählte Datei zur aktuellen Datei machen (zum Einlesen)
      a$ = ReadString()   ; eine Zeile aus dieser Datei einlesen
      UseFile(1)          ; die 'test.txt' Datei zur aktuellen Datei machen (zum Speichern)
      WriteStringN(a$)    ; die zuvor eingelesene Zeile in die Datei schreiben
      CloseFile(0)        ; schließen der ersten Datei
      CloseFile(1)        ; schließen der zweiten Datei (und damit Abspeichern der Daten)
    EndIf
  EndIf

Unterstützte OS

All