SET CLASSLIB TO PROGBAR.VCX Additive
oProgBar = CREATEOBJECT('ProgBar')
oProgBar.SetTitle('Access Only Progress')
oProgBar.SetMessage('Please Wait!')
oProgBar.SetRange(nTop, nEnd)
oProgBar.Show()
Do While !FEOF(nFinOrigin)
oProgBar.StepIt()
m.buffer = " "
m.buffer = FGETS(nFinOrigin, 56)
If ASC(substr(m.buffer,1,1)) < 32 or ASC(substr(m.buffer,1,1)) > 126
Loop
EndIf
Append Blank
Replace ModiComm.Contact With SubStr(m.buffer,1,9)
Replace ModiComm.Eligarea With SubStr(m.buffer,18,2)
Replace ModiComm.Groupnum With SubStr(m.buffer,21,6)
Replace ModiComm.Groupname With SubStr(m.buffer,27,30)
EndDo
=FCLOSE(nFinOrigin)
Set order to grpid
Go Top
The STEPIT does not show progress through the text file from 0 to 100%
instead it shows 0-100% more than 3 times.
nTop = 1
nEnd greater than 4 million
How can I change the rate of the progress bar output?
Edgar L. Bolton, B.S. B.B.A.