Existem várias maneiras de ler arquivos TXT e gravar as informações
em arquivos DBF, utilizando comandos como FOPEN, FREAD, etc.
Se o TXT não for muito grande, podem ser utilizadas as funções MEMOREAD, MEMOLINE etc.
Apresento aqui uma maneira simples de ler um TXT e gravar em um DBF.
Crie um arquivo DBF com campos de acordo com os campos do TXT, exemplo:
Arquivo TXT
001LUCIANO 002JOAO 003MARIA 004FERNANDO
Arquivo DBF
Campo
Tipo
Tamanho
Dec.
CODIGO
C
03
00
NOME
C
10
00
Programa para converter o TXT para o DBF:
use ArqDbf exclusive new
append from ArqTxt.TXT sdf
Pronto, os registros do TXT já estão no DBF! Simples, não é!
Mas se o arquivo TXT está num formato diferente, por exemplo, com um
ponto-e-vírgula separando os campos e sem os espaços para completar
o tamanho dos campos.
Exemplo:
Arquivo TXT
001;LUCIANO;Rua A, n 5
002;JOAO;Rua B, n 8
003;MARIA;Rua C, n 10
004;FERNANDO;Rua D, n 12
Neste caso teremos mais trabalho, mas também podemos converter.
Crie um arquivo DBF com um campo do tipo caracter, com tamanho igual ou maior ao
tamanho do maior registro do TXT.
Use o comando APPEND FROM ... SDF, conforme apresentado no exemplo anterior.
O DBF conterá os registros do TXT em um só campo.
Utilize a função AT() para localizar os caracteres separadores, neste
caso o ponto-e-vírgula, e use a função SUBSTR() para separar as
informações, depois é só gravá-las em outro DBF
com os campos separados.