elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Hola necesito ayuda con este codigo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Hola necesito ayuda con este codigo  (Leído 2,055 veces)
yonky_85

Desconectado Desconectado

Mensajes: 32


Ver Perfil
Hola necesito ayuda con este codigo
« 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


En línea

soplo
Ex-Staff
*
Desconectado Desconectado

Mensajes: 3.592

Debian rool'z


Ver Perfil
Re: Hola necesito ayuda con este codigo
« Respuesta #1 en: 30 Agosto 2006, 19:19 pm »

hola
Citar
Text1.Text = "c:\em_sec.txt"
Open "C:EM_SEC.TXT" For Input As #1
eing

¿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


En línea

Callar es asentir ¡No te dejes llevar!
NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Hola necesito ayuda con este codigo
« Respuesta #2 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.-
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines