GAMBAS-BUCH 3.19.5

Die Klasse Stat (gb) stellt Ihnen alle Informationen zur Verfügung, die durch das System zu einer bestimmten Datei zurückgegeben werden. Es muss betont werden, dass ein Stat-Objekt ungeeignet ist, um Änderungen an den Datei-Eigenschaften vorzunehmen! Die Klasse kann nicht erzeugt werden.

• Die Stat()-Funktion liefert ein Stat-Objekt zurück, mit dem Sie Informationen zu Datei- und Verzeichniseigenschaften auslesen können.
• Die Informationen werden zu genau einer ausgewählten Datei ausgelesen, deren Pfad Sie in der Path-Eigenschaft angeben müssen → Tabelle 19.3.0.1.1.
• Achtung: Bei den Dateien werden sechs Typen unterschieden → Kapitel 19.3.0.2.
• Beachten Sie, dass die Informationen zu einer Datei beim Einsatz dieser Klasse statisch sind, weil sie zu einem bestimmten Zeitpunkt ausgelesen worden sind. Wenn Sie bestimmte Änderungen einer ausgewählten Datei zur Laufzeit (über einen Task) dynamisch erfassen und auswerten wollen, dann finden Sie in der Komponente gb.inotify die dafür geeignete Klasse Watch.

Die Klasse Stat verfügt über diese Eigenschaften:

Tabelle 19.3.0.1.1 : Eigenschaften der Klasse Stat

Der Typ einer Datei kann durch eine der folgenden Konstanten beschrieben werden:

Tabelle 19.3.0.2.1 : Datei-Typ-Konstanten der Klasse Stat

Die virtuelle Klasse .Stat.Perm (gb) beschreibt die Dateiberechtigungen für die ausgewählte Datei und kann wie ein Nur-Lese-Array verwendet werden.

Tabelle 19.3.0.3.1 : Eigenschaften der Klasse .Stat.Perm

In allen drei Fällen enthält der String die folgenden Zeichen:

• r → für das Lese-Recht,
• w → für das Schreibrecht,
• x → für das Ausführungsrecht,

falls das jeweilige Recht vergeben wurde. Insbesondere wird für fehlende Berechtigungen kein Zeichen ausgegeben. Dies unterscheidet sich von der Ausgabe von Kommandos wie 'ls -l', bei denen fehlende Berechtigungen mit einem Minus-Zeichen an ihrer festen Position notiert werden.

Zuerst wird im vorgestellten Projekt eine temporäre Datei generiert und eine Zeichenkette als Inhalt eingefügt. Dann werden die Datei-Rechte explizit geändert. Anschließend wird ein Stat-Objekt erzeugt und die Datei-Informationen der temporären Datei ausgelesen und in der Konsole der IDE angezeigt.

Der Quelltext wird vollständig angegeben:

' Gambas class file
 
Public sFilePath As String = Temp(".datei")
 
Public Sub Form_Open()
  Dim sGroup As String
 
  FMain.Center
  FMain.Resizable = False  
 
  Exec ["id", "-gn"] To sGroup ' Gruppe des aktuellen Benutzers ermitteln
  sGroup = Trim$(sGroup)
 
  Shell Subst$("touch &1; echo 'TEST TEXT TEXT' > &1", sFilePath) Wait  
  Chown sFilePath To User.Name
  Chmod sFilePath To "rwxrw-r--"
  Chgrp sFilePath To sGroup
 
End '  Form_Open()
 
Public Sub btnGetInformation_Click()
  Dim FileInfo As Stat
  Dim vValue As Variant
  Dim aTypes As String[]
  Dim cCollection As Collection
 
  aTypes = ["Normale Datei", "Verzeichnis", "Gerät", "Pipe (FIFO)", "Socket", "Symbolischer Link"]
 
  FileInfo = Stat(sFilePath)
 
  cCollection = New Collection
