PC Toledo

Enviado: **18 Jan 2005 11:07**

Alo galera,

Bom dia a todos,

Preciso de uma dica urgente. Preciso Ler um arquivo .DBF selecionar alguns campos e salvar em arquivo .TXT. Como é que posso criar, abrir, ler e gravar um arquivo .TXT? Gostaria que algun colega do forum me ajudasse ok? Sou Clippeiro a vários anos mas nunca precisei trabalhar com arquivos .TXT. Quem puder ajudar se possível me mande esta dica o mais urgente possível pois tenho que dar uma solução a um cliente meu hoje até as 12:00. Se possível responda para meu e-mail --> sing@click21.com.br

Desde já fico-lhe muitíssimo grato pela colaboração de todos

um grande abraço,

Carlos Singulani

Enviado: **18 Jan 2005 11:18**

Bom dia Copiei uma parte do meu sistema fiz somente umas modificações estou sem mto tempo mas espero q vc entenda a rotina abaixo, é uma exportação do meu cadastro de funcionários para um arquivo txt...

Código: Selecionar todos

       /* gerando o nome do arquivo */
	cArquivo := "DUDU_XBASE".TXT"


	/* criando o arquivo */
	nHandle := fcreate ("cArquivo, FC_NORMAL)

	dbselectarea ("arq_fun")

	? "Aguarde Exportando Cadastro de Funcionários" 
	tone (3000,2)
	tone (4000,2)

	while ( CODCLI >= cCliente .and. CODCLI <= cCliente .and. !eof () )

	    /* montagem do registro */

	    cLinha := ""
	    cLinha += arq_fun->CODFUN
	    cLinha += arq_fun->CODEMP
	    cLinha += arq_fun->NOMFUN
	    cLinha += arq_fun->DEPFUN
	    cLinha += arq_fun->FONFUN
	    cLinha += arq_fun->ENDFUN
	    cLinha += arq_fun->REFFUN
	    cLinha += arq_fun->BAIFUN
	    cLinha += arq_fun->MUNFUN
	    cLinha += arq_fun->ESTFUN
	    cLinha += arq_fun->CEPFUN
	    cLinha += arq_fun->GUIFUN
	    cLinha += arq_fun->ENDALT
	    cLinha += arq_fun->REFALT
	    cLinha += arq_fun->BAIALT
	    cLinha += arq_fun->MUNALT
	    cLinha += arq_fun->ESTALT
	    cLinha += arq_fun->CEPALT
	    cLinha += arq_fun->GUIALT
	    cLinha += transform(arq_fun->QTDCES, "999999")
	    cLinha += arq_fun->STAFUN
	    cLinha += arq_fun->CODMOT
	    cLinha += arq_fun->NOMMOT
	    cLinha += chr(13)+chr(10) // para saltar a Linha

	    // para gravar no arquivo txt
            fwrite (nHandle, cLinha, len (cLinha))

	    dbskip ()

	enddo

	fclose (nHandle)

	? "Exportação Efetuada com Sucesso"
	tone (3000,2)
	tone (3000,3)

Enviado: **18 Jan 2005 11:48**

Obrigado Dudu, pele rotina pronta que me enviou.Vou colocar em prática agora e qq dúvida volto a falar.

um abraço...

Carlos Singulani...

PC Toledo

Arquivos TXT

Arquivos TXT

Arquivo .TXT