1、随机涵数问题 - VFP论坛

得分:0

以下是引用TonyDeng在2014-3-6 21:27:48的发言：

CLEAR ALL
SET SAFETY OFF
CLEAR
CREATE TABLE test FREE (hs I, rec I)
SELECT "test"
RAND(-1)
FOR nIndex = 1 TO 8863
INSERT INTO test (rec, hs) VALUES (ROUND(1000000 * RAND(), 0), nIndex)
NEXT
SORT TO test_rand ON rec
USE "test_rand" EXCLUSIVE
BROWSE
USE IN "test_rand"
CLEAR ALL
RETURN

最後把rec字段刪掉即可

这也是个办法。

第 22 楼

得分:3

以下是引用zjl1616在2014-3-6 17:32:39的发言：

我表中有8863条记录，表中有一个HS字段，我想随机产生1到8863个数字赋给HS字段，请高手帮忙，谢谢！！

增加一个字段tmp n(15,13)，放入随机数，根据这个字段索引，将1-8863依次填入HS字段，删除字段tmp

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

第 23 楼

得分:0

程序代码：

*-----------------------------
* 不用臨時表的方法
*-----------------------------
DIMENSION aDatas[8863,2]
RAND(-1)
FOR nIndex = 1 TO ALEN(aDatas, 1)
    aDatas[nIndex,1] = ROUND(1000000 * RAND(), 0)
    aDatas[nIndex,2] = nIndex
NEXT
ASORT(aDatas, 1)        && 把這裏最終數組的第二列順序填入目標數據表的hs字段中即可

[ 本帖最后由 TonyDeng 于 2014-3-7 11:33 编辑 ]

授人以渔，不授人以鱼。

第 24 楼

得分:0

5-10秒？這種功能需求，一旦實現用時超過1秒，就已經不可忍受，必須改算法了。

授人以渔，不授人以鱼。

第 25 楼

得分:0

原来的代码有点慢了，这段代码快了不少。修改了算法：运用内存数组排序和SELECT-SQL命令结合来代替原先循环结构中每填充一条记录就要重新查询一遍的算法。原理：内存中操作肯定比反复读写硬盘数据快，所以用了内存数组暂存数据；SELECT-SQL命令哪怕内嵌了子查询也比8千多遍循环要快得多，所以将数组的结果化作临时表，与原表进行连接查询，生成目标表文件。下面截图我办公室电脑的配置，运行时就一闪后完成。

图片附件: 游客没有浏览图片的权限，请登录或注册

SET TALK OFF
SET SAFETY OFF
SET COMPATIBLE OFF
CLOSE ALL
RAND(-1)

IF FILE("随机序号.DBF") THEN
   ALTER TABLE 随机序号 DROP HS
ELSE
   CREATE TABLE 随机序号 (ABC V(3))
   FOR I=1 TO 8863
      INSERT INTO 随机序号 VALUES (CHR(INT(RAND()*26+65)))
   NEXT
ENDIF

DIMENSION Temp[RECCOUNT(),2]
FOR I=1 TO RECCOUNT()
   Temp[I,1]=RAND()
   Temp[I,2]=I
NEXT
ASORT(Temp,1)
CREATE CURSOR TempTable (Field1 I,HS I)
INSERT INTO TempTable FROM ARRAY Temp
SELECT T1.*, T2.HS ;
   FROM ;
      (SELECT RECNO() RECID,* FROM 随机序号) T1,;
      (SELECT RECNO() RECID,HS FROM TempTable) T2;
   WHERE T1.RECID=T2.RECID ;
   INTO TABLE 随机序号2
ALTER TABLE 随机序号2 DROP RECID
CLOSE ALL
DELETE FILE 随机序号.*
RENAME 随机序号2.DBF TO 随机序号.DBF
USE 随机序号

SET TALK ON
SET SAFETY ON
RETURN