Hi everyone,

I just found out, that I need to update my database every month, e.g. do append from a text file with ~ 7 mln. records. Therefore I'm asking just one more time, how can I add a progress bar, but not slow down the perfomance significantly?

May be somebody already wrote simple to use Progress Bar for Append from text file...

Thanks in advance.

>>>I don't know in advance how many records I have in a file.
>>
>>Guess, take the total K of the file and guess how long a record might be. Or take the total, divide it by something like 100 or 1000 and then extract rows until you have that long of a string.
>
>>>I don't know in advance how many records I have in a file.
>>
>>Guess, take the total K of the file and guess how long a record might be. Or take the total, divide it by something like 100 or 1000 and then extract rows until you have that long of a string.
>
>Hi Mike,
>
>I've thought about it a little bit more, and I think, I found a simple and a quite elegant solution.
>
>Bellow is a pseudo untested code (write it from the top of the head):
>

>local lnSize, loTerm, lcTempFile, lcLongStr, lcStr, lnSizeRead
>lnSize=fsize(lcTextFile) && or use adir
>loTerm=newobject('thermometer', 'wg.vcx','','Appending',lnSize)
>lcTempFile=gcTempPath+sys(15) && ? sys(2001)
>fh=fopen(lcTextFile)
>lnSizeRead=0
>select WorkTable && Table in which we want append
>do while !feof(fh)
>   lcLongStr=''
>   for i=1 to 500 && Quite low number, so Append should be almost instantanious
>      if feof(fh)
>         exit
>     endif
>     lcStr=fgets(fh,2000)
>     lnSizeRead=lnSizeRead+len(lcStr)
>     loTerm.update(lnSizeRead)
>     lcLongStr=lcStr+chr(10)+chr(13)
>   next
>    =strtofile(rtrim(lcLongStr),lcTempFile)
>    append from (lcTempFile) && should be quick
>enddo
>release loTerm

>
>This is the idea. The similar idea could be used for append from table. Divide number of records, say, by 1000 and do append for betwen(recno(),lnStart, lnFinsish) in a loop (You got the idea).
>
>Ok, what do you think?