Error al importar fichero txt

[[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

[jafera]

Hola a todos.

Más investigaciones, ejecutando el código en DXE5, falla siempre incluso si le pongo una sola linea me dice que fichero importado, (con lo que creia que lo habia solucionado), pero no importa nada no añade ningun registro a la tabla; si pongo más lineas pues sql error -303 etc, etc..

Si introduzco a mano los datos del txt directamente desde IBExpert en la tabla, me lo coge perfectamente, con lo cual deduxco que no es un problema del formato del txt, aunque algo esta temblando por ahí y no lo consigo aislar.

Si ejecuto el código, que es exactamente igual (he revisado linea a linea), en D6 me importa el fichero sin más.

He revisado el tema del decimal separator y está establecido en el '.' (punto), en la configuración de W7 tambien está establecido el punto.

No se que más mirar, estoy más perdido que una cabra en un garaje.

Gracias y saludos

Josep