none
Vbscript para Leitura de Arquivo Texto RRS feed

  • Pergunta

  • Efetuo conexão via FTP e gero arquivo de LOG.TXT descrevendo passo a passo a conexão no arquivo LOG.TXT. Preciso de Vbs para leitura de arquivo LOG.TXT e encontar a palavra TIMEOUT e após a localização, caso tenha ocorrido TIMEOUT, fechar o LOG.TXT e efetuar a execução de arquivo.bat
    terça-feira, 18 de agosto de 2009 19:05

Respostas

  • Olá,

    Verifique o script abaixo:


    strArquivo = "c:\LOG.txt"

    set FSO = createobject("scripting.filesystemobject")
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    set arq = FSO.opentextfile(strArquivo,1)
    strTexto = arq.readall

    arq.close

     


    Linhas = Split(strTexto, " ")

    For Each strLine in Linhas
    If InStr(strLine, "TIMEOUT") Then
       WSHShell.Run "c:\arquivo.bat", 1, true
       wscript.quit
    End If
    Next



    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    Jesiel
    terça-feira, 18 de agosto de 2009 19:18

Todas as Respostas

  • Olá,

    Verifique o script abaixo:


    strArquivo = "c:\LOG.txt"

    set FSO = createobject("scripting.filesystemobject")
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    set arq = FSO.opentextfile(strArquivo,1)
    strTexto = arq.readall

    arq.close

     


    Linhas = Split(strTexto, " ")

    For Each strLine in Linhas
    If InStr(strLine, "TIMEOUT") Then
       WSHShell.Run "c:\arquivo.bat", 1, true
       wscript.quit
    End If
    Next



    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    Jesiel
    terça-feira, 18 de agosto de 2009 19:18
  • Olá,

    O script atendeu sua necessidade?


    quarta-feira, 19 de agosto de 2009 14:47
  • Jesiel.

    Muito Bom. Desculpe não responder antes, estive inoperante.

    Muito Obrigado.
    Murilo
    • Marcado como Resposta FiapPos quarta-feira, 2 de setembro de 2009 14:30
    • Não Marcado como Resposta Jesiel S. Pereira quarta-feira, 2 de setembro de 2009 15:40
    quarta-feira, 2 de setembro de 2009 14:30
  • Jesiel, desculpe resgatar este tópico, mas ele é referencia para o que preciso...

    O script é  mesmo, perfeito. mas eu preciso que ele escreva os resultados encontrados
    Neste exemplo:

    se encontrar a string "TIMEOUT" escreva no arquivo a palavra "FALHOU"  >>  c:\log.txt 
    se não encontrar a string "TIMEOUT" escreva no arquivo a palavra "SUCESSO"  >>  c:\log.txt


    Desde já agradeço Jesiel!... 
    • Sugerido como Resposta Vitor Felipe domingo, 16 de setembro de 2012 03:38
    terça-feira, 13 de dezembro de 2011 20:26