OK, tengo una ingeniosa VBS que buscará enormes archivos de registro para determinadas cadenas de caracteres, pero no siempre quiere buscar cada archivo de registro para cada cadena. Me gustaría una HTA frontend que permite al usuario seleccionar qué cadenas de caracteres que desea buscar.

Aquí es una muestra de mi código y que funciona como un gran vb, pero en este ejemplo, me gustaría casillas de verificación para las vacas, cabras, gatos, perros, etc.. y para que el script se ejecute correctamente, no importa cuántos son seleccionados.. (mi actual script tiene alrededor de 20 palabras para elegir) y también la ruta de acceso y el nombre de la ‘animal archivo de registro es, actualmente, un cuadro de entrada.. me gustaría que en la hta así.

Const ForReading = 1
Dim words(7)
Dim msg
words(0) = "cows"
words(1) = "goats"
words(2) = "cats"
words(3) = "dogs"
words(4) = "elephants"
words(5) = "giraffes"   


Set objFSO = CreateObject("Scripting.FileSystemObject")

strAnswer = InputBox("Please enter the path & filename for the animal log file:", _
    "Create File")
Wscript.Echo strAnswer

Set objFile = objFSO.OpenTextFile( strAnswer, ForReading)
Set inFile = objFSO.OpenTextFile ( strAnswer, ForReading)


strContents = objFile.ReadAll
objFile.Close

Set outFile = objFSO.OpenTextFile( strAnswer &"_parsed-output.txt", 8, True)

Do Until inFile.AtEndOfStream
    strSearchString = inFile.ReadLine
    For i = 0 To UBound(words)-1
    If InStr(strSearchString,words(i)) Then
        msg = msg&strSearchString&vbcrlf
    End If
    next
Loop

inFile.Close
outfile.WriteLine msg

WScript.Echo "Done!"
InformationsquelleAutor Donny Butts | 2013-04-09

1 Comentario

  1. 1

    Esto puede ayudarle a empezar. Usted necesitará el código en cómo manejar si varias casillas de verificación está seleccionada y la lógica de código necesario para abrir los archivos de registro (varios archivos de registro). Usted puede encontrar más información acerca de la Hta aquí, http://technet.microsoft.com/en-us/scriptcenter/dd742317.aspx

    <html>
    <head>
    <title>My Logfile App</title>
    <HTA:APPLICATION
    APPLICATIONNAME="My Logfile App"
    ID="MyLogfileApp"
    VERSION="1.0"/>
    </head>
    <script language="VBScript">
    Sub Window_OnLoad
    window.resizeto 300,300
    End Sub
    Sub Start_Button()
    Const ForReading = 1
    Dim objFSO, objFile, inFile, strAnswer
    strAnswer = ""
    If chkCows.Checked Then strAnswer = "Cows"
    If chkGoats.Checked Then strAnswer = "Goats"
    If chkCats.checked Then strAnswer = "Cats"
    If chkDogs.Checked Then strAnswer = "Dogs"
    If chkElephants.Checked Then strAnswer = "Elephants"
    If chkGiraffes.Checked Then strAnswer = "Giraffes"
    'If strAnswer is empty then nothing was checked.
    If strAnswer = "" Then 
    Window.Alert "Please Make an Selection!"
    Exit Sub
    End If
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile( strAnswer, ForReading)
    Set inFile = objFSO.OpenTextFile ( strAnswer, ForReading)
    strContents = objFile.ReadAll
    objFile.Close
    Set outFile = objFSO.OpenTextFile( strAnswer &"_parsed-output.txt", 8, True)
    Do Until inFile.AtEndOfStream
    strSearchString = inFile.ReadLine
    For i = 0 To UBound(words)-1
    If InStr(strSearchString,words(i)) Then
    msg = msg&strSearchString&vbcrlf
    End If
    next
    Loop
    inFile.Close
    outfile.WriteLine msg
    Window.Alert "Done!"
    End Sub
    </script>
    <body bgcolor="white">
    <center>
    <label>Choose your logfile below.</label><br />
    </center>
    <input type="checkbox" name="chkCows" id="chkCows">Cows<br />
    <input type="checkbox" name="chkGoats" id="chkGoats">Goats<br />
    <input type="checkbox" name="chkCats" id="chkCats">Cats<br />
    <input type="checkbox" name="chkDogs" id="chkDogs">Dogs<br />
    <input type="checkbox" name="chkElephants" id="chkElephants">Elephants<br />
    <input type="checkbox" name="chkGiraffes" id="chkGiraffes">Giraffes<br />
    <p>
    <center>
    <input type="button" name="btnStart" id="btnStart" value="Start" onclick="Start_Button">
    </center>
    </body>
    </html>

Dejar respuesta

Please enter your comment!
Please enter your name here