优化速度号码归属地提取

罗孝全

有没有大佬帮我优化一下
一次处理上千条数据太慢了
小白学艺不精，跪求大佬

蓝奏云链接
https://wwaxw.lanzouq.com/iW3W13mpgn0f

w4702

感谢分享，很给力！~

w4702

感谢分享，很给力！~

ww850832845

你是想通过啥方式提取?访问后台中间件接口提取?还是直接读mysql提取?还是使用Access库提取?

ww850832845

你是想通过什么方式提取?通过后台中间件接口还是mysql数据库还是access库?

小李哥v5

放MYSQL去提取不行么

罗孝全

ww850832845 发表于 2026-4-8 11:35
你是想通过啥方式提取?访问后台中间件接口提取?还是直接读mysql提取?还是使用Access库提取? ...

直接读取，已经写好了，只是运行速度慢

zainex

这么多天过去了，相信楼主已经自行解决了。
这里再给一个简单的方案，直接读取 ym_core.sql ，把里面的内容放到数组里。
这样可以直接通过数组下标来访问，十万个号码，毫秒内完成处理：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
表格	文本型	2000000	需要设置为程序集或全局变量

子程序名	返回值类型	公开	备 注
初始化

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
正则	正则表达式
数	整数型
搜索结果	搜索结果
编号	整数型
地址	文本型
成员	文本型

内存分配加速优化 (真)
如果真 (文件是否存在 (“ym_core.sql”) ＝ 假)
调试输出 (“当前目录下 ym_core.sql 不存在！”)
返回 ()
文本 ＝ UTF8到文本 (读入文件 (“ym_core.sql”))
数组 ＝ 分割文本 (文本, #换行符, )
' 调试输出 (取数组成员数 (数组))
正则.创建 (“VALUES \('.+?', '.+?', '(.+?)', '(.+?)', '(.+?)', '(.+?)'”, )
计次循环首 (取数组成员数 (数组), 数)
成员 ＝ 数组 [数]
搜索结果 ＝ 正则.搜索 (成员, 1, )
如果真 (搜索结果.是否为空 () ＝ 假)
编号 ＝ 到整数 (搜索结果.取子匹配文本 (成员, 1, ))
地址 ＝ 搜索结果.取子匹配文本 (成员, 2, )
地址 ＝ 地址 ＋ “ ” ＋ 搜索结果.取子匹配文本 (成员, 3, )
地址 ＝ 地址 ＋ “ ” ＋ 搜索结果.取子匹配文本 (成员, 4, )
表格 [编号] ＝ 地址

计次循环尾 ()

子程序名	返回值类型	公开	备 注
获取地址	文本型
参数名	类 型	参考	可空	数组	备 注
号码	文本型

变量名	类 型	静态	数组	备 注
数	长整数型

数 ＝ 到长整数 (号码)
如果真 (数 ＜ 1 或 数 ＞ 20000000000)
返回 (“”)
数 ＝ 到整数 (取文本左边 (号码, 7))
返回 (表格 [数])

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

变量名	类 型	静态	数组	备 注
数	整数型
号码	文本型		100000
文本	文本型
无效号码	整数型
时间	整数型

' 需要放在程序启动时运行一次
初始化 ()
' 生成十万个号码
计次循环首 (取数组成员数 (号码), 数)
文本 ＝ “1” ＋ 到文本 (取随机数 (3, 9))
计次循环首 (9, )
文本 ＝ 文本 ＋ 到文本 (取随机数 (0, 9))
计次循环尾 ()
号码 [数] ＝ 文本
计次循环尾 ()
' 模拟对十万个号码进行处理
时间 ＝ 取启动时间 ()
计次循环首 (取数组成员数 (号码), 数)
如果真 (获取地址 (号码 [数]) ＝ “”)
无效号码 ＝ 无效号码 ＋ 1

计次循环尾 ()
调试输出 (无效号码)
调试输出 (格式化文本 (“耗时: %.lf毫秒”, 取启动时间 () － 时间))

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 表格, 文本型, , "2000000", 需要设置为程序集或全局变量<br /> <br /> .子程序 初始化<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> .局部变量 数, 整数型<br /> .局部变量 搜索结果, 搜索结果<br /> .局部变量 编号, 整数型<br /> .局部变量 地址, 文本型<br /> .局部变量 成员, 文本型<br /> <br /> 内存分配加速优化 (真)<br /> .如果真 (文件是否存在 (“ym_core.sql”) ＝ 假)<br />     调试输出 (“当前目录下 ym_core.sql 不存在！”)<br />     返回 ()<br /> .如果真结束<br /> 文本 ＝ UTF8到文本 (读入文件 (“ym_core.sql”))<br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> ' 调试输出 (取数组成员数 (数组))<br /> 正则.创建 (“VALUES \('.+?', '.+?', '(.+?)', '(.+?)', '(.+?)', '(.+?)'”, )<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     成员 ＝ 数组 [数]<br />     搜索结果 ＝ 正则.搜索 (成员, 1, )<br />     .如果真 (搜索结果.是否为空 () ＝ 假)<br />         编号 ＝ 到整数 (搜索结果.取子匹配文本 (成员, 1, ))<br />         地址 ＝ 搜索结果.取子匹配文本 (成员, 2, )<br />         地址 ＝ 地址 ＋ “ ” ＋ 搜索结果.取子匹配文本 (成员, 3, )<br />         地址 ＝ 地址 ＋ “ ” ＋ 搜索结果.取子匹配文本 (成员, 4, )<br />         表格 [编号] ＝ 地址<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 获取地址, 文本型<br /> .参数 号码, 文本型<br /> .局部变量 数, 长整数型<br /> <br /> 数 ＝ 到长整数 (号码)<br /> .如果真 (数 ＜ 1 或 数 ＞ 20000000000)<br />     返回 (“”)<br /> .如果真结束<br /> 数 ＝ 到整数 (取文本左边 (号码, 7))<br /> 返回 (表格 [数])<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数, 整数型<br /> .局部变量 号码, 文本型, , "100000"<br /> .局部变量 文本, 文本型<br /> .局部变量 无效号码, 整数型<br /> .局部变量 时间, 整数型<br /> <br /> ' 需要放在程序启动时运行一次<br /> 初始化 ()<br /> ' 生成十万个号码<br /> .计次循环首 (取数组成员数 (号码), 数)<br />     文本 ＝ “1” ＋ 到文本 (取随机数 (3, 9))<br />     .计次循环首 (9, )<br />         文本 ＝ 文本 ＋ 到文本 (取随机数 (0, 9))<br />     .计次循环尾 ()<br />     号码 [数] ＝ 文本<br /> .计次循环尾 ()<br /> ' 模拟对十万个号码进行处理<br /> 时间 ＝ 取启动时间 ()<br /> .计次循环首 (取数组成员数 (号码), 数)<br />     .如果真 (获取地址 (号码 [数]) ＝ “”)<br />         无效号码 ＝ 无效号码 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (无效号码)<br /> 调试输出 (格式化文本 (“耗时: %.lf毫秒”, 取启动时间 () － 时间))

开始运行被调试程序
* 30155
* “耗时: 47毫秒”
被调试易程序运行完毕

注意，在上面的代码中，内存分配加速优化 这个模块非常关键，如果不使用，初始化过程会非常缓慢。
完整例子.zip (4.14 MB, 下载次数: 2)

2026-4-10 22:39 上传

点击文件名下载附件