16 lines
315 B
Text
16 lines
315 B
Text
Dim As Long f
|
|
f = Freefile
|
|
Dim As String nomArchivo = "data.txt"
|
|
|
|
If Open(nomArchivo For Input As #f) Then
|
|
Print "ERROR: No se pudo abrir " ; nomArchivo
|
|
Sleep : End
|
|
End If
|
|
|
|
Dim As String tok(), lin
|
|
Do While Not Eof(f)
|
|
Line Input #f, lin
|
|
If Val(Right(lin, 3)) > 6 Then Print lin
|
|
Loop
|
|
Close #f
|
|
Sleep
|