Título: Hola necesito ayuda con este codigo Publicado por: yonky_85 en 30 Agosto 2006, 19:11 pm Que tal eske tengo problema con este codigo que debe hacer una conexion para llamar al archivo "em_sec.dat" si alguien me ayudara a tener una emjor idea para hacer llamadas a archivos ".dat" se loS agradeceria.
SALUDOS Private Sub Form_Load() crlf$ = Chr(13) & Chr(10) Text1.Text = "c:\em_sec.txt" Open "C:EM_SEC.TXT" For Input As #1 While Not EOF(1) Line Input #1, file_data$ Text1.Text = Text1.Text & file_data$ & crlf$ Wend Close #1 End Sub Título: Re: Hola necesito ayuda con este codigo Publicado por: soplo en 30 Agosto 2006, 19:19 pm hola
Citar Text1.Text = "c:\em_sec.txt" eingOpen "C:EM_SEC.TXT" For Input As #1 ¿No sería mejor esto? Código: Text1.Text = "c:\em_sec.txt" Open TEXT1 For Input As #1 Respecto a lo que estas metiendo en text1 en ese bucle pues espero que tu lo entiendas porque yo no. ;D Título: Re: Hola necesito ayuda con este codigo Publicado por: NYlOn en 30 Agosto 2006, 22:04 pm No estas poniendo \ entre C y :
Seria C:\EM_SEC.TXT Y se puede reducir un poco el codigo: Código: Private Sub Form_Load() Text1.Text = "c:\em_sec.txt" Open Text1 For Input As #1 While Not EOF(1) Line Input #1, file_data$ Text1.Text = Text1.Text & file_data$ & CrLf Wend Close #1 End Sub Saludos.- |