无足够的内存完成此操作
一个程序有多个循环语句,每个循环语句有相同的多个变量。程序运行一定时间后,出现了“无足够的内存完成此操作”这该如何处理。
回复 9楼 wengjl
SELECT a标准定位表LOCATE FOR 位置="EAAA-1" REST
TEX90=ALLTRIM(方向)
TEX87=ALLTRIM(位置)
SELECT 数据V5
LOCATE FOR V5="." REST
SKIP -28
SCAN REST
IF V5="."
EXIT
ENDIF
OK01=V1
SKIP
OK02=V2
OK03=V4
SKIP
OK04=V4
OK05=V5
SKIP
OK06=V3
OK07=V5
SKIP
OK08=V3
SKIP
OK09=V1
OK10=V4
SKIP
OK11=V3
OK12=V4
OK13=V5
SKIP
OK14=V3
SKIP 2
OK15=V2
OK16=V3
SKIP
OK17=V3
SKIP
OK18=V1
OK19=V4
SKIP
OK20=V2
OK21=V5
SKIP
OK22=V1
SKIP
OK23=V2
OK24=V3
SKIP
OK25=V1
SKIP
OK26=V1
OK27=V4
SKIP
OK28=V1
OK29=V2
SKIP
OK30=V1
OK31=V5
SKIP
OK32=V3
OK33=V5
SKIP
OK34=V3
OK35=V5
SKIP
OK36=V1
SKIP
OK37=V2
SKIP
OK38=V2
OK39=V4
SKIP
OK40=V1
OK41=V5
SKIP
OK42=V4
OK43=V5
SKIP
OK44=V2
SKIP
OK45=V2
OK46=V3
DO VV818
ENDSCAN
DO UVU88
这是其中的一个,向这样的有四万个
PROCEDURE VV818
SELECT c公用表
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK46)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK45)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK44)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK43)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK42)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK41)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK40)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK39)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK38)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK37)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK36)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK35)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK34)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK33)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK32)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK31)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK30)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK29)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK28)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK27)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK26)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK25)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK24)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK23)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK22)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK21)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK20)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK19)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK18)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK17)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK16)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK15)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK14)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK13)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK12)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK11)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK10)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK09)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK08)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK07)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK06)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK05)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK04)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK03)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK02)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK01)
RETURN
PROCEDURE UVU88
SELECT a标准定位表
TEX90=ALLTRIM(方向)
TEX87=ALLTRIM(位置)
SELECT c公用表
GO TOP
ASW=0
SCAN
IF 期号=0 AND 数<STR(0)
EXIT
ENDIF
ASW=ASW+1
REPLACE 序号 WITH ASW
ENDSCAN
*****
GO TOP
LOCATE FOR EOF()
SKIP -1
UYH=ALLTRIM(数)
GO TOP
LOCATE FOR 序号>46 OR 数="."
IF FOUND()
SELECT 统计
LOCATE FOR 位置=TEX87 AND 方向=TEX90 REST
REPLACE 数值 WITH UYH
REPLACE 标准 WITH "K"
ELSE
SELECT 统计
LOCATE FOR 位置=TEX87 AND 方向=TEX90 REST
REPLACE 数值 WITH UYH
ENDIF
SELECT c公用表
SET SAFETY OFF
ZAP
*CLEAR MEMORY
SELECT a标准定位表
SKIP
TEX90=ALLTRIM(方向)
TEX87=ALLTRIM(位置)
RETURN