Ich verwende folgenden Code um den gesamten Text einer txt auszulesen und in einer TextBox in einem Userform anzuzeigen.
- Code: Alles auswählen
On Error GoTo errhandlerComboBox1
Dim TextFileComboBox1 As Integer
Dim FilePathComboBox1 As String
Dim FileContentComboBox1 As String
FilePathComboBox1 = "C:\Test\Test.txt"
TextFileComboBox1 = FreeFile
Open FilePathComboBox1 For Input As TextFileComboBox1
FileContentComboBox1 = Input(LOF(TextFileComboBox1), TextFileComboBox1)
Close TextFileComboBox1
TextBox1.Value = FileContentComboBox1
errhandlerComboBox1:
Jetzt brächte ich das ganze genau so, nur dass er nur die z.b: Zeile 2 ausliest. (Txt besteht nur aus 3 Zeilen).
Gibt es da eine Möglichkeit einzuschränken was der FileContentComboBox1 Wert ist? Eben hald nur die 2te Zeile dieser txt.
PS: Das Beispiel ist sehr vereinfacht, im Endeffekt sind es tausende txt Dateien, wo eben nur die X-te Zeile ausgelesen werden soll.
lg. Sebastian