' cCollection[Key As String] = Value As Variant → Zuerst der Schlüssel und dann der Wert  
  cCollection["Pfad = "] = FileInfo.Path
  cCollection["Datei-Typ = "] = aTypes[FileInfo.Type - 1]
  cCollection["Rechte = "] = FileInfo.Auth
  cCollection["Datei-Modus = "] = FileInfo.Mode
  cCollection["Benutzer = "] = FileInfo.User
  cCollection["Gruppe = "] = FileInfo.Group
  cCollection["Versteckt? = "] = FileInfo.Hidden
  cCollection["Letzter Zugriff auf die Datei   = "] = FileInfo.LastAccess
  cCollection["Letzte Änderung Datei-Inhalt    = "] = FileInfo.LastModified
  cCollection["Letzte Änderung Datei-Attribute = "] = FileInfo.LastChange
  cCollection["Datei-Größe = "] = FileInfo.Size & " Byte"
  cCollection["Sticky-Bit gesetzt? = "] = FileInfo.Sticky
  If FileInfo.Link = Null Then 
     cCollection["Symbolischer Link ? = "] = "Nein"
  Else
     cCollection["Symbolischer Link ? = "] = FileInfo.Link
  Endif
  cCollection["Benutzer-Rechte = "] = FileInfo.Perm.User
  cCollection["Gruppen-Rechte  = "] = FileInfo.Perm.Group
  cCollection["Andere-Rechte   = "] = FileInfo.Perm.Other
 
  For Each vValue In cCollection
    Print cCollection.Key, vValue
  Next
 
  Print "Pfad = ", sFilePath; "   Recht R+W  = ", Access(sFilePath, gb.Read Or gb.Write) 
  Print "Pfad = ", sFilePath; "   Recht R    = ", Access(sFilePath, gb.Read) 
  Print "Pfad = ", sFilePath; "   Recht W    = ", Access(sFilePath, gb.Write) 
  Print "Pfad = ", sFilePath; "   Recht X    = ", Access(sFilePath, gb.Exec) 
' gb.read ist Standard, wenn das optionale Mode-Argument fehlt 
  Print "Pfad = ", sFilePath; "   Recht (R)  = ", Access(sFilePath)   
 
End ' GetInformation

Ausgabe in der Konsole der IDE:

Pfad =         /tmp/gambas.1000/6251/.datei.tmp
Datei-Typ =    Normale Datei
Rechte =       rwxrw-r--
Datei-Modus =  500
Benutzer = 	hans
Gruppe = 	hans
Versteckt? = 	True
Letzter Zugriff auf die Datei   = 01.10.2015 14:32:10
Letzte Änderung Datei-Inhalt    = 01.10.2015 14:32:10
Letzte Änderung Datei-Attribute = 01.10.2015 14:32:10
Datei-Größe = 	15 Byte
Sticky-Bit gesetzt? = False
Symbolischer Link ? = Nein
Benutzer-Rechte = 	rwx
Gruppen-Rechte  = 	rw
Andere-Rechte   = 	r
Pfad = 	/tmp/gambas.1000/6251/.datei.tmp  Recht R+W  = 	True
Pfad = 	/tmp/gambas.1000/6251/.datei.tmp  Recht R    = 	True
Pfad = 	/tmp/gambas.1000/6251/.datei.tmp  Recht W    = 	True
Pfad = 	/tmp/gambas.1000/6251/.datei.tmp  Recht X    = 	True
Pfad = 	/tmp/gambas.1000/6251/.datei.tmp  Recht (R)  = 	True

Eine Alternative zum Einsatz der virtuellen Klasse .Stat.Perm bietet die Access-Funktion an, zu der Sie Informationen unter → http://gambaswiki.org/wiki/lang/access nachlesen können und die auch punktuell im o.a. Projekt verwendet wurde.

Zum Ändern von Datei-Attributen stehen Ihnen die drei Instruktionen CHGRP, CHMOD und CHOWN zur Verfügung → Kapitel 19.3.1.