Um den Inhalt der Textdatei in eine Variable zu bekommen muss die Datei, mit der Open-Anweisung geöffnet werden. Der Befehl “LOF” gibt die Zeichenanzahl der übergebenen Datei zurück. “Get” mit übergebener Dateinummer liest die Datei in eine Stringvariable ein.

Visual Basic CODE

1
2
3
4
5
6
7
8
9
10
11
12

Option Explicit
 
Private Sub Form_Load()
 
 Dim Inhalt As String
 
 Open "c:\text.txt" For Binary As #1
 Inhalt = Space$(LOF(1))
 Get #1, , Inhalt
 Close #1
 
End Sub

Tags: binary, datei

Dieser Eintrag wurde am Samstag, 05. August 2006 um 21:15 erstellt und ist abgelegt unter Visual Basic.