RE:Importar desde un fichero txt
Muy buenas:
Voy a ver si por una vez, puedo dar ayuda y no como hago siempre, pedirla.
Quizas mi solucion, como mi 'admirado' tocayo dice, es matar moscas a cañonazos, pero a veces los menos 'pudientes' son las unicas armas con las que contamos.
Una manera y siempre y cuando los datos a tomar del TXT vengan linea a linea, y esta no supere un tamaño, muy grande si, creo que unas 1200 posiciones, es leer esa linea y guardarla en un campo DBF. A partir de ahí ese campo lo maneja a tu gusto.
LOCAL cFile:="*.txt"
LOCAL cFichero
cFichero:=cGetFile(cFile,"Seleccione el Fichero")
DBSelectArea(50)
DBUseArea(,,"Importa",,.F.)
APPEND FROM &cFichero SDF
de esta manera la DBF Importa contendrá un registro con cada linea del TXT.
Otra manera, un poco mas profesional y por si la liena es larga, larga.
LOCAL nManejador
LOCAL cFichero
LOCAL cFile:= "*.txt"
LOCAL cDatos // Donde guardaremos los datos
LOCAL nPos // Posicion de la cadena de
// donde extraer el dato
cFichero:=cGetFile(cFile,"Seleccione el Fichero")
IF (nManejador:=fOpen(cFichero))>=0 // No sea que este vacio !!
fSeek(nManejador,nDespl,0) // Para desplazarse
fRead(nManejador,@cDatos,9) // Leer 9 posiciones
ENDIF
Tu mism@, muy a tener en cuenta la estructura del TXT, que seguramente la empresa que te lo envia podrá facilitartelo.
Espero que te sea de ayuda, lo cual me hará sentir bien
Saludos
Gabriel Martin
Mataró, Spain