Como pasar una Palabra a un TextBox

[slipknot-666]

Hola,

Como hago para pasar parte de un contenido (.txt) a un Textbox  es decir::

Yo tengo en C:\ un (.txt) y tiene como contenido:

Código:

Hola

Prueva1

Bien mi pregunta es como saco del (.txt) la palabra "Prueva1" y la paso  al TextBox Por favor si tienen alguna idea de como se hace postenla por favor =)

Saludos

Slipknot xD

[ranefi]

Hola

Prueba 1

Buen día slipknot-666. Tomando en cuenta la estructura de tu archivo realicé el siguiente código

Agrega 1 control CommandButton y 1 TextBox

Código:

Private Sub Command1_Click()
            Dim Archivo As String
            Dim NumArchivo As Long
            Dim Extraer As String
           
            Archivo = "C:\ranefi.txt"
            NumArchivo = FreeFile()
           
            Open Archivo For Input As #NumArchivo
                        Line Input #NumArchivo, Extraer 'PRIMER LÍNEA
                        Line Input #NumArchivo, Extraer 'LÍNEA VACÍA
                        Line Input #NumArchivo, Extraer 'TERCER LÍNEA
            Close #NumArchivo
           
            Text1.Text = Extraer
End Sub

El programa asume que existe un archivo llamado ranefi.txt ubicado en la unidad C. Espero que esto te ayude. Nos vemos.

PD: Supongo que es eso lo que necesitas y no extraer TODO el contenido del archivo de texto.

[Punk-Rock]

Weno, sobra decir ke el text1 tiene ke estar en multilinea, ya ke si no esta en multilinea solo se imprimiria en una linea.

Si kieres imprimirlo tal y komo aparece puedes hacer esto:

Código:

Dim Final, Todo, Buff, Frase As String

Open "c:\archivo.txt" For Input As #1 'abrimos el archivo a modificar
        Do While Not EOF(1) 'mientras no se haya terminado
            Line Input #1, Buff
            Todo = Todo & Buff & vbCrLf 'ir poninedo linea por linea en una variable
        Loop
    Close #1

Text1.Text = Todo

espero ke te sirva....

Gudbay 

[slipknot-666]

Wau Muchas Gracias a los 2  era Justo lo que estaba buscando =)

Muchas Gracias

Saludos

Slipknot xD

[ranefi]

De nada amigo, para eso estamos.

El tema será cerrado. Si necesitas preguntar algo relacionado a esto envíame un MI solicitando desbloquear el tema. Esto es por cuestiones de orden.