Posts tagged: Open

Inhalt einer Textdatei in Textfeld einlesen

By , 16. Januar 2008

Um den Text einer Textdatei in ein Textfeld einlesen und anzeigen zu lassen kann man nachfolgenden Code anwenden. Zuerst erstellt man eine Funktion in einem Modul, die man als Public deklariert:

Public Function LoadText(ByVal FileName As String) As String
    Dim F As Long, L As String, Res As String
    F = FreeFile
    Open FileName For Input As #F
    While Not EOF(F)
        Line Input #F, L
        Res = Res & L & vbNewLine
    Wend
    Close #F
    LoadText = Res
End Function

Der Aufruf der Function erfolgt dann in einem Formular, z.B. im Ereignis „Form load“:

Private Sub Form_Load()
    Me!Textfeld1 = LoadText("c:meinText.txt")
End Sub

Sie können auch den Pfad und Namen der Textdatei in einer Tabelle stehen haben, verwenden Sie dann ein Recordset um den Pfad und Namen zu erhalten oder die DLookup() Funktion.

AV 2008

OfficeFolders theme by Themocracy