TRANSPORTAR INFORMACOES DE ARQUIVO DBF

[CDV]

OLA PESSOAL.
GOSTARIA DE SABER COMO FACO PARA TRANSPORTAR INFORMACOES
DE UM ARQUIVO TEXTO PARA UM ARQUIVO DBF, EU SEI QUE TENHO QUE
USAR O FOPEN PARA ABRIR O ARQUIVO E FREAD PARA LER POIS EU SO
CONSIGO LER A PRIMEIRA LINHA DO ARQUIVO TEXTO MAS NAO CONSIGO LER AS INFORMACOES DA SEGUNDA LINHA EM DIANTE

SE ALGUEM PUDER ME AJUDAR AGRADECO.

[Pablo César]

A forma mais prática que tem (não sei se você ja a conhece) é:

USE DBF
APPEND FROM ARQUIVO.TXT SDF

Mas se o formato do seu arquivo texto tiver campos separador com vírgulas, em vez de SDF utilize DELIMITER ","

Lembre que a estrutura do seu DBF tem que correponder com a do seu arquivo.txt

[Maligno]

Lembre que a estrutura do seu DBF tem que correponder com a do seu arquivo.txt

É aí que a coisa pega. Mas não é só isso que atrapalha. Por vezes a formatação de um campo no texto não corresponde com a do DBF, como aconteceu em caso recente, numa outra tread. Daí só mesmo por análise pré-importação, com a ajuda das funções de baixo nível.
Infelizmente ainda não tenho pronto o sub-sistema de texto que comentei há pouco tempo. Ainda falta conferir a parte de gravação. Quando pronto, esse tipo de tarefa será muito simples. Exemplo do que seria:

Código: Selecionar todos

txOpen "c:\arq1.txt" alias "Source" preGet {|s|Filtro(s)+_kEOL}
txCreate tempor noIndex
txImport lines 15 to end from "Source"
//
// APPEND PARA SEU DBF
//
txClose all

Esta seria uma alternativa. O arquivo "Source" será importado da linha 15 até o fim, para "Target". Mas a leitura de cada linha de "Source" será filtrada. Este filtro poderá servir para ignorar, modificar ou reordenar alguns campos. E ao final, ambos os arquivos serão fechados, sendo o temporário apagado. Serviço simples e limpo.