|
|
|
|
|
|
|
|
|
|
Version 6.0
Data file {(Segment)} 
alphanumerisch
| Parameter | Typ | Beschreibung | |
| Segment | Numerisch | | Segmentnummer |
| Funktionsergebnis | alphanumerisch |  | Kompletter Name der Datendatei |
| der Datenbank |
Beschreibung
Die Funktion Data file gibt den kompletten Namen der Datendatei bzw. eines Datensegments für die Datenbank zurück, mit der Sie gerade arbeiten.
Übergeben Sie keinen Parameter Segment, gibt Data file den kompletten Namen der Datendatei bzw. – bei aufgeteilter Datenbank – des ersten Segments zurück. Übergeben Sie einen Parameter Segment, gibt er den kompletten Namen des entsprechenden Segments zurück. Übergeben Sie eine Segmentzahl, die höher als die Anzahl der Datensegmente ist, gibt Data file eine leere Zeichenkette zurück.
Windows
Arbeiten Sie zum Beispiel mit der Datenbank MeineCDs aus dem Volume G in \DOCS\MeineCDs, gibt die Funktion beim Aufrufen der Datendatei zurück: G:\DOCS\MeineCDs\MeineCDs.4DD (wenn Sie beim Erstellen der Datenbank die Standardposition und -benennung von 4D übernommen haben).
Macintosh
Arbeiten Sie zum Beispiel mit der Datenbank MeineCDs aus dem Ordner Dokumente:MeineCDsƒ: auf der Festplatte Macintosh HD, gibt die Funktion beim Aufrufen der Datendatei zurück: Macintosh HD:Dokumente:MeineCDsƒ:MeineCDs.data (wenn Sie beim Erstellen der Datenbank die Standardposition und -benennung von 4D übernommen haben).
WARNUNG: Der Befehl gibt unter 4D Client einen Leerstring zurück. Benötigen Sie für Verwaltungszwecke die Liste der Datensegmente auf einem Client-Rechner, erstellen Sie diese Liste über eine Serverprozedur und speichern sie in einer Variablen auf dem Server-Rechner. Mit dem Befehl GET PROCESS VARIABLE erhalten Sie dann den Inhalt dieser Variablen.
Beispiel
Folgender Code geht die Datensegmente einer Datenbank durch:
If (Application type#4D Client)
$vlDataSegNum:=0
Repeat
$vlDataSegNum:=$vlDataSegNum+1
$vsDataSegName:=Data file($vlDataSegNum)
If ($vsDataSegName#"")
ALERT ("Data segment "+String($vlDataSegNum)+":"+Char(34)+
$vsDataSegName+Char(34)+".")
End if
Until ($vsDataSegName="")
ALERT("There is/are "+String($vlDataSegNum-1)+"data segment(s).")
End if
Referenz
Application file, DATA SEGMENT LIST, Structure file.
|
|
|
|
|
|
|
|
|
|