Office: (Office 365) Excel VBA Quellcode einer Nessus-Datei durchsuchen

Hallo,

ich möchte einen VBA-Code erstellen, mit dem der Quellcode einer Nessus-Datei (im selben Ordner wie die Excel) auf Stichwörter durchsucht werden kann. Man kann ja diesen Quellcode lesen, indem man die Nessus-Datei mit Notepad++ öffnet. Diesen möchte ich auf Stichwörter durchsuchen können. Wie kann man das machen`?

 

Was möchtest Du denn genau erreichen?
Nur suchen, ob das Stichwort in der Datei enthalten ist?
Zählen wie oft das Schlüsselwort vorkommt?
Herausfinden in welchem Bereich es steht?

Hier ein Beispiel, das die Datei zeilenweise durch geht und zählt wie oft "Stichwort" darin vorkommt. Meintest Du sowas?
Der Inhalt der Datei muss natürlich ein Text mit Zeilenenden (CrLf) sein.
Wenn Du die Datei in Notepad ansehen kannst, sollte es funktionieren.

Code:

Option Explicit

Sub Test()
 Dim sFileName As String
 Dim sZeile As String
 Dim sSuche As String
 Dim lCount As Long

 lCount = 0
 sSuche = "Stichwort" 'hier Dein gesuchter Text
 sFileName = "C:\temp\Test.txt" 'hier Deinen Dateinamen

 On Error GoTo Cleanup 'verhindert Abbruch und spring immer zum Close um die Datei zu schließen

 Open sFileName For Input As #1 'Öffnet die Datei
 While Not EOF(1) 'wiederholt bis Dateiende
  Line Input #1, sZeile 'liest die nächste Zeile aus der Datei
  While InStr(sZeile, sSuche) > 0 'Prüft, ob das gesuchte enthalten ist
   lCount = lCount + 1 'zählt den Fund
   sZeile = Mid(sZeile, InStr(sZeile, sSuche) + Len(sSuche), Len(sZeile)) 'schneidet den vorderen Bereich inkl. dem Fund ab
  Wend 'wiederholt die Suche im rest der Zeile
 Wend

 MsgBox sSuche + " wurde " + CStr(lCount) + "x gefunden."

Cleanup:
 Close #1 'eine mit Open geöffnete Datei sollte immer auch wieder geschlossen werden!
End Sub