Private Sub Command1_Click()<\/p>\n

Dim Line As String<\/p>\n

‘Input Nessus Log \/ Open Output Files<\/p>\n

Open App.Path & “” & Filename.Text & “.nbe” For Input As #1
\nIf CheckXLS.Value = 1 Then Open App.Path & “” & Filename.Text & “.xls” For Append As #2
\nIf CheckTXT.Value = 1 Then Open App.Path & “” & Filename.Text & “.txt” For Append As #3<\/p>\n

Do While Not EOF(1)<\/p>\n

Start:<\/p>\n

Line Input #1, Line$<\/p>\n

If CheckTime.Value = 1 Then
\n If Left$(Line$, 1) = “t” Then GoTo Start
\n End If<\/p>\n

Line$ = Replace(Line$, “n”, ” “)
\n Line$ = Replace(Line$, “r”, ” “)
\n Line$ = Replace(Line$, ” “, ” “)
\n Line$ = Replace(Line$, “Description :”, “|Description :”)
\n Line$ = Replace(Line$, “Solution :”, “|Solution :”)
\n Line$ = Replace(Line$, “Risk factor :”, “|Risk factor :”)
\n Line$ = Replace(Line$, “Plugin output :”, “|Plugin output :”)
\n Line$ = Replace(Line$, ” |”, “|”)
\n Line$ = Replace(Line$, “| “, “|”)<\/p>\n

If CheckXLS.Value = 1 Then
\n Print #2, Line$
\n Print #2, vbCrLf
\n End If<\/p>\n

If CheckTXT.Value = 1 Then
\n SplitArray = Split(Line$, “|”)
\n For intx = 0 To UBound(SplitArray)
\n Print #3, SplitArray(intx)
\n If intx = UBound(SplitArray) Then Print #3, vbCrLf
\n Next
\n End If<\/p>\n

If CheckTXT.Value = 0 And CheckXLS.Value = 0 Then
\n MsgBox (“You chose no output. There’s just not much I can do for you.”)
\n Close #1
\n Close #2
\n Close #3
\n Exit Sub
\n End If<\/p>\n

Loop<\/p>\n

Close #1
\nClose #2
\nClose #3<\/p>\n

MsgBox (“Done!”)<\/p>\n

End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"

Private Sub Command1_Click() Dim Line As String ‘Input Nessus Log \/ Open Output Files Open App.Path & “” & Filename.Text & “.nbe” For Input As #1 If CheckXLS.Value = 1 Then Open App.Path & “” & Filename.Text & “.xls” For Append As #2 If CheckTXT.Value = 1 Then Open App.Path & “” & Filename.Text & “.txt” For Append As #3 Do While Not EOF(1) Start: Line Input #1, Line$ If CheckTime.Value = 1 Then If Left$(Line$, 1) = “t” Then GoTo Start End If Line$ = Replace(Line$, “n”, ” “) Line$ = Replace(Line$, “r”, ” “) Line$ = Replace(Line$, ”… (read more)<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-1962","post","type-post","status-publish","format-standard","hentry","category-main"],"_links":{"self":[{"href":"https:\/\/www.robohara.com\/index.php?rest_route=\/wp\/v2\/posts\/1962","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.robohara.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.robohara.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.robohara.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.robohara.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1962"}],"version-history":[{"count":0,"href":"https:\/\/www.robohara.com\/index.php?rest_route=\/wp\/v2\/posts\/1962\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.robohara.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1962"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.robohara.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1962"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.robohara.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1962"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}