Daten mit bestimmten Kriterien aus Textdatei in Excel einlesen

Hallo Community,

folgendes Ausgangsproblem stellt sich für mich als völligen Skript- Laien :

in einer DHCP Log- Datei befinden sich u.a. die MAC- Adresse, Hostname und Seriennummer von NAS- Platten, die ich gerne auslesen möchte.


Es interessieren nur die "Abschnitte" der Log- Datei, in denen Der Hostname mit "nas01" endet, also in denen es um die NAS- Platten geht (siehe Bild).
Es müssen nicht für jede NAS alle Angaben vorhanden sein.

Mein erster Schritt ist gewesen, ein VBA- Macro im Visual Basic Skript Editor von Excel zu schreiben, welches einfach alle Zeilen untereinander in eine Text-Datei schreibt, in denen die benötigten Daten stehen.

1. Frage:
Danach habe ich versucht, das ganze in Excel in der ersten Arbeitsmappe auch untereinander auszugeben (siehe Skript).
Wo steckt da der Fehler drin?


Sub nas01()

Const szSuch = "nas01" ' Such nas01
Const szSuch2 = "NAS01" 'Such NAS01
Const szSuch3 = "Comment = S/N" ' Such Comment S/N
Const szSuch4 = "MAC Address" ' Such MAC

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.openTextFile("Pfad\zur\Datei\DHCP3TAB", 1) ' Quelldatei öffnen
Set objDestFile = Workbooks.Open("Pfad\zur\Datei\Mappe1.xls").Worksheets("Tabelle1") 'ZielDatei/-Tabelle


Do Until objSourceFile.AtEndOfStream ' Gesammtes TextDok durchgehen
szNextLine = objSourceFile.Readline ' Zeile aus Quelldatei einlesen
If InStr(szNextLine, szSuch) Then ' Wenn Suchtest vorhanden
objDestFile.writeline szNextLine ' Zeile in Zieldatei schreiben
End If
If InStr(szNextLine, szSuch2) Then ' Wenn Suchtest vorhanden
objDestFile.writeline szNextLine ' Zeile in Zieldatei schreiben
End If
If InStr(szNextLine, szSuch3) Then ' Wenn Suchtest vorhanden
objDestFile.writeline szNextLine ' Zeile in Zieldatei schreiben
End If
If InStr(szNextLine, szSuch4) Then ' Wenn Suchtest vorhanden
objDestFile.writeline szNextLine ' Zeile in Zieldatei schreiben
End If
Loop

End Sub

// EDIT: 2. Frage ist schon erledigt. Geht ja auch mit Bordmitteln, manchmal sieht man den Wald vor Bäumen nicht :P -> Suchen/Ersetzen
2. Frage:
Ich würde Ergebniszeilen wie "Hostname = xxxx" "MAC = xx.xx" "SN= xx" bekommen.
Wie ich kann die Bezeichnungen Hostname, MAC, SN im Anschluss entfernen? Diese Bezeichnungen werden ja spätestens sinnlos, wenn sie in Excel in Spalten stehen.


Vielen Dank!

Dim objDestFile as Excel.Workbook

objDestFile.Sheets(1).Cells(iSpalte, 1).value = szNextLine

Sub nas01()
Dim ws As Excel.Worksheet, iRow%, strTemp$, datnr%
Const szSuch = "nas01" ' Such nas01  
Const szSuch2 = "NAS01" 'Such NAS01  
Const szSuch3 = "Comment = S/N" ' Such Comment S/N  
Const szSuch4 = "MAC Address" ' Such MAC  
datnr = FreeFile
Open "Pfad\zur\Datei\DHCP3TAB" For Input As #datnr 'Textdokument zum Lesen öffnen  
Set ws = ActiveWorkbook.Sheets(1)
i = 1
Do Until EOF(datnr) 'Abbruch bei Ende des Dokuments  
    Line Input #datnr, strTemp 'Zeile in strTemp einlesen  
    If InStr(strTemp, szSuch) > 0 _
        Or InStr(strTemp, szSuch2) > 0 _
        Or InStr(strTemp, szSuch3) > 0 _
    Then 'Vergleich mit Suchstring  
        ws.Cells(i, 1).Value = szNextLine 'Wert in Zelle schreiben  
        i = i + 1 'Zähler für nächste Zeile erhöhen  
    End If
Loop
Close #datnr
End Sub

 szNextLine = replace (szNextLine, chr(9), "")