APPEND FROM (rutaf) DELIMITED WITH ";"

leandro · Post by **leandro** » Mon Feb 19, 2007 10:15 pm

Amigos del foro....

Resulta y pasa que tengo que convertir un archivo txt a una dbf lo estoy haciendo de la siguiente manera:

Code: Select all


  rutaf:=LFN2SFN(ruta)
  USE (oLamcla:tSube) ALIAS tSube NEW EXCLUSIVE
  ZAP
  dbgotop()
  APPEND FROM (rutaf) DELIMITED WITH ";"
  dbgotop()

El problema es que no vale el WITH ";" no valida el punto y coma, solo recibe lo que este delimitado por comas ",".

Alguien me puede indicar por que sucede esto, o que debo hacer para que si tome el valor de punto y coma ";".

De antemano gracias

Rochinha · Post by **Rochinha** » Tue Feb 20, 2007 4:06 am

Amigo

Use SET DEMILITER TO ";" no cabecalho do programa e veja se funciona.

leandro · Post by **leandro** » Tue Feb 20, 2007 7:37 pm

Nop

Rochinha:

No me funciono... de todas formas muchas gracias por la respuesta.

Un abrazo.

Rochinha · Post by **Rochinha** » Wed Feb 21, 2007 12:19 am

OK

Try

Code: Select all

APPEND FROM (rutaf) DELIMITED WITH chr(59)

Manuel Valdenebro · Post by **Manuel Valdenebro** » Wed Feb 21, 2007 4:17 am

Amigo Leandro,

Yo lo hago de la siguiente forma:

1) Creo un fichero temporal, con un solo campo (muy grande)
DbCreate( "tFichero.dbf",{ {"NOMBRE", "C", 256, 0} } )

2) Hago el Append From a este fichero temporal :
USE tFichero new EXCLUSIVE
APPE FROM (cFichero) SDF
DBGOTOP()

3) Abro el fichero definitivo y voy copiando la información desde el fichero temporal al definitivo, usando la claúsula SUBSTRING para cada uno de _.

definitivo->NOMBRE:= SUBS(tFichero->NOMBRE, 1, 24)

leandro · Post by **leandro** » Wed Feb 21, 2007 4:54 pm

Rochinha de Nuevo gracias por tu respuesta hice el intento pero no funca..

jejeje

Manuel.. muchas gracias por tu respuesta creo que es lo que voy a hacer... voy a dejar la pereza y montar la rutina... De paso te hago una preguntica... ¿Como detecto si hay un tab ?, en caso que el archivo no venga separado por ";" si no por "tab"? Valga la rebusnancia.

y de Nuevo gracias por la ayuda.

jacgsoft · Post by **jacgsoft** » Wed Feb 21, 2007 5:24 pm

Solo se acepta como delimitador la COMA "," , asi que para otro tipo de caracter delimitador diferente a la COMA"," solo te queda crear una funcion para leer tu archivo que contenga otro tipo de delimitadores, no hay otra.

Jaime

Manuel Valdenebro · Post by **Manuel Valdenebro** » Wed Feb 21, 2007 5:27 pm

Amigo Leandro,

Cuando al mandato APPEND FROM le añade la claúsula SDF los registros y _ tienen una longitud fija. De esa forma, es facil saber donde empieza cada campo y donde termina.

Rochinha · Post by **Rochinha** » Wed Feb 21, 2007 10:35 pm

No me do por vencido.

Amigo usa la solucion de Manuel Valdenebro para cada linha del fichero.

Usa mi funcion em http://www.pctoledo.com.br/forum/viewtopic.php?t=5306 asi:

aArrayObtido := StringToArray( "O|Rochinha|es|tu|amigo", ";" )

Resultado:

? aArrayObtido[1] // Mostra O
? aArrayObtido[2] // Mostra Rochinha
? aArrayObtido[3] // Mostra Es
? aArrayObtido[4] // Mostra Tu
? aArrayObtido[5] // Mostra Amigo

Fica por tu conta ahora.

jose_murugosa · Post by **jose_murugosa** » Thu Feb 22, 2007 3:53 am

Rochinha,

Excelente función, verdaderamente combinándola con la idea de Manuel se logra un "append from" cualquier cosa, sin bases intermedias y con excelente desempeño!!!

Rochinha · Post by **Rochinha** » Thu Feb 22, 2007 4:38 am

Obrigado Jose, no podemos vencer sempre, mas lutar sempre!

leandro · Post by **leandro** » Thu Feb 22, 2007 3:53 pm

Muchas Gracias Rochinha, de verdad que me uno a las felicitaciones de jose excelente funcion, problema solucionado......

De nuevo Muchas Gracias

FiveTech Software tech support forums

APPEND FROM (rutaf) DELIMITED WITH ";"

APPEND FROM (rutaf) DELIMITED WITH ";"

Noppp

Gracias...

Gracias....