Clipper On Line • Ver Tópico - Objeto FileSystemObject, método OpenTextFile

Objeto FileSystemObject, método OpenTextFile

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Objeto FileSystemObject, método OpenTextFile

Mensagempor asimoes » 18 Jul 2019 15:51

Ler arquivo usando Objeto FileSystemObject, método OpenTextFile

LerArquivo( "ARQUIVO.TXT" )

FUNCTION LerArquivo( cArquivo )
LOCAL oFile, lOk := .T., oErro
LOCAL ForReading := 1, ForWriting := 2, ForAppending := 8
LOCAL TristateUseDefault := -2, TristateVerdadeiro := -1, TristateFalso := 0, cArqTexto := ""
       
//TristateUseDefault    -2    Abre o arquivo usando o padrão do sistema.
//TristateVerdadeiro    -1    Abre o arquivo como Unicode.
//TristateFalso             0    Abre o arquivo como ASCII.
   
   BEGIN SEQUENCE WITH __BreakBlock()
      oFile := Win_OlecreateObject("Scripting.FileSystemObject")
   RECOVER
      lOk := .F.
   END

   IF lOk
      BEGIN SEQUENCE WITH __BreakBlock()
         altd()
         WITH OBJECT oFile
            cArqTexto := :OpenTextFile( cArquivo, ForReading, TristateUseDefault ):ReadAll
         END
      END
   ENDIF

RETURN cArqTexto
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Objeto FileSystemObject, método OpenTextFile

Mensagempor asimoes » 18 Jul 2019 16:27

Ler tudo ou parte do arquivo

FUNCTION LerArquivo( cArquivo )
LOCAL oFile, lOk := .T., oErro
LOCAL ForReading := 1, ForWriting := 2, ForAppending := 8
LOCAL TristateUseDefault := -2, TristateVerdadeiro := -1, TristateFalso := 0, cArqTexto := ""
       
//TristateUseDefault    -2    Abre o arquivo usando o padrão do sistema.
//TristateVerdadeiro    -1    Abre o arquivo como Unicode.
//TristateFalso    ,0    Abre o arquivo como ASCII.
   
   BEGIN SEQUENCE WITH __BreakBlock()
      oFile := Win_OlecreateObject("Scripting.FileSystemObject")
   RECOVER
      lOk := .F.
   END

   IF lOk
      BEGIN SEQUENCE WITH __BreakBlock()
         WITH OBJECT oFile
            WITH OBJECT :OpenTextFile( cArquivo, ForReading, TristateFalso )
               cArqTexto := ""
               For i:=0 to 3 // Pular linhas (1 a 4)
                  nLine := :SkipLine
               Next
               For i:=0 to 3 //Ler linhas (5 a 9)
                  cArqTexto += :ReadLine + Hb_Eol()
               Next
               //cArqTexto := :ReadAll // Ler todo o arquivo
               hwg_MsgInfo( cArqTexto )
             END
         END
      END
   ENDIF

RETURN cArqTexto
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 18 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro