none
Arquivo texto RRS feed

  • Pergunta

  • E ai pessoal tudo bem,

    Criei um arquivo texto desta forma:

    Public Sub CriaArqTexto()
     
      On Error Resume Next

      Dim fFileObjectIni As FILECTLCtl.File
      Dim strLinhaini As String
      Dim strArquivo As String
     
       Set fFileObjectIni = CreateObject("FILECTL.File")
       
       ' Path de onde está localizado o arquivo texto
        strArquivo = "\teste\Teste.txt"
       
        'criando o arquivo:

        fFileObjectIni.Open strArquivo, fsModeAppend
       
        'inserindo dados
        strLinhaini = "Teste Arquivo"
        fFileObjectIni.LinePrint strLinhaini
       
        strLinhaini = "cont=0"
        fFileObjectIni.LinePrint strLinhaini
       
        strLinhaini = ""
       
        'Fechando o arquivo
        fFileObjectIni.Close
       
    End Sub

    Agora, depois que o arquivo ja foi criado, preciso fazer a leitura desse arquivo e verificar se CONT = 0. Como faço isso?

    Estou usando a ferramenta: EMBEDDED VISUAL BASIC

    quarta-feira, 2 de abril de 2008 14:19

Respostas

  • Olá,

     

    Se você quer somente ler o arquivo, pode usar a classe FileStream() nativa do Framework, ela faz parte do System.IO.

     

    []s,

     

    • Marcado como Resposta JrCesar quinta-feira, 5 de fevereiro de 2009 18:22
    quinta-feira, 3 de abril de 2008 01:26