Urgente por favor
Como transfiero un archivo *.txt a *.dbf a través de códigos, por tengo una máquina de acceso que me da la información tipo *.txt archivo plano.
Gracias
Gracias
1 Respuesta
Respuesta de netbuzos
1
Local larchivo
larchivo=getfile('txt')
Create CURSOR ltxt (txt M)
Select ltxt
Append BLANK IN ltxt
Append MEMO ltxt.txt FROM &larchivo
** de aqui en adelante lo puedes manejar como quieras, y tomar los datos del campo memo para llenar otras cosas.
larchivo=getfile('txt')
Create CURSOR ltxt (txt M)
Select ltxt
Append BLANK IN ltxt
Append MEMO ltxt.txt FROM &larchivo
** de aqui en adelante lo puedes manejar como quieras, y tomar los datos del campo memo para llenar otras cosas.
