Consulta facil

mazou
14 de Octubre del 2003
Hola, Tengo un archivo TXT con 4 lineas diferentes y quiero que al apretar un boton la linea 1 aparezca en text1, la linea 2 aparezca en text2, la 3 en text3 y la 4 en text4.

Gracias

Baltasar
14 de Octubre del 2003
Te dejo un pequeño código que extrae el contenido de un archivo y lo "deposita" en una variable de texto. Has de tener en cuenta que el fichero no puede ser demasiado grande, aunque tal y como comentas, no habrá problema (yo lo uso con ficheros de 20 y 30 Kbs de tamaño).

Dim MIFICHERO As String
Dim MITEXTO As String
Dim MMAX As Long

Private Sub BMostrar_Click()
MIFICHERO = "c:prueba.txt"
Open MIFICHERO For Binary Access Read As #1
MMAX = FileLen(MIFICHERO)
MITEXTO = Space(MMAX)
If MMAX > 0 Then Get #1, 1, MITEXTO
Close #1
MICADENA = Split(MITEXTO, Chr(13) + Chr(10), 4, vbDatabaseCompare)
Text1 = MICADENA(0)
Text2 = MICADENA(1)
Text3 = MICADENA(2)
Text4 = MICADENA(3)
End Sub

Saludos