Lentidão de processamento
Enviado: 21 Ago 2007 10:37
Olá amigos!
Fiz o seguinte teste para ver se xharbour é mais rápido que o clipper:
function main()
aa:=time()
clea
use emp
do while !eof()
? emp_nomecr
for i=1 to 12
a=strzero(i,2)
repl emp_rea&a with 0
repl emp_pag&a with 0
next
repl emp_pag01 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag02 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag03 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag04 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag05 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag06 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag07 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag08 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag09 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag10 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag11 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag12 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea01 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea02 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea03 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea04 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea05 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea06 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea07 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea08 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea09 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea10 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
skip
enddo
close emp
? aa
? time()
wait
retu nil
... e o resultado do tempo decorrido foi, 1 segundo no clipper e 11 no xharbour.
Pergunto. O xharbour não deveria ser mais rápido? Se é prá ser, qual a maneira correta de abrir um arquivo e fazer um replace nele?
Desde já, agradeço a atenção.
Fiz o seguinte teste para ver se xharbour é mais rápido que o clipper:
function main()
aa:=time()
clea
use emp
do while !eof()
? emp_nomecr
for i=1 to 12
a=strzero(i,2)
repl emp_rea&a with 0
repl emp_pag&a with 0
next
repl emp_pag01 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag02 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag03 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag04 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag05 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag06 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag07 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag08 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag09 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag10 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag11 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag12 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea01 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea02 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea03 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea04 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea05 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea06 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea07 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea08 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea09 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea10 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
skip
enddo
close emp
? aa
? time()
wait
retu nil
... e o resultado do tempo decorrido foi, 1 segundo no clipper e 11 no xharbour.
Pergunto. O xharbour não deveria ser mais rápido? Se é prá ser, qual a maneira correta de abrir um arquivo e fazer um replace nele?
Desde já, agradeço a atenção.