Ayuda 3
Publicado por Hunter (13 intervenciones) el 31/12/2004 03:42:58
Quiciera Saber si este es el procedimiento correcto para mostrar el contenido de una lectura de un archivo externo:
Option Explicit
Public N, D, T, V1, V2, V3 As String
Private Sub Form_Load()
Open "texto.txt" For Input As #1 'Lectura de Variables
While EOF(1) ' Comprovación de fin de Archivo
Print #1, N, D, T ' Lectura de Variables
V1 = N: V2 = D: V3 = T 'Asignacion de Variables
Wend ' Fin del While
Close #1 ' Cerrando A
VA.Caption = V1: VB.Caption = V2: VC.Caption = V3 ' Presentacion de Variables
' VA, VB, VC Corresponden a las Etiquetas dentro del form1
End Sub
-----------
Cualquier ayuda es bienvenida
Option Explicit
Public N, D, T, V1, V2, V3 As String
Private Sub Form_Load()
Open "texto.txt" For Input As #1 'Lectura de Variables
While EOF(1) ' Comprovación de fin de Archivo
Print #1, N, D, T ' Lectura de Variables
V1 = N: V2 = D: V3 = T 'Asignacion de Variables
Wend ' Fin del While
Close #1 ' Cerrando A
VA.Caption = V1: VB.Caption = V2: VC.Caption = V3 ' Presentacion de Variables
' VA, VB, VC Corresponden a las Etiquetas dentro del form1
End Sub
-----------
Cualquier ayuda es bienvenida
Valora esta pregunta


0