求大佬指点下弟弟

小白也疯狂

抄论坛大佬的代码实现了快速生成几十万几百万的随机数,但是想把他保存起来然后给下一次生成时候跟这次生成做一个去重有什么好用的方法么?还有这个生成随机数经常会报内存分配失败跟莫名奇妙的停止了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
号段	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

号段 ＝ { “ 70”, “71”, “72”, “73”, “74”, “75”, “76”, “77”, “78”, “79”, “7624”, “800”, “808”, “84”, “87”, “9” }

子程序名	返回值类型	公开	备 注
随机数
参数名	类 型	参考	可空	数组	备 注
数据存放内存	整数型
号段	文本型
总数	整数型
随机数个数	整数型
字节集长度	整数型

变量名	类 型	静态	数组	备 注
时间	整数型
临时内存	整数型
随机数	整数型
i	整数型
k	整数型
随机数文本	文本型
号码	文本型
随机数2
存放数据字节集	字节集

时间 ＝ 取启动时间 ()
临时内存 ＝ 申请内存 (10000000, 真)
置随机数种子 ()
循环判断首 ()
i ＝ i ＋ 1
' 随机数 ＝ 取随机数 (1, 9999999)
随机数 ＝ 到整数 (文本_取随机数字 (随机数个数, ))
如果真 (取字节集数据 (指针到字节集 (临时内存 ＋ 随机数, 1), 1, ) ＝ 0)
写到内存 (1, 临时内存 ＋ 随机数, )
随机数2 ＝ 取随机数 (1, 取数组成员数 (号段))
号码 ＝ 数字转文本 (到整数 (号段 [随机数2])) ＋ 到文本 (随机数)
存放数据字节集 ＝ 到字节集 (“('” ＋ 号码 ＋ “','1'),”)
写到内存 (存放数据字节集, 数据存放内存 ＋ 26 × k, )
k ＝ k ＋ 1

循环判断尾 (k ≤ 总数)
释放内存 (临时内存)

子程序名	返回值类型	公开	备 注
数字转文本	文本型
参数名	类 型	参考	可空	数组	备 注
随机数	整数型

变量名	类 型	静态	数组	备 注
随机数_文本	文本型

判断 (随机数 ＜ 9)
随机数_文本 ＝ “aaaaa” ＋ 到文本 (随机数)
判断 (随机数 ＜ 99)
随机数_文本 ＝ “aaaa” ＋ 到文本 (随机数)
判断 (随机数 ＜ 999)
随机数_文本 ＝ “aaa” ＋ 到文本 (随机数)
判断 (随机数 ＜ 9999)
随机数_文本 ＝ “aa” ＋ 到文本 (随机数)
判断 (随机数 ＜ 99999)
随机数_文本 ＝ “a” ＋ 到文本 (随机数)
随机数_文本 ＝ 到文本 (随机数)
返回 (随机数_文本)

子程序名	返回值类型	公开	备 注
生成
参数名	类 型	参考	可空	数组	备 注
总数	整数型
号段	文本型
随机数个数	整数型

变量名	类 型	静态	数组	备 注
临时内存	整数型
数据库	Sqlite数据库
文本行	文本型
下标	整数型
字节集长度	整数型
快速文本	快速文本对象
字节集文本	字节集
sql	文本型
文本	文本型

临时内存 ＝ 申请内存 (26 × 总数, 真)
随机数 (临时内存, 号段, 总数, 随机数个数, 字节集长度)
字节集文本 ＝ 指针到字节集 (临时内存, 26 × 总数)  ' 这里莫名其妙就停止了,就算这里不停止下面有时候也会弹出内存分配失败然后停止了
释放内存 (临时内存)
字节集文本 ＝ 子字节集替换 (字节集文本, { 0 }, {  }, , )
写到文件 (取当前目录 () ＋ “/新建文本文档 (2).txt”, 字节集文本)
快速文本.从文件读 (取当前目录 () ＋ “/新建文本文档 (2).txt”)
快速文本.替换子文本 (“a”, “”, , , 真)
快速文本.替换子文本 (“),(”, “), (”, , , 真)
文本 ＝ 快速文本.取文本 (, )
如果真 (通讯录文本 ≠ “”)
如果真 (数据库.是否已打开 () ＝ 假)
数据库.打开 (取运行目录 () ＋ “/data.db”, 假)
置随机数种子 ()
数据库.开始事务 (“提交”)
sql ＝ “INSERT INTO 'number_data'('column2','column1') VALUES ” ＋ 文本 ＋ “ ('1','0')”
写到文件 (取运行目录 () ＋ “/sql.txt”, 到字节集 (sql))
如果真 (数据库.执行SQL语句 (sql) ＝ 假)
调试输出 (数据库.取错误文本 ())
调试输出 (“写入成功”)
数据库.提交事务 (“提交”)
数据库.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

生成 (1000000, 号段, 7)

i支持库列表	支持库注释
spec	特殊功能支持库
sqlite3	(未知支持库)
commobj	通用对象支持库

