Ver Mensaje Individual
  #2 (permalink)  
Antiguo 02/11/2008, 03:14
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 3 meses
Puntos: 37
Respuesta: Pasar line de texto (.txt) a un texbox

Cita:
Iniciado por andrer Ver Mensaje
hola tengo un apregunta para ustedes :D

pues lo que quiero hacer es pasar un line de un texto .txt a un texbox1 en vb

por ejemplo quiero pasar la linea 20 del texto a un textbox como hacer eso ayudarme :)
Hola, el procedimiento es sencillo; primero abres el archivo de texto y cargas su contenido en una variable de tipo String y después cargas en un vector cada una de las líneas de la variable. Ahí va el ejemplo

Código:
Private Sub Command1_Click()
Dim s As String, a() As String

Open App.Path & "\Archivo.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)
Text1.Text = a(19)
End Sub
Nota: El elemento 19 del array es la línea 20 del archivo ya que el índice inferior del array es cero.