AW: Aus .txt nur einzelne Zeilen einlesen?
16.06.2013 10:44:03
fcs
Hallo Thorsten,
ja, allerdings mit Korrektur in der Open-Zeile und optimiert mit einer Abbruchbedingung wenn die Zeile mit der höchsten Nummer ausgewertet ist, damit ggf. nicht die gesamte Textdatei durchlaufen wird.
Gruß
Franz
Sub sbTxt()
Dim lstrInhalt As String, ldbCount As Double
Open "Pfad\Datei" For Input As #1
Do While Not EOF(1)
Line Input #1, lstrInhalt
ldbCount = ldbCount + 1
Select Case ldbCount
Case 300
'hier dein Code, was bei Zeile 300 passieren soll
Case 6000
'hier dein Code, was bei Zeile 6000 passieren soll
'und so weiter
Case Is > 6000 'wenn größer höchstem Wert, dann Schleife beenden
Exit Do
End Select
Loop
Close
End Sub