谁帮我提高运行速度
谁帮我提高运行速度,clea all
t1=datetime()
sele 1
crea tabl tmp1 (a c(254))
append from "C:\Documents and Settings\Administrator\桌面\list1.txt" type sdf
go 2
gsd=subs(a,8,at('_',a)-8)
dele for occu('tdwith2are=',a)=0
pack
repl a with subs(a,at('dbakww',a),100) all
repl a with strt(a,'dbakww','') all
repl a with strt(a,'joiweopper','') all
sele 2
use mxlist.dbf
len1=len(a1)
for tt=1 to recc(1)
sele 1
go tt
nn0=allt(a)
sele 2
loca for allt(a1)=nn0
if foun()=.f.
if len(nn0)>len1
ALTER TABLE mxlist ALTER COLUMN a1 c(len(nn0))
endi
appe blan
repl a1 with nn0,gs with gsd
endi
endf
clea all
clos all
dele file tmp*.*
?datetime()-t1
retu