Archivo de texto demasiado grande

[pkj]

Puedes cargar todo el fichero de una sola vez en lugar de por líneas que tarda mucho más.

Código vb:

Private Sub Command1_Click()
  Dim Variable As String
  Dim NumFichero As Integer
  Dim NombreArchivo As String
 
  NumFichero = FreeFile
  NombreArchivo = "C:\TuFichero.txt"
 
  Open NombreArchivo For Binary As #NumFichero
 
  ' podemos cargarlo en una variable (que en teoria no tienen 
  ' límite de tamaño si no se lo marcas al declararla)
  Variable = Input(FileLen(NombreArchivo), #NumFichero)
 
  ' y en un richtextbox que admite más texto que un textbox normal,
  ' aunque tampoco se debe abusar.  
  RichTextBox1.Text = Variable
  
  Close #NumFichero
  
  ' aqui comprobamos que la longitud del fichero, la variable y el richtextbox es la misma.
  MsgBox FileLen(NombreArchivo) & " - " & Len(Variable) & " - " & Len(RichTextBox1.Text)
End Sub
 
' Asegúrate de descargar el richtextbox al cerrar el programa 
' o se puede quedar bloqueado si has metido un fichero muy grande.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  RichTextBox1.Text = ""
  End
End Sub
' al menos a mí me pasa al depurar.