FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour APPEND FROM (rutaf) DELIMITED WITH ";"
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: 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 Collapse
  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
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Rochinha
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: Tue Feb 20, 2007 04:06 AM

Amigo

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

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Noppp
Posted: Tue Feb 20, 2007 07:37 PM

Nop :(

Rochinha:

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

Un abrazo.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Rochinha
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: Wed Feb 21, 2007 12:19 AM
OK

Try
Code: Select all Collapse
APPEND FROM (rutaf) DELIMITED WITH chr(59)
@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br
Manuel Valdenebro
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: Wed Feb 21, 2007 04: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 los campos.

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



Manuel
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Gracias...
Posted: Wed Feb 21, 2007 04: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.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
jacgsoft
Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: Wed Feb 21, 2007 05: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
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: Wed Feb 21, 2007 05:27 PM

Amigo Leandro,

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

Un saludo



Manuel
Rochinha
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: 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.

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: Thu Feb 22, 2007 03: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!!!

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Rochinha
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
APPEND FROM (rutaf) DELIMITED WITH ";"
Posted: Thu Feb 22, 2007 04:38 AM

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

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Gracias....
Posted: Thu Feb 22, 2007 03:53 PM

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

De nuevo Muchas Gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion

Static archive · New replies & topics via GitHub Discussions