Bestimmten Wert aus txt Datei suchen und in Excel ausgeben
Hallo,
lang gesucht und nichts gefunden.
Ich habe eine txt Datei die folgenden Inhalt hat:
switchName: na01_sw01
switchType: 34.0
switchState: Online
switchMode: Native
switchRole: Principal
...
Jetzt würde ich gern den SwitchNamen auslesen und in ein bestimmtes Excelfeld schreiben lassen.
SwitchName muss aber nicht immer in der ersten Zeile stehen.
Das gleiche Script bräuchte ich dann auch für eine txt Datei mit einer IP Adresse.
Vielen Dank schonmal.
lang gesucht und nichts gefunden.
Ich habe eine txt Datei die folgenden Inhalt hat:
switchName: na01_sw01
switchType: 34.0
switchState: Online
switchMode: Native
switchRole: Principal
...
Jetzt würde ich gern den SwitchNamen auslesen und in ein bestimmtes Excelfeld schreiben lassen.
SwitchName muss aber nicht immer in der ersten Zeile stehen.
Das gleiche Script bräuchte ich dann auch für eine txt Datei mit einer IP Adresse.
Vielen Dank schonmal.
Please also mark the comments that contributed to the solution of the article
Content-Key: 81643
Url: https://administrator.de/contentid/81643
Printed on: April 26, 2024 at 14:04 o'clock
10 Comments
Latest comment
Versuchs mal so:
Sub DateiLesenUndSuchen()
On Error GoTo Fehler
Dim Datei As String
Dim Fnr As Long
Dim Trennzeichen As String
Dim Suchbegriff As String
Trennzeichen = ": "
Suchbegriff = "switchName"
Datei = "D:\Datei.txt"
Fnr = FreeFile
Open Datei For Input As #Fnr
While Not EOF(Fnr)
Line Input #Fnr, Zeile
tokens = Split(Zeile, Trennzeichen)
If tokens(0) = Suchbegriff Then Range("A1").Value = tokens(1)
Wend
Close #Fnr
Exit Sub
Fehler:
MsgBox "Es trat ein Fehler beim Öffnen der" & _
" Datei !", 16, "Problem"
Exit Sub
Resume Next
End Sub
Füge mach vor der Zeile
Vermutlich ist dann die datei nicht ganz so aufgabaut:
miniversum
tokens = Split(Zeile, Trennzeichen)
diese ein:Msgbox Zeile
Dann soltest du sehen was er ausliest.Vermutlich ist dann die datei nicht ganz so aufgabaut:
switchName: na01_sw01
Es wir imemr nach dem Teil vor dem Trennzeichen (hier also ": ") geschaut und wenn dieser mit dem suchbegriff übereinstimmt der danach genommen.miniversum