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

Helfe beim Thema Excel VBA Quellcode einer Nessus-Datei durchsuchen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von alexej, 7. Dezember 2021.

  1. alexej Neuer User

    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`?
     
  2. Wolff68
    Wolff68 User
    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
     
    Wolff68, 8. Dezember 2021
    #2
Thema:

Excel VBA Quellcode einer Nessus-Datei durchsuchen

Die Seite wird geladen...
  1. Excel VBA Quellcode einer Nessus-Datei durchsuchen - Similar Threads - Excel VBA Quellcode

  2. Hilfe

    in Microsoft Excel Hilfe
    Hilfe: Liebe Alle, ich bin ganz neu in diesem Forum und bräuchte Hilfe zu einem Excel Projekt. Ich möchte (siehe Bild 1) das die Felder die dort ausgefüllt werden automatisch in Bild 2 übertragen in...
  3. Link per VBA in Excel als Desktopversion starten

    in Microsoft Excel Hilfe
    Link per VBA in Excel als Desktopversion starten: Hallo zusammen, ich hoffe Ihr könnt mir evtl. weiterhelfen?! Ich habe eine XL Datei in Teams die ich mit anderen Teile. Diese ist per Teams auch so eingestellt, dass die Datei automatisch in XL...
  4. Excel VBA Codes Pivot-Aktualisierung, Kommentare, etc.

    in Microsoft Excel Hilfe
    Excel VBA Codes Pivot-Aktualisierung, Kommentare, etc.: Hallo liebe Office-Hilfe Mitglieder, ich bin seit kurzem hier neu registriert und hätte eine (für mich als absolutem Laien in Sachen VBA) Problemstellung, bei der mir hoffentlich jemand von Euch...
  5. Excel VBA Userform Daten aus Tabelle Auslesen "sverweis"

    in Microsoft Excel Hilfe
    Excel VBA Userform Daten aus Tabelle Auslesen "sverweis": Hallo zusammen, ich lerne umständlich ein wenig VBA. Ich benötige mal einen Code von einem Profi, der mir Anregungen gibt zum Üben und Probieren. Eine Tabelle hat in Spalte A eindeutige numerische...
  6. VBA Daten in Array durch inputbox befüllen lassen

    in Microsoft Excel Hilfe
    VBA Daten in Array durch inputbox befüllen lassen: Hi zusammen, Ich hab mal wieder eine Excel VBA Frage. Kurz zur Erklärung: Ich erhalte von einem Kunden eine Datei mit wiederum seinen Kunden, die ein bestimmtes Produkt gekauft haben(den Sinn...
  7. Schließen von mehreren Datein

    in Microsoft Excel Hilfe
    Schließen von mehreren Datein: Hallo Zusammen! Ich bin gerade dabei via VBA einen Code zu erstellen um beim öffnen eines Excel (MainDatei) immer ein weiteres (zweite Datei) zu öffnen. Sowie beim schließen der "MainDatei" ein...
  8. Blattnamen in neue Arbeitsmappe übernehmen

    in Microsoft Excel Hilfe
    Blattnamen in neue Arbeitsmappe übernehmen: Hallo, ich bin totale VBA-Anfängerin und stehe vor folgendem Problem: ich würde gerne ausgehend von einer vorhandenen Arbeitsmappe (XY) eine neue erstellen und in der neuen Arbeitsmappe (XYZ)...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden