none
Manipulação de texto RRS feed

  • Pergunta

  • Tenho um arquivo com o seguinte texto:
    Jeferson |# Rua Amador Silva |# 301.300 |# Rio de Jeferson
      
    Como faço para ler o arquivo e criar outro(ou alterar o original) para:
    Jeferson
    Rua Amador Silva
    301.300
    Rio de Jeferson

    Outra coisa, alguem sabe como faço para ler por exemplo a linha 3 de um arquivo e colocar em uma variavel?

    domingo, 13 de setembro de 2009 17:21

Respostas

  • Olá,

    Para fazer o tratamento, conforme a linha que você passou:

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'caminho do arquivo txt
    Set objTextFile = objFSO.OpenTextFile("C:\velho.txt",1)

    'caminho do novo Arquivo txt
    Set objNovoArq = objFSO.OpenTextFile("C:\novo.txt", 8, True, 0)

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




    Até mais,

    Jesiel

    Obs.: Se útil, classifique




    • Marcado como Resposta Jesiel S. Pereira segunda-feira, 14 de setembro de 2009 11:32
    domingo, 13 de setembro de 2009 17:46

Todas as Respostas

  • Olá,

    Para fazer o tratamento, conforme a linha que você passou:

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'caminho do arquivo txt
    Set objTextFile = objFSO.OpenTextFile("C:\velho.txt",1)

    'caminho do novo Arquivo txt
    Set objNovoArq = objFSO.OpenTextFile("C:\novo.txt", 8, True, 0)

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




    Até mais,

    Jesiel

    Obs.: Se útil, classifique




    • Marcado como Resposta Jesiel S. Pereira segunda-feira, 14 de setembro de 2009 11:32
    domingo, 13 de setembro de 2009 17:46
  • Ficou perfeito, obrigado.
    domingo, 13 de setembro de 2009 18:41