GAMBAS-BUCH 3.19.5

Diese Klasse wird verwendet für

• die Repräsentation einer mit dem OPEN()-Befehl geöffneten Datei,
• den Zugriff auf Standard-Eingangs-, Ausgangs- und Fehler-Streams,
• das Öffnen und Speichern einer Datei,
• die Manipulation von Dateipfaden mit den statischen Methoden der File-Klasse.

Sie können diese Klasse nicht direkt erzeugen. Sie müssen die Anweisung OPEN verwenden.

Die Klasse File verfügt über diese Eigenschaften:

Tabelle 6.5.1.1 : Eigenschaften der Klasse File

Beispiel für die Verwendung der Eigenschaft Lines:

Dim hStream As Stream
Dim aString As String
...
For Each aString In hStream.Lines
  ...
Next

Die Klasse File verfügt über diese drei statischen Eigenschaften:

Tabelle 6.5.2.1 : Statische Eigenschaften der Klasse File

Passende Informationen erhalten Sie auf der Seite: https://wiki.ubuntuusers.de/Shell/Umleitungen zum folgenden Beispiel. Es zeigt, wie man auf der Standard-Eingabe, auf der Standard-Ausgabe und auf der Standard-Fehlerausgabe liest und schreibt und präsentiert die Verwendung der statischen Eigenschaften File.In, File.Out und File.Err. Jede Zeile, die auf der Standard-Eingabe geschrieben wird, wird zuerst auf der Standard-Ausgabe und dann auf der Standard-Fehlerausgabe zurückgegeben.

Public Sub Main()
  Dim inputLine As String
  ' Loop until the end of the standard input file stream
  While Not Eof(File.In)
    ' Read a line from standard input
    Line Input #File.In, inputLine ' Read data
    ' Print to standard output
    Print #File.Out, inputLine ' Write data
    ' Print to standard error
    Print #File.Err, inputLine ' Write data
  Wend
End

Erzeugen Sie ein Projekt (Kommandozeilen-Anwendung ioe (input output error)) und platzieren Sie den obigen Code in der Datei Main.module. Wenn Sie dieses Programm in der Gambas-IDE ausführen, scheint die Anwendung zu hängen. Wenn Sie einen Text im Konsolenfenster der IDE eingeben und mit Enter abschließen, so wird jede Zeile zweimal in der Konsole zurückgegeben. Da die Anwendung jedoch nie das Ende der Datei für den Standard-Eingabestrom sieht, müssen Sie das Projekt stoppen. Um eine bessere Vorstellung davon zu bekommen, was das Beispiel macht, erzeugen Sie eine ausführbare Gambas-Datei und nennen diese ioe.gambas. Öffnen Sie ein Terminal und wechseln Sie in das Verzeichnis, in dem Sie die ausführbare Datei gespeichert haben.

Wenn Sie den folgenden Befehl eingeben:

ls -a | ./ioe.gambas

so werden Sie jede Ausgabe-Zeile des Befehls ls -a sehen, jedoch stets zweimal. Einmal von der Standard-Ausgabe (stdout) und einmal von der Standardfehler-Ausgabe (stderr). Die Anwendung sieht jetzt aber das Ende des Standard-Eingabestroms und endet somit korrekt. Mit dem Befehl

ls -a | ./ioe.gambas > files.txt

leiten Sie einerseits den Standard-Ausgabestrom des Befehls ls -a in eine Datei um und Sie sehen andererseits den Standardfehler-Ausgabestrom im Terminalfenster.

Die Klasse File verfügt über diese sechs Methoden:

Tabelle 6.5.3.1 : Methoden der Klasse File

Die Klasse besitzt u.a. diese zwei ausgewählten Ereignisse:

Tabelle 6.5.4.1 : Ereignisse der Klasse File

Von besonderem Interesse dürften die folgenden (statischen) Methoden sein – vor Allem die Load()- und Save()-Methode:

Tabelle 6.5.5.1 : Statische Methoden der Klasse File

Public Sub btnDisplayProperties_Click()
  If Dialog.OpenFile() Then Return
  Print "Datei-Pfad: " & Dialog.Path
  Print "Verzeichnis der Datei: " & File.Dir(Dialog.Path)
  Print "Dateiname (mit Extension): " & File.Name(Dialog.Path)
  Print "Dateiname (ohne Extension): " & File.BaseName(Dialog.Path)
  Print "Datei-Extension (ohne Punkt): " & File.Ext(Dialog.Path)
End

In einem Datei-Öffnen- oder Datei-Speichern-Dialog können Sie Datei-Filter einsetzen. Mit regulären Ausdrücken können Sie jedoch die Filter wesentlich differenzierter setzen:

• Dialog.Title = „Importieren Sie eine Text-Datei!“
• Dialog.Filter = [„tb*.txt“, „Text-Dateien“] ' Dateiname beginnt mit tb
• Dialog.Filter = [„[0-9]*.txt“, „Text-Dateien“] ' Dateiname beginnt mit einer Ziffer
• Dialog.Filter = [„tb[1-3]*.txt; ta[1-3]*.log“, „Text-Dateien“]

Mit dem letzten Filter werden alle Dateien im aktuellen Verzeichnis selektiert, die mit der Buchstabenfolge 'tb' beginnen, der eine Ziffer aus dem Bereich von 1-3 folgt und dann eine Folge von beliebigen Zeichen. Die Extension ist entweder .txt oder .log.Dabei wird zum Beispiel für Text-Dateien oft ein Filter der folgenden Art verwendet:

