PutDie Anweisung schreibt Daten in eine Datei. Syntax: Put(<FileNumber>, <RecNumber>, <VarName>) Parameter:  | FileNumber: Erwartet die beim Öffnen der Datei verwendete Dateinummer.
| | RecNumber: Bei Dateien, die im Random-Modus geöffnet wurden, kann über diesen Parameter der Datensatz bestimmt werden, der mit dem Inhalt der Variablen VarName überschrieben werden soll. Wurde die Datei im Binary-Modus geöffnet, bestimmt der Parameter die Position des zu schreibenden Bytes. Wenn Sie diesen Parameter auslassen, überschreibt die Anweisung das Byte beziehungsweise den Datensatz, der dem aktuellen Byte beziehungsweise Datensatz folgt. Die aktuelle Position wird hierbei über den letzten Zugriff durch die Get- und Put-Anweisung oder die Funktion Seek ermittelt. Datensätze und Bytes werden sequentiell von 1 bis 2.147.483.647 durchnummeriert.
| | VarName: Erwartet den Namen der Variablen oder des Arrays, deren Inhalt in die Datei geschrieben werden soll. Es dürfen keine Objektvariablen angegeben werden. |
Beispiele:Diese Funktion schreibt die Zahlen von 1 bis 100 in eine im Random-Modus geöffnete Datei. Die Routine zum Auslesen der geschriebenen Werte finden Sie als Beispiel der Get-Anweisung.
Public Sub PutBeispiel()
Dim strDateiname As String
Dim i As Integer
strDateiname = "c:\Put.txt"
Open strDateiname For Random As #1
Len = 2
For i = 1 To 100
Put #1, i, i
Next i
Close #1
End Sub |
