Importar txt
Buenas tardes...
En este código:
Private Sub Command1_Click()
Dim Linea As String
Open "C:\Documents and Settings\EPS\Mis documentos\US042009.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Linea
List1.AddItem Linea
Loop
Close #1
End Sub
Cambio List1 por RichTextBox para probar que sea más rápido... Al ejecutarlos me genera un error de compilación: No se encontró el método o miembro de datos. Y sombreado con azul me aparece AddItem...
Qué puede ser...
De antemano gracias por su colaboración
En este código:
Private Sub Command1_Click()
Dim Linea As String
Open "C:\Documents and Settings\EPS\Mis documentos\US042009.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Linea
List1.AddItem Linea
Loop
Close #1
End Sub
Cambio List1 por RichTextBox para probar que sea más rápido... Al ejecutarlos me genera un error de compilación: No se encontró el método o miembro de datos. Y sombreado con azul me aparece AddItem...
Qué puede ser...
De antemano gracias por su colaboración
1 Respuesta
Respuesta de José Saúl Méndez Alonso
1
El error se genera porque un Objeto RichTextBox no tiene un método AddItem
Cambia tu código para que quede algo así
Private Sub Command1_Click()
RichTextBox. LoadFile C:\Documents and Settings\EPS\Mis documentos\US042009.txt", rtfTextEnd Sub
de esa manera se carga de inmediato el contenido de tu archivo
Cambia tu código para que quede algo así
Private Sub Command1_Click()
RichTextBox. LoadFile C:\Documents and Settings\EPS\Mis documentos\US042009.txt", rtfTextEnd Sub
de esa manera se carga de inmediato el contenido de tu archivo
