Error al importar fichero txt

[jafera]

Gracias por la respuesta.

He mirado el fichero txt generado asi como la estructura de la tabla de destino y cuadra todo.

No se como hacer para ver el resultado de la linea

Código Delphi [-]
F_Importa.IBSQLImporta.BatchInput(F);

que es la que me da el error, se debe hacer con un Add Watch?

No se estoy un poco (mucho) desorientado ya que este proceso lleva tiempo funcionando correctamente.

Saludos

Josep

[[duilioisola]]

El error este se da también cuando el string que quieres importar es demasiado largo para el campo donde debe entrar.
Aparentemente tienes un archivo separado por el caracter ";"
Prueba primero importar una sola línea.
Si no funciona, seguramente hay un problema en el fichero y no reconoce bien el "corte" de cada columna

Si es funciona, prueba a importar 2 líneas.
Si no funciona, puede ser que no reconozca los saltos de línea.

Si funciona, has una búsqueda dicotómica en el fichero
- divide al medio el fichero
- importalo
- Si no hay error, el error se encuentra en la otra mitad. Si hay error está en la primera mitad.
- Vuelve a hacer la búsqueda con la mitad que falla.

[jafera]

Gracias por la respuesta.

He importado linea a linea y no me da ningun error.
Puede ser esto que comentas que no reconozca el salto de linea?
Si es así como puedo hacer que me reconozca el salto, en D6 no daba ningún error y funciono durante mucho tiempo hasta que he realizado la migración a XE5

Saludos

Josep

Edito: He probado otro proceso que tambien importa otro txt y me da el mismo error, ahora si que creo que no reconoce el salto de linea.

[[duilioisola]]

Si no me equivoco, este componente también tiene un atributo "RowDelimiter".
Este sería el delimitador de siguiente línea
Mira qué es lo que tiene y modifícalo para que sea #13 o #13#10 por ejemplo.

[jafera]

Gracias de nuevo.

Yo no veo este atributo por ningun lado, no se si estoy en lo correcto, la generacion del txt lo hago con la consulta sql siguiente:

Código SQL [-]
if F_Confirmacio.ShowModal = mrok then
                        begin
                                SQLAcumula.Close;
                                SQLAcumula.ParamByName('DESDEDATA').AsDate := JvDateEdit1.Date;
                                SQLAcumula.ParamByName('FINSDATA').AsDate := JvDateEdit2.Date;
                                SQLAcumula.Open;
                                If SaveDialog1.Execute then
                                begin
                                        AssignFile(E, SaveDialog1.FileName);
                                        Rewrite(E);
                                        SQLAcumula.First;
                                        while not SQLAcumula.Eof do
                                        begin
                                                WriteLn(E, SQLAcumulaID_REBUT.Value, ';', SQLAcumulaID_USUARI.Value, ';', DateToStr(SQLAcumulaDATA.Value), ';', SQLAcumulaTITOL.Value, ';', SQLAcumulaC_POSTAL.Value, ';', SQLAcumulaCODI_CLUB.Value, ';',
                                                SQLAcumulaARBITRES.Value, ';', FloatToStr(SQLAcumulaMATERIAL.Value), ';', SQLAcumulaI1.Value, ';', SQLAcumulaI2.Value, ';', SQLAcumulaI3.Value, ';', SQLAcumulaI4.Value, ';',
                                                SQLAcumulaI5.Value, ';', FloatToStr(SQLAcumulaTI1.Value), ';', FloatToStr(SQLAcumulaTI2.Value), ';', FloatToStr(SQLAcumulaTI3.Value), ';', FloatToStr(SQLAcumulaTI4.Value), ';',
                                                FloatToStr(SQLAcumulaTI5.Value), ';', FloatToStr(SQLAcumulaTOTAL_REBUT.Value), ';', FloatToStr(SQLAcumulaIMPORT.Value), ';', SQLAcumulaTEXTE.Value, ';', SQLAcumulaSUSPENSIO.Value, ';',
                                                SQLAcumulaKM_TOTALS.Value, ';', SQLAcumulaASPIRANT.Value, ';', TimeToStr(SQLAcumulaHORA_CONS.Value), ';', TimeToStr(SQLAcumulaHORA_SORT.Value), ';', SQLAcumulaNUM_CORREDORS.Value, ';', SQLAcumulaID_ARBITRE.Value, ';',
                                                SQLAcumulaID_METGE.Value, ';', SQLAcumulaDIR_CURSA.Value, ';', SQLAcumulaCATEGORIA.Value, ';', SQLAcumulaZONA.Value, ';', FloatToStr(SQLAcumulaKM_CURSA.Value), ';',
                                                SQLAcumulaTRANSP.Value, ';', SQLAcumulaGRAVAT.Value, ';', SQLAcumulaPREU_FIX.Value, ';', FloatToStr(SQLAcumulaIMPORT_2.Value), ';',
                                                FloatToStr(SQLAcumulaFEINER.Value), ';', FloatToStr(SQLAcumulaDOS_SECTORS.Value), ';', FloatToStr(SQLAcumulaCAMPIONAT.Value), ';', FloatToStr(SQLAcumulaI10.Value), ';', SQLAcumulaCODI_BARRES.Value, ';', SQLAcumulaCREA_REBUT.Value, ';',
                                                FloatToStr(SQLAcumulaTI6.Value), ';', FloatToStr(SQLAcumulaBICIXIPS.Value), ';', SQLAcumulaNUM_FIX.Value, ';', SQLAcumulaPAGAT.VaLue, ';', SQLAcumulaEXTRES.Value, ';', SQLAcumulaREPART.Value, ';', SQLAcumulaPAGADOR.Value);
                                                SQLAcumula.Next;
                                        end;
                                        CloseFile(E);
                                end;
                                Showmessage('Fitxer creat');

Estoy perdido.

Saludos

Josep

[[duilioisola]]

Puede ser que algún valor de los que exportas tenga un ; dentro y al importarlo lo separe en dos y todo se mueva...

Imagina que el valor de un campo tipo string contenga el caracter que utilizas para separar campos:
NOMBRE = 'JUAN PEREZ'
DIRECCION = 'AV. PRINCIPAL NRO. 123; PISO 3' <-- Hay un ; en medio.
IMPORTE = 1234.56

si exportas esto como NOMBRE;DIRECCION;IMPORTE tendrás :
'JUAN PEREZ;AV. PRINCIPAL NRO. 123; PISO 3;1234,56'

Al separarlos obtendrás:
NOMBRE = 'JUAN PEREZ'
DIRECCION = 'AV. PRINCIPAL NRO. 123'
IMPORTE = PISO 3 <-- Esto no es un valor numerico

Otra cosa que puede estar molestando en la importación es la conversión de Float a String.
En España se utiliza la "," como separador decimal. En Norteamérica se utiliza el "."
La convertir mediante FloatToStr utiliza el separador decimal que el ordenador tiene definido y esto puede traer problemas si la importación espera valores separados por "." decimal

[jafera]

Revisado de nuevo y no hay ningun ";" dentro de ningun campo.

Lo mas extraño es que tal y como he comentado antes en D6 funcionaba bien y en XE5 no.

Cuando llegue a casa tengo una máquina con XP 32 bits y probaré si allí lo importa, luego comentaré el resultado

Gracias a todos

Josep

[jafera]

Probado en una máquina XP 32 bits y falla igual, da el mismo error.

Existe alguna forma d visualizar linea a linea lo que voy importando para sabere n que momento peta?

Gracias

Josep