Based on the other thread with the same name which is marked as reolved ...
I'm now using this Quicksort routine to sort a text file thats nearly 2 meg in size.
It contains fixed length records.
I towkred before, but now the file is bigger I am getting "Input Past End Of File" error messages on the line of code highlighted below.
Anyone know why ?
VB Code:
' Now sort file into alphabetical order Open "C:\att_value.txt" For Input As #1 [B]str1 = Split(Input$(LOF(1), 1), vbCrLf)[/B] Close #1 QuickSort str1, LBound(str1), UBound(str1) Open "C:\att_value.txt" For Output As #1 Print #1, Join(str1, vbCrLf) Close #1




Reply With Quote