none
Script para ler arquivo de texto RRS feed

  • Pergunta

  • Olá pessoal, 

    Preciso do conhecimento de vocês para me tirar uma dúvida num trabalho que venho fazendo.

    Tenho um diretório com varios arquivos com uma extenção que o sistema que eu uso consegue interpretar, dentro de cada arquivo tenho varias informações, porém algumas são padronizadas. Minha dúvida é a seguinte:

    Ex: ConteudoArquivo1 = xxxxxxxxxx Maçã xxxxxxxxxxx

          ConteudoArquivo2 = xxxxxxxxxx Laranja xxxxxxxxxxx

          ConteudoArquivo2 = xxxxxxxxxx Banana xxxxxxxxxxx

    Preciso fazer algo assim:

    Se o texto encontrado dentro desse arquivo for maçã, move para pasta maçã, se for banana, move para pasta banana ...

    Preciso deletar o arquivo da pasta atual e manter um historico, no codigo abaixo explico um pouco melhor:

    PS: esses meus arquivos estão numa extenção diferente, precisaria fazer algo pra abrir esse arquivo e ler a informação ai dps ele julgaria pra qual pasta iria.

    Eu fiz algo em VBS porém não consegui terminar (não está lendo nenhum arquivo):

    Conto com a ajuda de vocês! Obrigado!!

    Set oShell = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")


    sDiretorioBKP = "C:\temp2\pasta_arquivos"
    sDiretorioPROD = "C:\temp2\pasta_maçã\"
    sDiretorioHIST = "C:\temp2\historico\"


    Set oFolderTXT = oFSO.GetFolder(sDiretorioBKP)
    Set sfilesTXT  = oFolderTXT.Files

    If sfilesTXT.Count > 0 Then
    ChecaPasta()
    Else
    msgbox "Pasta vazia" & Chr(13) & "Finalizando o sistema",48,"Alerta Propaganda"
    End If

    Sub ChecaPasta()
    Do Until sFile=True
    IF sfilesTXT.Count > 0 Then
    msgbox "Entrei na pasta AQRUIVOS" & Chr(13) & "total de arquivos encontrados" & sfilesTXT.Count,48,"MSG"
    ExecutaVarredura()

    Else
    msgbox "Pasta vazia" & Chr(13) & "Finalizando o sistema",48,"Alerta Propaganda"

    End If
    Loop
    End Sub

    Sub ExecutaVarredura()
    For i = 1 to sfilesTXT.Count
    For each sTXT In sfilesTXT


    oFSO.CopyFile oFSO.GetAbsolutePathName(sTXT), sDiretorioHIST  ,true
    oFSO.CopyFile oFSO.GetAbsolutePathName(sTXT), sDiretorioPROD  ,true
    oFSO.DeleteFile oFSO.GetAbsolutePathName(sTXT),true

    Next
    Next

    End Sub

    quarta-feira, 15 de novembro de 2017 15:27