Desbordameinto al leer fichero de texto

[flyk]

Hola a todos, tengo que abrir un fichero de texto con unas 42216 lineas de 80 caracteres cada una y terminadas en un retorno de carro.
Lo abro de esta forma:

Dim fichero as string
fichero = "C:\hola.p"
Dim num_archivo As Long
num_archivo = Freefile
Dim str_linea As String

Open fichero For Input As nun_archivo
Line Input #nun_archivo, str_linea
' leo las lineas dentro de un For

Con fichero de pocas lineas no tengo ningún problema, pero para uno como el que digo de 42216 me da un error de desbordamiento.

¿cómo puedo abrir el fichero e ir leyendo linea a linea?

Gracias

[lic_dahool]

El indice que usas para el For, como esta declarado? recuerda q si usas un Integer no puede superar el 32462 +/-

Prueba a ver si esto resuelve tu problema.

Saludos.

[Skalitiko]

Porque no recorres el archivo dentro de un clclo while

While Not Eof(Num_archivo)

Line Input #Num_archivo,Linea

Wend

[flyk]

Este es el codigo. Si hago un msgbox(num_lineas) al inicio el valor que me da si es de 42213, pero justo despues de hacerlo me casca la aplicación cuando hay muchos registros, para pocos si lo hace. Num_lineas si es un long

' msgbox(num_lineas)
For I = 2 To num_lineas 'empieza en 2linea pq la primera linea ya fue leida
Line Input #nun_archivo, str_linea

Select Case tabla
Case "Tramos"
MsgBox ("1")

Case Else
str_carac1 = Left(str_linea, 2)
codigo = Left(str_linea, 6)

If str_carac1 = "/" Then
int_num_pol = CInt(Mid(str_linea, 7, 3))
ElseIf str_carac1 = "1" Or str_carac1 = "0" Then
X_point = (Mid(str_linea, 15, 8)) / 100
Y_Point = (Mid(str_linea, 23, 9)) / 100
If (tabla = "Puntos") Then
Z_Point = CDbl((Mid(str_linea, 32, 7)) / 100)
ElseIf (subtipo = stTextos) Then
Z_Point = 0
angulo_txt = CDbl(Mid(str_linea, 45, 4))
texto = Trim(Mid(str_linea, 49, 32))
End If

If (subtipo = stPuntos) Then
Call insert("puntual", int_num_pol, codigo, "", X_point, Y_Point, Z_Point, 0, int_num_elementos_bloque)
ElseIf (tabla = "Textos") Then
Call insert("textual", int_num_pol, codigo, texto, X_point, Y_Point, Z_Point, angulo_txt, int_num_elementos_bloque)
End If
End If
End Select

Next