.版本 2<br /> .支持库 spec<br /> .支持库 sqlite3<br /> .支持库 commobj<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 号段, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 号段 ＝ { “ 70”, “71”, “72”, “73”, “74”, “75”, “76”, “77”, “78”, “79”, “7624”, “800”, “808”, “84”, “87”, “9” }<br /> <br /> .子程序 随机数<br /> .参数 数据存放内存, 整数型<br /> .参数 号段, 文本型, 数组<br /> .参数 总数, 整数型<br /> .参数 随机数个数, 整数型<br /> .参数 字节集长度, 整数型, 参考<br /> .局部变量 时间, 整数型<br /> .局部变量 临时内存, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 随机数文本, 文本型<br /> .局部变量 号码, 文本型<br /> .局部变量 随机数2<br /> .局部变量 存放数据字节集, 字节集<br /> <br /> 时间 ＝ 取启动时间 ()<br /> 临时内存 ＝ 申请内存 (10000000, 真)<br /> 置随机数种子 ()<br /> .循环判断首 ()<br />     i ＝ i ＋ 1<br />     ' 随机数 ＝ 取随机数 (1, 9999999)<br />     随机数 ＝ 到整数 (文本_取随机数字 (随机数个数, ))<br />     .如果真 (取字节集数据 (指针到字节集 (临时内存 ＋ 随机数, 1), 1, ) ＝ 0)<br />         写到内存 (1, 临时内存 ＋ 随机数, )<br />         随机数2 ＝ 取随机数 (1, 取数组成员数 (号段))<br />         号码 ＝ 数字转文本 (到整数 (号段 [随机数2])) ＋ 到文本 (随机数)<br />         存放数据字节集 ＝ 到字节集 (“('” ＋ 号码 ＋ “','1'),”)<br />         写到内存 (存放数据字节集, 数据存放内存 ＋ 26 × k, )<br />         k ＝ k ＋ 1<br />     .如果真结束<br /> <br /> .循环判断尾 (k ≤ 总数)<br /> 释放内存 (临时内存)<br /> <br /> <br /> .子程序 数字转文本, 文本型<br /> .参数 随机数, 整数型<br /> .局部变量 随机数_文本, 文本型<br /> <br /> .判断开始 (随机数 ＜ 9)<br />     随机数_文本 ＝ “aaaaa” ＋ 到文本 (随机数)<br /> .判断 (随机数 ＜ 99)<br />     随机数_文本 ＝ “aaaa” ＋ 到文本 (随机数)<br /> .判断 (随机数 ＜ 999)<br />     随机数_文本 ＝ “aaa” ＋ 到文本 (随机数)<br /> .判断 (随机数 ＜ 9999)<br />     随机数_文本 ＝ “aa” ＋ 到文本 (随机数)<br /> .判断 (随机数 ＜ 99999)<br />     随机数_文本 ＝ “a” ＋ 到文本 (随机数)<br /> .默认<br />     随机数_文本 ＝ 到文本 (随机数)<br /> .判断结束<br /> 返回 (随机数_文本)<br /> <br /> .子程序 生成<br /> .参数 总数, 整数型<br /> .参数 号段, 文本型, 数组<br /> .参数 随机数个数, 整数型<br /> .局部变量 临时内存, 整数型<br /> .局部变量 数据库, Sqlite数据库<br /> .局部变量 文本行, 文本型<br /> .局部变量 下标, 整数型<br /> .局部变量 字节集长度, 整数型<br /> .局部变量 快速文本, 快速文本对象<br /> .局部变量 字节集文本, 字节集<br /> .局部变量 sql, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 临时内存 ＝ 申请内存 (26 × 总数, 真)<br /> 随机数 (临时内存, 号段, 总数, 随机数个数, 字节集长度)<br /> 字节集文本 ＝ 指针到字节集 (临时内存, 26 × 总数)  ' 这里莫名其妙就停止了,就算这里不停止下面有时候也会弹出内存分配失败然后停止了<br /> 释放内存 (临时内存)<br /> 字节集文本 ＝ 子字节集替换 (字节集文本, { 0 }, {  }, , )<br /> 写到文件 (取当前目录 () ＋ “/新建文本文档 (2).txt”, 字节集文本)<br /> 快速文本.从文件读 (取当前目录 () ＋ “/新建文本文档 (2).txt”)<br /> 快速文本.替换子文本 (“a”, “”, , , 真)<br /> 快速文本.替换子文本 (“),(”, “), (”, , , 真)<br /> 文本 ＝ 快速文本.取文本 (, )<br /> .如果真 (通讯录文本 ≠ “”)<br />     .如果真 (数据库.是否已打开 () ＝ 假)<br />         数据库.打开 (取运行目录 () ＋ “/data.db”, 假)<br />     .如果真结束<br />     置随机数种子 ()<br />     数据库.开始事务 (“提交”)<br />     sql ＝ “INSERT INTO 'number_data'('column2','column1') VALUES ” ＋ 文本 ＋ “ ('1','0')”<br /> <br />     写到文件 (取运行目录 () ＋ “/sql.txt”, 到字节集 (sql))<br />     .如果真 (数据库.执行SQL语句 (sql) ＝ 假)<br />         调试输出 (数据库.取错误文本 ())<br />         调试输出 (“写入成功”)<br />     .如果真结束<br />     数据库.提交事务 (“提交”)<br /> .如果真结束<br /> 数据库.关闭 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 生成 (1000000, 号段, 7)

笨来无一悟

用 咸鱼666 大佬的 哈希表 试试

月下美孤

1、经常会报内存分配失败跟莫名奇妙的停止了

检查一下是不是没有释放内存，或者可以找个自动释放内存的模块搭配使用

2、随机数去重

可以将每次生成的结果保存为数组，去重时，两个数组作冒泡排序去重就可以了

美稀宗

你这代码好眼熟啊

小白也疯狂

美稀宗 发表于 2023-7-19 20:35
你这代码好眼熟啊

上个帖子抄的你代码

美稀宗

申请的内存得是4的倍数  否则可能会失败   试试28*总数