PC Toledo

Pessoal, estou com um problema. Tem um cliente meu que usa um relogio de ponto codin Jr. 9000 e ele gera os dados dos funcionarios num arquivo texto. Preciso converter este arquivo texto em DBF. Segue abaixo o modelo como vem no arquivo texto.
000000114441904060400000071
sendo:
0000001 codigo da empresa.
1444 horario que passou o cartao
190406 data.
04 controle.
00000071 nº da matricula.
Pelo exemplo que tem na seção de Download não consegui, porque lá ele pega o campo data e hora já no formato como vai para o DBF.

Desde ja agradeço.

Fernando Borges.

Nobre amigo, se entendi bem você deseja passar no caso da data e hora do texto já pro dbf, que contém os campos já no formato de data, ok? Se for isso, tente o seguinte código:
O conteúdo no arquivo TXT é: 000000114441904060400000071, sendo 0000001 o código da empresa, 1444 o horário que passou o cartao, 190406 a data, 04 o controle e 00000071 o nº da matrícula.
Suponhamos então que o arquivos TXT se chama PONTO.TXT e o DBF também se chama PONTO.DBF

Suponhamos também que os campos no DBF são respectivamente:
CODEMP CARACTER DE 7
HORARIO CARACTER DE 5
DATA DATE 8
CONTROL CARACTER DE 2
MATRIC CARACTER DE 8

Tente o seguinte código:

set date to french
use ponto.dbf
carquivo:=memoread("ponto.txt")
nlinhas :=mlcount(carquivo)
for i=1 to nlinhas
clinha := memoline(carquivo,,i)
ccodemp:= substr(clinha,1,7)
chorario := substr(clinha,8,2)+":"+substr(clinha,10,2)
ddata := ctod(substr(clinha,12,2)+"/"+substr(clinha,14,2)+"/"+substr(clinha,16,2))
ccontrole:= substr(clinha,18,2)
cmatricul:= substr(clinha,20,8)
append blank
repl codemp with ccodemp
repl horario with chorario
repl data with ddata
repl control with ccontrole
repl matric with cmatricul
next

Agora, caso os campos não sejam nos formatos que dei exemplo, ou eu tenha entendido errado e seja outro o problema, favor informar.
Agora se for isso mesmo, espero que possa estar lhe ajudando de alguma forma.

Sem mais,
Renato Martins

Caro colega, boa tarde!

As vezes preciso converter arquivos TXT em DBF e para isso, uso o EXCEL.

Basta você abrir o arquivo TXT no EXCEL, arrastar as linhas de coluna para a posição que você deseja e o TXT vira XLM. Aí é só mandar salvar em DBF.

É muito simples e fácil. Não sei se ajudou, mas, é mais uma dica.