[原创]请教vfbpgyfk先生一个编程问题

白新岭 · 发表于 2025-6-26 20:29

SELECT 1
USE d:\最密四生素数文件\四中和值14复.DBF ALIAS 四中和14复 &&每次修改文件名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值15.DBF ALIAS 四中和15 &&每次修改文件名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 1
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i+10623470
      REPLACE sztj14 WITH sztj14+A&&每次修改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
合并四中和值奇前半部统计值

白新岭 · 发表于 2025-6-26 22:14

截止2025年06月25日周三22:51分浏览量792816，回复3845，热度282
截止2025年06月26日周四22:14分浏览量795887，回复3851，热度282

白新岭 · 发表于 2025-6-26 22:21

SELECT 1
USE d:\最密四生素数文件\四中和值16复.DBF ALIAS 四中和16复  &&每次需要更改表名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值15.DBF ALIAS 四中和15 &&每次需要更改表名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 10623471
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i
      REPLACE sztj16  WITH sztj16+A  &&每次需要更改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-6-26 22:29

SELECT 1
USE d:\最密四生素数文件\四中和值16复.DBF ALIAS 四中和16复 &&每次修改文件名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值17.DBF ALIAS 四中和17 &&每次修改文件名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 1
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i+10623470
      REPLACE sztj16 WITH sztj16+A&&每次修改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-6-27 08:45

截止2025年06月26日周四22:14分浏览量795887，回复3851，热度282
截止2025年06月27日周五08:43分浏览量796802，回复3854，热度282

白新岭 · 发表于 2025-6-27 17:47

SELECT 1
USE d:\最密四生素数文件\四中和值18复.DBF ALIAS 四中和18复  &&每次需要更改表名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值17.DBF ALIAS 四中和17 &&每次需要更改表名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 10623471
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i
      REPLACE sztj18  WITH sztj18+A  &&每次需要更改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-6-27 17:56

SELECT 1
USE d:\最密四生素数文件\四中和值18复.DBF ALIAS 四中和18复 &&每次修改文件名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值19.DBF ALIAS 四中和19 &&每次修改文件名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 1
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i+10623470
      REPLACE sztj18 WITH sztj18+A&&每次修改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-6-27 18:21

SELECT 1
USE d:\最密四生素数文件\四中和值20复.DBF ALIAS 四中和20复  &&每次需要更改表名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值19.DBF ALIAS 四中和19 &&每次需要更改表名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 10623471
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i
      REPLACE sztj20  WITH sztj20+A  &&每次需要更改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-6-27 18:32

SELECT 1
USE d:\最密四生素数文件\四中和值20复.DBF ALIAS 四中和20复 &&每次修改文件名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21 &&每次修改文件名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 1
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i+10623470
      REPLACE sztj20 WITH sztj20+A&&每次修改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-6-27 18:52

SELECT 1
USE d:\最密四生素数文件\四中和值22复.DBF ALIAS 四中和22复  &&每次需要更改表名中的阿拉伯数字
SELECT 2
USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21 &&每次需要更改表名中的阿拉伯数字
kssj=SECONDS()
SELECT 2
GO 10623471
   FOR i=1 TO 10623470
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=sztj
      SELECT 1
      GO i
      REPLACE sztj22  WITH sztj22+A  &&每次需要更改字段名中的阿拉伯数字

   SELECT 2
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

		自动登录	找回密码
密码			注册