|
Den kompletten Inhalt einer Text-Datei können Sie auf einen Schlag in eine TextBox einlesen. Sie öffnen sie dazu im Input-Modus und geben der Input-Funktion als zu lesende Zeichenzahl die Länge der Datei an. Diese wiederum wird Ihnen von der LOF-Funktion geliefert.
Public Sub FileToTextBox(TextBox As TextBox, Path As String)
Dim nFNr As Integer
nFNr = FreeFile
Open Path For Input As #nFNr
TextBox.Text = Input(LOF(nFNr), #nFNr)
Close #nFNr
End Sub
|