Private $sCurrentFilePath As String
 
Public Sub btnFileLoad_Click()
 
  Dialog.Filter = ["*.txt;*.log;*.xml;*.conf", "Text files"]
  If Dialog.OpenFile() Then Return
  $sCurrentFilePath =  Dialog.Path
 
  txaTextArea.Text = File.Load(Dialog.Path)
  Catch
    Message.Info(Error.Text)
 
End
 
Public Sub btnFileSave_Click()
 
  If Dialog.SaveFile() Then Return
 
  File.Save(Dialog.Path, txaTextArea.Text)  
  Catch
    Message.Info(Error.Text)
 
End

6.5.6.3 Beispiel 3 – Einsatz ausgewählter statischer Methoden der Klasse File

Dim filePath As String
 
Print "* A standard type of path"
  filePath = "/my/path/file.ext"
Print filePath
Print File.SetBaseName(filePath, "new-name")
 
Print "\\n* Try a path with two extensions"
  filePath = "/my/path/file.ext1.ext2"
Print filePath
Print File.SetBaseName(filePath, "new-name")
 
Print "\\n* A path with just an extension"
  filePath = ".ext"
Print filePath
Print File.SetBaseName(filePath, "new-name")
 
Print "\\n* A path without a file name"
  filePath = "/my/path/.ext"
Print filePath
Print File.SetBaseName(filePath, "new-name")
 
Print "\\n* A path without a file name or extension"
  filePath = "/my/path/"
Print filePath
Print File.SetBaseName(filePath, "new-name")

Ausgaben in der Konsole der IDE:

* A standard type of path
/my/path/file.ext
/my/path/new-name.ext
 
* Try a path with two extensions
/my/path/file.ext1.ext2
/my/path/new-name.ext2
 
* A path with just an extension
.ext
new-name.ext
 
* A path without a file name
/my/path/.ext
/my/path/new-name.ext
 
* A path without a file name or extension
/my/path/
/my/path/new-name

Mit folgendem Quelltext geben Sie Text mit File.Out in der Konsole aus und steuern den Musik-Player über die Standard-Eingabe File.In.

So starten Sie den Player in einer Konsole aus dem Projekt-Verzeichnis heraus:

hans@mint-183 ~/GB3BUCH/6K_Stream/.../MusicPlayer $ gbr3 ./music_player_console.gambas

Quelltext:

' Gambas module file
 
' Über die Standard-Eingabe (Terminal) werden Zeichen eingelesen, um damit den MediaPlayer zu steuern
' Hinweise: http://www.mplayerhq.hu/DOCS/man/de/mplayer.1.html
 
Public mPlayer As New MediaPlayer
 
Public Sub Main()
 If mPlayer Then mPlayer = Null
 Start()
End
 
Public Sub Start()
 
  mPlayer = New MediaPlayer
  mPlayer.URL = "http://mp3channels.webradio.rockantenne.de/classic-perlen"
  mPlayer.Audio.Volume = +1.0
  mPlayer.Play()
 
  Print #File.Out, ""
  Print #File.Out, "-------------------------------------"
  Print #File.Out, "Instructions for use"
  Print #File.Out, "-------------------------------------"
  Print #File.Out, "+  ▶ Audio.Volume ▲"
  Print #File.Out, "-  ▶ Audio.Volume ▼"
  Print #File.Out, "p  ▶ Player.Pause"
  Print #File.Out, "r  ▶ Player.Run (After a pause)"
  Print #File.Out, "m  ▶ Audio.Mute (off/on)"
  Print #File.Out, "q  ▶ Player.Stop"
  Print #File.Out, "-------------------------------------"
  Print #File.Out, "Each command is followed by <ENTER>."
  Print #File.Out, "-------------------------------------"
  Print #File.Out, ""
 
End
 
Public Sub Application_Read()
 
  Dim sInput As String
  Dim fDeltaVolume As Float
 
  If mPlayer.Audio.Volume > 1.1 Then
    fDeltaVolume = 1.0
  Else
    fDeltaVolume = 0.1
  EndIf
 
  Line Input #File.In, sInput
 
  Select Case sInput
    Case "q"
      mPlayer.Stop()
      Quit
    Case "p"
      mPlayer.Pause()
    Case "r" ' Run
      mPlayer.Play()
    Case "m" ' Toggle switch: mute on/mute off
      mPlayer.Audio.Mute = Not mPlayer.Audio.Mute
    Case "+"
      If mPlayer.Audio.Volume > 0.09 And mPlayer.Audio.Volume < 9.0 Then
         mPlayer.Audio.Volume += fDeltaVolume
      Endif
    Case "-"
      If mPlayer.Audio.Volume > 0.2 And mPlayer.Audio.Volume < 10.0 Then
         mPlayer.Audio.Volume -= fDeltaVolume
      Endif
  End Select
 
End

Kommentar:

• Zuerst wird geprüft, ob bereits eine Instanz des Players existiert. Trifft das zu, wird das existierende Player-Objekt zerstört und dann ein neuer Player gestartet.
• Nach dem Start mit einer vorgegebenen Lautstärke wird mit 'Print #File.Out, TestString' eine Anleitung zeilenweise in der Konsole ausgegeben.
• Danach können Sie den Player durch die Eingabe von +, -, p, r, m und q (mit jeweils abschließendem Enter) steuern.
• Die Eingaben werden von der Standard-Eingabe mit 'Line Input #File.In, sInput' gelesen und in einer Select-Case-Kontrollstruktur ausgewertet.