Error al importar fichero txt

[Casimiro Noteví]

Ahora mismo no recuerdo, pero ¿esto es correcto?

Código Delphi [-]
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, ';',
...
...
etc.

Quiero decir que si ¿writeln admite valores separados por comas?

[jafera]

Hola de nuevo.

El separador es el punto y coma.
Por lo menos defino el

Código Delphi [-]
F.ColDelimiter := ';';

en la importación.

Pero como ya comenté este código en D6 lleva cuatro años funcionando perfectamente en este proceso y algo similar en otros procesos

Josep

[Casimiro Noteví]

Por qué no pruebas a escribir cualquier cosa, para empezar. Por ejemplo,

Código Delphi [-]
writeln(E,"hola")

Y a partir de ahí vas viendo, según el resultado.

[jafera]

He seguido haciendo pruebas.

He creado un fichero a mano con el orden de los campos dejando solo los campos enteros y los alfanumericos en blanco y el resultado es la imagen adjunta.

Creo que por lo que deduzco me interpreta toda la linea como una cadena.

No se que mas mirar.

Saludos

Josep

[[duilioisola]]

Todo indica que está asumiendo que todo es una misma columna.

Te propongo una prueba mas:
Genera el fichero con la función TIBOutputDelimitedFile

De esta manera te asegurarías de que quien escribe el fichero y quien lo lee es el "mismo componente".
Una vez lo hayas exportado, compara los fichero para ver dónde está la diferencia.
Quizás espera un espacio entre campos o necesita que los strings estén entre comillas o alguna cosa de esas.

Ya nos informarás de si esto ha servido...

[jafera]

Buenas de nuevo.

Retomo el hilo para comentaros los avances, o no.

He creado el fichero mediante el uso de un IBSQL tal y como me recomendasteis, el resultado del proceso es un fichero txt exactamente igual que el creado mediante el proceso antiguo.

Al importar este fichero en el ejecutable hecho con XE5, sigue mostrando el error -303, si me llevo el txt tanto el creado mediante IBSQL como el anterior al ejecutable generado con Delphi 6, se importa perfectamente.

Yo creo que voy a dejar este proyecto congelado en Delphi 6 ya que no se que más mirar, ni si puedo poner un visor para ver donde se para exactamente ya que con el F8 se queda en la linea del BatchInput(F).

Código Delphi [-]
F_ModulDades.Act_Girona_Temp.Close;
F_ModulDades.Act_Girona_Temp.Open;
F_ModulDades.Act_Girona_Temp.Append;
F_Importa.IBSQLImporta.SQL.Text := 'Insert into RE0006AGTEMP values(:ID, :ID_REBUT, :ID_ARBITRE, :NOM, ATA, :TITOL, :CODI_CLUB, :CANON, :ID_USUARI)';
F := TIBInputDelimitedFile.Create;
    try
          F.ColDelimiter := ';';
          if OpenDialog1.Execute then
          begin
                   F.Filename := OpenDialog1.FileName;
          end;
          F_Importa.IBSQLImporta.BatchInput(F);
finally
          F.Free;
end;

Lo único que se me ocurre es que si alguien quiere hacer un teamviewer conmigo pues estaré encantado de mostrar el proceso que me lleva de craneo y verlo "fallar" los dos a la vez.

Gracias a todos

Saludos

Josep

Nota esta es una de las lineas creadas con el proceso normal:

43;12;1;FERNANDEZ ALBERTI, Josep Antoni;22/08/2010;ESCALADA CASTELL BLANES;626;1.5;2

Solo me queda dudar de que interprete el espacio entre apellidos como final de linea........

[[duilioisola]]

Por lo que entiendo, en este último mensaje, utilizas Delphi 6 para generar la exportación y Delphi XE5 para la importación.
Este podría ser el problema. A partir de Delphi 2009 (creo) se trabaja con Unicode. Deberías ver la posibilidad de crear la exportación con Delphi XE5 y ver si el fichero es igual al exportado con Delphi 6.
En un fichero de texto, los primeros bytes te dicen si en qué formato está. Mira BOM