FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda con APPEND FROM
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Ayuda con APPEND FROM
Posted: Thu Mar 10, 2011 04:12 PM
Hola amigos

Quiero cargar un archivo TXT a una base delimitado por pipe |
y no logro hacerlo.

lo hago asi:
Code (fw): Select all Collapse
USE OPERAVTA ALIAS Trial NEW EXCLUSIVE
APPEND FROM "TB.TXT" DELIMITED WITH "|"


carga mal.

Gracias por la ayuda

Saludos,

Adhemar
Saludos,



Adhemar C.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda con APPEND FROM
Posted: Thu Mar 10, 2011 04:21 PM

Format: TYPE SDF | DELIMITED [WITH <delimiter>|BLANK]

If the desired FROM <file> is not a database, the TYPE clause
may be used to specify SDF or DELIMITED <file> formats. The
default extension for these formats is "TXT".

An SDF file is an ASCII text file in which the records have a
fixed length and end with a carriage return and line feed.

A DELIMITED file is an ASCII text file in which each record ends
with a carriage return and line feed. Fields are normally sepa-
rated by commas, and character fields are additionally delimited
by double quotation marks. However, the DELIMITED WITH BLANK
option may be used to indicate that fields are separated by
spaces rather than commas; and, the DELIMITED WITH <delimiter>
option may be used to indicate that character fields are de-
limited by a character other than a double quotation mark.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Ayuda con APPEND FROM
Posted: Thu Mar 10, 2011 07:08 PM

Gracias Joao

Pero no logro hacerlo funcionar.

Algun Ejemplo

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda con APPEND FROM
Posted: Thu Mar 10, 2011 08:13 PM

Desculpe, no comprendo perfecto, desejas eliminar el caracter: "|" ? Se si, CHR(13)+chr(10)

Si no, haces la pregunta en: http://www.fivewin.com.br

Salud2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ayuda con APPEND FROM
Posted: Fri Mar 11, 2011 02:45 AM

Adhemar

Podrias colocar el TXT o uno similar....

Gracias

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Ayuda con APPEND FROM
Posted: Fri Mar 11, 2011 12:13 PM

Ahi va

240|Room Serv. Alimentos|911.00|
241|Room Serv. Bebidas|71.00|
242|Room Serv. Varios|12.00|
244|Room Serv.Descuentos|-130.80|

Estructura de la base
COD C 4
DESCRIP C 30
MONTO N 10 2

La primer columna la pasa bien.

Gracias Daniel

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Ayuda con APPEND FROM
Posted: Fri Mar 11, 2011 08:12 PM

Amigos,

Parece que no han tenido esta necesidad. No puedo hacerlo cargar bien.

Si no se puede con el APPEND
Se me ocurre leer el archivo de texto y sacar por parte y grabar en la base

Necesito ayuda.

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ayuda con APPEND FROM
Posted: Fri Mar 11, 2011 11:47 PM
Adhemar

solo funciona si esta separado por comas ",", de esa forma no es neceario usar WITH "|"

Ejemplo para probar
Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

function main()

   CreaDbf()
   append from "text.txt" delimited 
   dbgotop()
   Browse()
   
return  nil

function CreaDbf()

   if ! File( "data.dbf" )
   
      DbCreate('data', {{'cod'     , 'C',   4,   0}  ,;
                        {'DESCRIP' , 'C',  30,   0} ,;
                        {'monto'   , 'N',  10,   2} }, 'DBFCDX')
   else 
      use data alias data new via "dbfcdx"
      zap
   endif
                         
return nil


Text file
Code (fw): Select all Collapse
240,Room Serv. Alimentos,911.00
241,Room Serv. Bebidas,71.00
242,Room Serv. Varios,12.00
244,Room Serv.Descuentos,-130.80


Adhemar te doy una sugerencia muy util, para los proximos post que solicites ayudas ante un problema que consigas, intenta ofrecernos un ejemplo que podamor construir y que podamos reproducir el error que obtienes, sera mas facil ayudarte...
yo en lo particular dejo de ultimo los post que ofrecen informacion limitada o por minimo un ejemplo
te recomiendo leas este post:http://forums.fivetechsupport.com/viewtopic.php?p=103821#p103821
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Ayuda con APPEND FROM
Posted: Sat Mar 12, 2011 02:09 PM

Gracias Daniel

Separado por coma funciona.

El problema es cuando el monto es mayor a 999.00 viene con la con la , de miles. Ej: 1,324.23
y el archivo TXT lo crea otro sistema.

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: Ayuda con APPEND FROM
Posted: Sat Mar 12, 2011 08:21 PM

Adhemar,

aumenta un campo a tu tabla

COD C 4
DESCRIP C 30
MONTO N 10 2
BLANCO C 10

haber que pasa, nos dices

saludos

Marcelo

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Ayuda con APPEND FROM
Posted: Mon Mar 14, 2011 02:14 PM

Gracias Marcelo
No funciona

Como remplazar todas las "," por "" en un archivo de texto

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Ayuda con APPEND FROM
Posted: Mon Mar 14, 2011 02:40 PM

Lo logre con STRTRAN(tFile,",","")

Gracias

Saludos,

Adhemar

Saludos,



Adhemar C.

Continue the discussion