none
Script Reordenar lista de e-mails TXT RRS feed

Respostas

  • Olá,

    Verifique o script abaixo:



    Const ForReading = 1

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'caminho do arquivo txt
    Set objTextFile = objFSO.OpenTextFile("C:\teste\emails.txt",ForReading)

    'Arquivo novo
    Set objLogFile = objFSO.OpenTextFile("c:\teste\novo.txt", 8, True, 0)


    Do While objTextFile.AtEndOfStream <> True
       linha = objTextFile.ReadLine
       linha = split(linha,",")
       For x = 0 to UBOUND(linha)
          objLogFile.WriteLine TRIM(linha(x))
       Next
    Loop

    objLogFile.Close



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Diógenes Torres terça-feira, 23 de fevereiro de 2010 16:41
    terça-feira, 23 de fevereiro de 2010 13:52

Todas as Respostas

  • Olá,

    Verifique o script abaixo:



    Const ForReading = 1

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'caminho do arquivo txt
    Set objTextFile = objFSO.OpenTextFile("C:\teste\emails.txt",ForReading)

    'Arquivo novo
    Set objLogFile = objFSO.OpenTextFile("c:\teste\novo.txt", 8, True, 0)


    Do While objTextFile.AtEndOfStream <> True
       linha = objTextFile.ReadLine
       linha = split(linha,",")
       For x = 0 to UBOUND(linha)
          objLogFile.WriteLine TRIM(linha(x))
       Next
    Loop

    objLogFile.Close



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Diógenes Torres terça-feira, 23 de fevereiro de 2010 16:41
    terça-feira, 23 de fevereiro de 2010 13:52
  • Obrigado Jesiel,
    Funcionou conforme eu esperava!

    Parabéns.
    Se útil classifique como tal.
    terça-feira, 23 de fevereiro de 2010 16:41
  • Jesiel,
    Os emails ficaram duplicados.
    Se útil classifique como tal.
    terça-feira, 23 de fevereiro de 2010 17:10