Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Lentitud leer .csv (https://www.clubdelphi.com/foros/showthread.php?t=79231)

ErYcK 05-07-2012 22:19:12

Hola ecfisa

He intentado probar este código para ver si comprendía el funcionamiento y tal.

Código:

                if (fp=fopen("C:\Documents and Settings\Eric\Escritorio\prueba.csv","rt"))
                        while ((ch = fgetc(fp))!= EOF)
                        {
                                ShowMessage(ch);
                        }
                fclose(fp);

Con esto pretendía que me mostrara cada carácter que iba leyendo ya que con eso podre comprobar cuando encuentro ";" para pasar los datos a la tabla, pero no me hace nada, y otra cosa que me interesaba hacer pero al parecer no se puede es, en lugar de meter directamente la ruta de acceso al archivo ponerle el OpenDialog1->FileName pero me da error y no se si existe alguna forma de hacerlo.

Gracias por tu paciencia infinita jeje.

Un Saludo

Casimiro Noteví 05-07-2012 22:36:05

Cita:

Empezado por ErYcK (Mensaje 436814)
Con esto pretendía que me mostrara cada carácter que iba leyendo ya que con eso podre comprobar cuando encuentro ";" para pasar los datos a la tabla, pero no me hace nada, y otra cosa que me interesaba hacer pero al parecer no se puede es, en lugar de meter directamente la ruta de acceso al archivo ponerle el OpenDialog1->FileName pero me da error y no se si existe alguna forma de hacerlo.
Gracias por tu paciencia infinita jeje.Un Saludo

Es imposible que tú, con tus ojos, pueda ver la salida de esos caracteres, salen miles por segundo ;)
En cuanto a
Cita:

Empezado por ErYcK
... OpenDialog1->FileName pero me da error ...

estaría bien que dijeras exactamente qué error. Le facilitarías el trabajo de adivinación a ecfisa :)

ecfisa 05-07-2012 22:45:42

Cita:

otra cosa que me interesaba hacer pero al parecer no se puede es, en lugar de meter directamente la ruta de acceso al archivo ponerle el OpenDialog1->FileName
Hola ErYcK.

Sería mas o menos así:
Código:

FILE *fp;
char ch;

  if (OpenDialog1->Execute())
    if ((fp=fopen(OpenDialog1->FileName.c_str(),"rt"))) {
      while ((ch = fgetc(fp))!= EOF)
        if (ch != ';') ShowMessage(ch);
      fclose(fp);
    }}

Saludos.

ecfisa 05-07-2012 22:56:44

Cita:

Empezado por Casimiro Notevi (Mensaje 436819)
estaría bien que dijeras exactamente qué error

No había visto tu mensaje cuando escribía mi respuesta anterior. Pero eso que mencionas es tán importante para guiarse en el problema, que no puedo dejar de remarcarlo.

Saludos. :)


La franja horaria es GMT +2. Ahora son las 17:49:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi