注册 登录
编程论坛 → VFP论坛

如何提高程序运行速度

fdqzy 发布于 2020-09-12 19:40， 7650 次点击
我总习惯用FOR-ENDFOR编写统计代码，在几十个字段、不到1000行的代码中，对1000左右记录统计要运行20-30分钟，对3万条记录统计要运行几个小时(至少3个小时）。不知有何好的建议改进，谢谢！
61 回复
#52
fdqzy2020-09-16 16:37
以下是引用sdta在2020-9-16 15:09:24的发言：

create cursor b1 (m1 c(2),m2 c(2),m3 c(2),m4 c(2),m5 c(2),p1 c(3),p2 c(3),p3 c(3))
insert into b1 values ("M1","","M3","M4","","","","")
insert into b1 values ("M1","","","M4","","","","")
insert into b1 values ("","M2","M3","M4","M5","","","")
insert into b1 values ("","","","M4","","","","")
insert into b1 values ("","","M3","M4","M5","","","")
SCAN
    n1 = OCCURS("M", m1 + m2 + m3 + m4 + m5)
    n1 = IIF(n1 > 3, 3, n1)
    REPLACE ("P" + TRANSFORM(n1)) WITH "P" + TRANSFORM(n1)
ENDSCAN
BROWSE

谢谢了！
#53
fdqzy2020-09-16 16:43
以下是引用sdta在2020-9-16 15:18:57的发言：

我一直坚持先学后用，不是现学现用，原因大家可以自己去想像

应该是这样，我现在发的帖子，是以前学6.0时的代码，且是目前因工作需要解决不了，故求助，也学到了不少知识,以后要多学。
#54
fdqzy2020-09-16 16:45
以下是引用吹水佬在2020-9-16 16:24:38的发言：


一句
REPLACE ALL m WITH IIF(c1<60,"0","1") + IIF(c2<60,"0","1")

回避FOR，快多了，谢谢！
#55
吹水佬2020-09-16 16:51
以下是引用fdqzy在2020-9-16 14:34:51的发言：

统计：
create cursor b1 (m1 c(2),m2 c(2),m3 c(2),m4 c(2),m5 c(2),p1 c(3),p2 c(3),p3 c(3))
insert into b1 values ("M1","","M3","M4","","","","")
insert into b1 values ("M1","","","M4","","","","")
insert into b1 values ("","M2","M3","M4","M5","","","")
insert into b1 values ("","","","M4","","","","")
insert into b1 values ("","","M3","M4","M5","","","")

FOR i=1 TO RECCOUNT()
GO i
kk=0
IF 'M'$m1
kk=kk+1
ENDIF
IF 'M'$m2
kk=kk+1
ENDIF
IF 'M'$m3
kk=kk+1
ENDIF
IF 'M'$m4
kk=kk+1
ENDIF
IF 'M'$m5
kk=kk+1
ENDIF
GO i
REPLACE p1 WITH 'P1' FOR kk=1 AND RECNO()=i
REPLACE p2 WITH 'P2' FOR kk=2 AND RECNO()=i
REPLACE p3 WITH 'P3' FOR kk>2 AND RECNO()=i

endfor

求简捷的处理方法！

近来比较强调“内循环”
kk=0
REPLACE ALL ;
    p1 WITH IIF(fun()=1, 'P1', ''),;
    p2 WITH IIF(kk=2, 'P2', ''),;
    p3 WITH IIF(kk>2, 'P3', '')
SELECT * FROM b1
RETURN

FUNCTION fun()
    kk = OCCURS("M",m1+m2+m3+m4+m5)
    RETURN kk
ENDFUNC
#56
sdta2020-09-16 17:01
编程三步曲
一：思路
二：方法
三：代码优化
#57
fdqzy2020-09-16 17:30
以下是引用吹水佬在2020-9-16 16:51:52的发言：


近来比较强调“内循环”
kk=0
REPLACE ALL ;
    p1 WITH IIF(fun()=1, 'P1', ''),;
    p2 WITH IIF(kk=2, 'P2', ''),;
    p3 WITH IIF(kk>2, 'P3', '')
SELECT * FROM b1
RETURN

FUNCTION fun()
    kk = OCCURS("M",m1+m2+m3+m4+m5)
    RETURN kk
ENDFUNC

在老师的指导下，我仿照如下：
程序代码：
create cursor b1 (m1 c(2),m2 c(2),m3 c(2),m4 c(2),m5 c(2),p1 c(3),p2 c(3),p3 c(3))
insert into b1 values ("M1","","M3","M4","","","","")
insert into b1 values ("M1","","","M4","","","","")
insert into b1 values ("","M2","M3","M4","M5","","","")
insert into b1 values ("","","","M4","","","","")
insert into b1 values ("","","M3","M4","M5","","","")

REPLACE ALL ;
            p1 WITH IIF(OCCURS("M", m1 + m2 + m3 + m4 + m5)=1 ,"P1", "");
            p2 WITH IIF(OCCURS("M", m1 + m2 + m3 + m4 + m5)=2 ,"P2", "");
            p3 WITH IIF(OCCURS("M", m1 + m2 + m3 + m4 + m5)>2 ,"P3", "")

可以否?
#58
fdqzy2020-09-16 17:33
以下是引用sdta在2020-9-16 17:01:47的发言：

编程三步曲
一：思路
二：方法
三：代码优化

谢谢！这是我应该努力的方向。
#59
吹水佬2020-09-16 18:01
回复 57楼 fdqzy
可以，但用OCCURS重复做同一件事有点浪费时间。
#60
fdqzy2020-09-16 18:03
通过近几天老师的指教，基本上找到了我原代码运行效率不高的原因，以及解决问题的思路，给工作中解决实际问题带来了极大的方便。
谢谢各位老师！请今后多指教。
#61
fdqzy2020-09-16 18:04
以下是引用吹水佬在2020-9-16 18:01:28的发言：

可以，但用OCCURS重复做同一件事有点浪费时间。

谢谢指教！
#62
foxprosue2021-03-03 09:20
思路很重要，学习了
12
©2025, BC-CN.NET
电脑版