CURSOR lock!!!!!

[sal21]

Code: Select all

Private Sub Command3_Click()

Dim File As Integer
Dim TextOfLine As String
Dim Path As String

Dim sngStartTime As Single
Dim sngTotalTime As Single

sngStartTime = Timer

File = FreeFile
Open "C:\TEMP\2011.TXT" For Input As File
While Not EOF(File)
Line Input #File, TextOfLine
'...
Wend
Close File

sngTotalTime = Timer - sngStartTime
Me.Label6.Caption = Round(sngTotalTime, 2)
Me.Label5.Caption = "STOP"

End Sub

In all 90% of my project use this code with a file around 45/65 MB

Now with a file approx dimension 100 mb the cursor lock on "While Not EOF(File)" and freeze trhe macro.(no error but lock)

I need in other case to read the txt line by line

[HansV]

Perhaps you can split the file into two or three smaller files and process them separately?

[sal21]

Perhaps you can split the file into two or three smaller files and process them separately?

i dont know tihs solution, if is s good idea

[sal21]

Perhaps you can split the file into two or three smaller files and process them separately?

Perpahs i have understand the prob.

after 13 minutes of cuesor lock, have error:

Space of string is out!!

I think the eachelines in txt not have a terminat and code consider one line teh entire txt file, possoble?

[HansV]

You should be able to investigate that yourself...

[BenCasey]

The input file may be corrupt.
Try opening it in a text reader such as Notepad or similar.
Try also using FileCopy to see if both files have the same number of bytes.