I don't see how you can use that while reindexing.


>Randy
>
>I use a thermometer to show progress while going through several passes of a low-level text file, to import all the data to my database. But for that I need to know max records. So 1st I gotta count them, but i can't use a thermo for that.
>
>What I do is:
>

>lcWaitMess    = "Counting Routes input data records..."
>Wait Window lcWaitMess At 10, 120 Nowait NOCLEAR
>llEOF	    = .F.
>
>With thisform
>  .nMaxJ	= 0														&& Count of no. of J-like recs
>  ...					&& Posit so can stay in loop 1st time
>  Do While Not llEOF															&& of Bus source records
>    If MOD(.nMaxJ, 16000) = 0
>    	lcWaitMess    = lcWaitMess + "."
>	Wait Window lcWaitMess At 10, 120 Nowait NOCLEAR
>    Endif
>    ...		
> *  test for set llEOF
>    If Not INLIST( lcRecID, "QS", "QE", "QN", "QO", "QT", "QI", "QR")	&& If not a journey-type rec
>        llEOF	= .T.
>    Else
>        .nMaxJ	= .nMaxJ + 1
>    Endif
>    ...
>  Enddo
>EndWith
>Wait clear
>

>
>So we get a wait window with a progressive list of dots. To save on processor time, the wait is only updated every 16000 lines in the text file.
>
>.nMaxJ is used for the thermo
>
>This work for you?
>
>Terry
>