谁帮我提高运行速度，
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

不复杂，没有速度可提升吧？换台机器加快速度！

另外，请注意表带广告来！

repl a with subs(a,at('dbakww',a),100) all
repl a with strt(a,'dbakww','') all
repl a with strt(a,'joiweopper','') all
你这里可以合并，你这样每条记录检索3次，合并后每条记录检索1次就可以了~~~


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
上述红字部分可以合并，你这样，每检索到1次条件，就要重置1次数据库，如果检索到n次条件，就要重置n次数据库，那当然费时了~~~
通过代码合并，只要重置1次数据库就可以了~~~

楼上的，蓝色部分是不能合并的。。。。。。

蓝色部分的3句代码 至少有2种合并方法~

方法1：
repl a with subs(a,at('dbakww',a),100);
    ,a with strt(a,'dbakww','');
    ,a with strt(a,'joiweopper','') all

方法2:
repl a with strt(strt(subs(a,at('dbakww',a),100),'dbakww',''),'joiweopper','') all

版主,能详细点吗，不会才发帖的，谢谢