Ver Mensaje Individual
  #3 (permalink)  
Antiguo 14/01/2010, 20:51
Alexand3r
 
Fecha de Ingreso: abril-2009
Mensajes: 72
Antigüedad: 15 años
Puntos: 0
Respuesta: Cargar varios *.txt simultaneamente en un textbox [vb6]

Buenas pkj, gracias por tu ayuda.

Te cuento...

El código que uso es el siguiente:

Código:
Private Sub Command1_Click()

Dim Linea As String

CommonDialog1.DialogTitle = "Seleccione un archivo con extension ass"
CommonDialog1.Filter = "Archivos con extension .ass|*.ass"
CommonDialog1.ShowOpen

If CommonDialog1.FileName = "" Then
   Exit Sub
Else
  
  Text1 = ""
  
  Open CommonDialog1.FileName For Input As #1
  
  Text2.Text = CommonDialog1.FileTitle
  
  While Not EOF(1)
    
    Line Input #1, Linea
    
    Text1 = Text1 & Linea & vbNewLine

  Wend
  
  Close
End If

End Sub

Private Sub Command2_Click()

    Unload Me

End Sub

Private Sub Command3_Click()

    Text1.Text = ""
    Text2.Text = ""

End Sub
El problema es que estoy empezando ahora con el tema de editores, hasta ahora solo he hecho algunas aplicaciones con acceso a DB, y no gran cosa. Y la verdad estoy bastante perdido, pues eso... aprendiendo de aquí y de allí, ehm...no sé exactamente como implementar el codigo que me has dejado, sí la linea que debo sustituir, pero no exactamente como hacerlo, si pudieras darme un último achuchón, te lo agradeceria.

Un saludo.

Alex.