Asignar variable a Textbox
Publicado por KIKE (43 intervenciones) el 20/01/2013 06:34:57
Hola amigos.
Tengo el siguiente codigo para contar las lineas de un texto. Mi problema es que el texto que quiero abrir es el que esta en otro TextBox del formulario, y que anteriormente he introducido.
Es por lo que al cargar el formulario asigno lo que hay en ese box a la variable PGMenTEXT14. Es esa variable la que pongo al final del arbol de lectura de fichero.
Dim PGMenTEXT14 As String
Dim Linea As String
Dim CantidadDeLineas As Long
Private Sub Command1_Click()
Open "C:\Documents and Settings\usuario\Escritorio\CADENAS\PGMenTEXT14" For Input As 1
Do While Not EOF(1)
Line Input #1, Linea
CantidadDeLineas = CantidadDeLineas + 1
Loop
Close #1
Text1.Text = CantidadDeLineas
Text2.Text = Linea
End Sub
Private Sub Form_Load()
PGMenTEXT14 = Text14.Text
Text1.Text = ""
Text2.Text = ""
End Sub
Al hacerlo correr me sale ERROR "No se ha encontrado el archivo".
Me podeis ayudar?? Es urgente. GRACIAS a todos.
Tengo el siguiente codigo para contar las lineas de un texto. Mi problema es que el texto que quiero abrir es el que esta en otro TextBox del formulario, y que anteriormente he introducido.
Es por lo que al cargar el formulario asigno lo que hay en ese box a la variable PGMenTEXT14. Es esa variable la que pongo al final del arbol de lectura de fichero.
Dim PGMenTEXT14 As String
Dim Linea As String
Dim CantidadDeLineas As Long
Private Sub Command1_Click()
Open "C:\Documents and Settings\usuario\Escritorio\CADENAS\PGMenTEXT14" For Input As 1
Do While Not EOF(1)
Line Input #1, Linea
CantidadDeLineas = CantidadDeLineas + 1
Loop
Close #1
Text1.Text = CantidadDeLineas
Text2.Text = Linea
End Sub
Private Sub Form_Load()
PGMenTEXT14 = Text14.Text
Text1.Text = ""
Text2.Text = ""
End Sub
Al hacerlo correr me sale ERROR "No se ha encontrado el archivo".
Me podeis ayudar?? Es urgente. GRACIAS a todos.
Valora esta pregunta


0