Pasar line de texto (.txt) a un texbox

[andrer]

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 :)

[Avellaneda]

Iniciado por andrer

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.

[andrer]

ole funciona realmente bien gracias compañero :)

[andrer]

Avellaneda a ver si puedesa audarme con esta pregunta?

texto (.txt)

Código:

linea20 -> rojo amarillo verde

bueno en la linea 20 tengo las tres palabras rojo amarillo verde y quiero extraer solo la palabra amarillo de esta linea(20) y colocarla en el textbox1
que es lo quenecesito añadirle al codigo anterior? :) ayudame por favor o cualquiera

[franko1809]

Revisa este link parece que debes usar la funcion insrt

[Avellaneda]

Iniciado por andrer

Avellaneda a ver si puedesa audarme con esta pregunta?

texto (.txt)

Código:

linea20 -> rojo amarillo verde

bueno en la linea 20 tengo las tres palabras rojo amarillo verde y quiero extraer solo la palabra amarillo de esta linea(20) y colocarla en el textbox1
que es lo quenecesito añadirle al codigo anterior? :) ayudame por favor o cualquiera

Podrías crear un nuevo array con las palabras del elemento seleccionado, sería algo así:

Dim a2() As String
a2 = Split(a(19), " ")
Text1.Text = a2(1)

[andrer]

donde pongo eso lo pongo de bajo del anterion codigo y no funciona :(