都知道汇编快 可以汇编太难了 怎么处理文本 俺还没学会能快一点算一点 将就着用先

  

子程序名	返回值类型	公开	备 注
文本重复行	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
文本	快速文本对象
分割	文本型		0
节点	节点
重复	快速文本对象
计次	整数型

文本.置文本 (原文)
分割 ＝ 文本.分割文本 ( #换行符, )
计次循环首 (取数组成员数 (分割), 计次)
如果真 (取反 (节点.加入属性 (分割 [计次], “”)))
重复.添加 (分割 [计次], #换行符 )

计次循环尾 ()
返回 (重复.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 EDataStructure<br /> <br /> .子程序 文本重复行, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 节点, 节点<br /> .局部变量 重复, 快速文本对象<br /> .局部变量 计次, 整数型<br /> <br /> 文本.置文本 (原文)<br /> 分割 ＝ 文本.分割文本 (#换行符, )<br /> .计次循环首 (取数组成员数 (分割), 计次)<br />     .如果真 (取反 (节点.加入属性 (分割 [计次], “”)))<br />         重复.添加 (分割 [计次], #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (重复.取文本 (, ))

我也写了一个, 目测应该是比快速文本要快

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
原文	文本型
汇编版结果	文本型
普通版结果	文本型

原文 ＝ “测试123abc”
汇编版结果 ＝ 文本删数字_汇编版 (原文)
普通版结果 ＝ 文本删数字 (原文)
输出调试文本 (汇编版结果, 普通版结果)

子程序名	返回值类型	公开	备 注
文本删数字_汇编版	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
文本长度	整数型
返回文本	文本型

文本长度 ＝ 取文本长度 (原文)
返回文本 ＝ 取空白文本 (文本长度)
_文本删数字 (取指针_文本型 (原文), 文本长度, 取指针_文本型 (返回文本))
返回 (返回文本)

子程序名	返回值类型	公开	备 注
文本删数字	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
文本长度	整数型
返回文本	文本型
原文本指针	整数型
缓冲区指针	整数型
ch	字节型
写入长度	整数型

文本长度 ＝ 取文本长度 (原文)
如果真 (文本长度 ＝ 0)
返回 (“”)

返回文本 ＝ 取空白文本 (文本长度)
原文本指针 ＝ 取指针_文本型 (原文)
缓冲区指针 ＝ 取指针_文本型 (返回文本)
循环判断首 ()
ch ＝ __get_byte (原文本指针, 0)
原文本指针 ＝ 原文本指针 ＋ 1
如果真 (ch ＜ 48 或 ch ＞ 57)  ' 48='0', 57='9'
__set_byte (缓冲区指针, 写入长度, ch)
写入长度 ＝ 写入长度 ＋ 1

循环判断尾 (ch ≠ 0)
__set_byte (缓冲区指针, 写入长度, 0)
返回 (返回文本)

子程序名	返回值类型	公开	备 注
_文本删数字	整数型
参数名	类 型	参考	可空	数组	备 注
原文	整数型
尺寸	整数型
缓冲区	整数型

置入代码 ({ 139, 85, 16, 133, 210, 116, 41, 131, 125, 12, 0, 124, 35, 86, 139, 117, 8, 51, 201, 235, 13, 70, 60, 48, 124, 4, 60, 57, 126, 4, 136, 4, 17, 65, 138, 6, 132, 192, 117, 237, 136, 4, 17, 139, 193, 94, 235, 2, 51, 192, 93, 194, 12, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
取指针_文本型	整数型		取到的是变量在堆中的地址,和 取变量数据地址() 一样
参数名	类 型	参考	可空	数组	备 注
文本	文本型

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
__set_byte	整数型		请确保指针的合法性,写到内存
参数名	类 型	参考	可空	数组	备 注
lpAddr	整数型				内存地址
offset	整数型				偏移
value	字节型				写入值

置入代码 ({ 139, 93, 8, 139, 77, 12, 139, 4, 11, 138, 85, 16, 136, 20, 11, 201, 194, 12, 0 })
' mov ebx,[ebp+8]
' mov ecx,[ebp+12]
' mov eax,[ecx+ebx]
' mov dl,[ebp+16]
' mov [ecx+ebx],dl
' leave
' ret 12
返回 (0)

子程序名	返回值类型	公开	备 注
__get_byte	字节型		请确保指针的合法性,读取内存
参数名	类 型	参考	可空	数组	备 注
lpAddr	整数型				内存地址
offset	整数型				偏移

置入代码 ({ 139, 69, 8, 139, 93, 12, 139, 4, 24, 201, 194, 8, 0 })
' mov eax,[ebp+8]
' mov ebx,[ebp+12]
' mov eax,[eax+ebx]
' leave
' ret 8
返回 (0)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原文, 文本型<br /> .局部变量 汇编版结果, 文本型<br /> .局部变量 普通版结果, 文本型<br /> <br /> 原文 ＝ “测试123abc”<br /> 汇编版结果 ＝ 文本删数字_汇编版 (原文)<br /> 普通版结果 ＝ 文本删数字 (原文)<br /> <br /> 输出调试文本 (汇编版结果, 普通版结果)<br /> <br /> .子程序 文本删数字_汇编版, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 返回文本, 文本型<br /> <br /> 文本长度 ＝ 取文本长度 (原文)<br /> 返回文本 ＝ 取空白文本 (文本长度)<br /> _文本删数字 (取指针_文本型 (原文), 文本长度, 取指针_文本型 (返回文本))<br /> 返回 (返回文本)<br /> <br /> .子程序 文本删数字, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 原文本指针, 整数型<br /> .局部变量 缓冲区指针, 整数型<br /> .局部变量 ch, 字节型<br /> .局部变量 写入长度, 整数型<br /> <br /> 文本长度 ＝ 取文本长度 (原文)<br /> .如果真 (文本长度 ＝ 0)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 返回文本 ＝ 取空白文本 (文本长度)<br /> 原文本指针 ＝ 取指针_文本型 (原文)<br /> 缓冲区指针 ＝ 取指针_文本型 (返回文本)<br /> <br /> .循环判断首 ()<br />     ch ＝ __get_byte (原文本指针, 0)<br />     原文本指针 ＝ 原文本指针 ＋ 1<br />     .如果真 (ch ＜ 48 或 ch ＞ 57)  ' 48='0', 57='9'<br />         __set_byte (缓冲区指针, 写入长度, ch)<br />         写入长度 ＝ 写入长度 ＋ 1<br />     .如果真结束<br /> <br /> .循环判断尾 (ch ≠ 0)<br /> __set_byte (缓冲区指针, 写入长度, 0)<br /> 返回 (返回文本)<br /> <br /> .子程序 _文本删数字, 整数型<br /> .参数 原文, 整数型<br /> .参数 尺寸, 整数型<br /> .参数 缓冲区, 整数型<br /> <br /> 置入代码 ({ 139, 85, 16, 133, 210, 116, 41, 131, 125, 12, 0, 124, 35, 86, 139, 117, 8, 51, 201, 235, 13, 70, 60, 48, 124, 4, 60, 57, 126, 4, 136, 4, 17, 65, 138, 6, 132, 192, 117, 237, 136, 4, 17, 139, 193, 94, 235, 2, 51, 192, 93, 194, 12, 0 })<br /> 返回 (0)<br /> <br /> .子程序 取指针_文本型, 整数型, , 取到的是变量在堆中的地址,和 取变量数据地址() 一样<br /> .参数 文本, 文本型, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 __set_byte, 整数型, , 请确保指针的合法性,写到内存<br /> .参数 lpAddr, 整数型, , 内存地址<br /> .参数 offset, 整数型, , 偏移<br /> .参数 value, 字节型, , 写入值<br /> <br /> 置入代码 ({ 139, 93, 8, 139, 77, 12, 139, 4, 11, 138, 85, 16, 136, 20, 11, 201, 194, 12, 0 })<br /> ' mov ebx,[ebp+8]<br /> ' mov ecx,[ebp+12]<br /> ' mov eax,[ecx+ebx]<br /> ' mov dl,[ebp+16]<br /> ' mov [ecx+ebx],dl<br /> ' leave<br /> ' ret 12<br /> 返回 (0)<br /> <br /> .子程序 __get_byte, 字节型, , 请确保指针的合法性,读取内存<br /> .参数 lpAddr, 整数型, , 内存地址<br /> .参数 offset, 整数型, , 偏移<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 93, 12, 139, 4, 24, 201, 194, 8, 0 })<br /> ' mov eax,[ebp+8]<br /> ' mov ebx,[ebp+12]<br /> ' mov eax,[eax+ebx]<br /> ' leave<br /> ' ret 8<br /> 返回 (0)

文本删数字.e (6.63 KB, 下载次数: 4)

2024-6-25 17:09 上传

点击文件名下载附件
下载积分: 精币 -2 枚

都差不多

有没有可能是正则表达式的库不行，PCRE库还是很强大的，功能丰富，开发效率高啊

测试1000次，本帖子的网页源码参与/回复主题 - 求求了能不能不要老是用正则文本删数字 - 源码区 精易论坛 (125.la)

感谢分享，很给力！~

感谢分享，支持开源！！！

感谢分享，很给力！~

感谢分享，支持开源！！！

笨来无一悟 发表于 2024-6-26 13:24
编译之后差不多

复用正则即可 ，你的正则本来就是固定的。
1234567次

耗时 1.7秒

[16:48:40] 开始运行被调试程序
[16:48:42] * “DEELX->1656”
[16:48:44] * “pcre->1797”
[16:48:48] 被调试易程序运行完毕

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
zz2	正则表达式PCRE
zz1	正则表达式DEELX

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

变量名	类 型	静态	数组	备 注
a	文本型
start	整数型
i	整数型
ret	文本型
time	双精度小数型

zz1.创建 (“\d+”, , )
zz2.创建 (“\d+”, , , )
a ＝ “测试123abc”
start ＝ 取启动时间 ()
计次循环首 (1234567, i)
ret ＝ ZZDEELX (a)
计次循环尾 ()
time ＝ 取启动时间 () － start
调试输出 (“DEELX->” ＋ 到文本 (time))
start ＝ 取启动时间 ()
计次循环首 (1234567, i)
ret ＝ ZZpcre (a)
计次循环尾 ()
time ＝ 取启动时间 () － start
调试输出 (“pcre->” ＋ 到文本 (time))

子程序名	返回值类型	公开	备 注
ZZDEELX	文本型
参数名	类 型	参考	可空	数组	备 注
data	文本型

返回 (zz1.替换 (data, “”, , ))

子程序名	返回值类型	公开	备 注
ZZpcre	文本型
参数名	类 型	参考	可空	数组	备 注
data	文本型

返回 (zz2.替换 (data, “”, 真))

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
DeelxRegEx	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 e2ee<br /> .支持库 DeelxRegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 zz2, 正则表达式PCRE<br /> .程序集变量 zz1, 正则表达式DEELX<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 文本型<br /> .局部变量 start, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 ret, 文本型<br /> .局部变量 time, 双精度小数型<br /> <br /> zz1.创建 (“\d+”, , )<br /> zz2.创建 (“\d+”, , , )<br /> a ＝ “测试123abc”<br /> start ＝ 取启动时间 ()<br /> .计次循环首 (1234567, i)<br />     ret ＝ ZZDEELX (a)<br /> .计次循环尾 ()<br /> time ＝ 取启动时间 () － start<br /> 调试输出 (“DEELX->” ＋ 到文本 (time))<br /> <br /> start ＝ 取启动时间 ()<br /> .计次循环首 (1234567, i)<br />     ret ＝ ZZpcre (a)<br /> .计次循环尾 ()<br /> time ＝ 取启动时间 () － start<br /> 调试输出 (“pcre->” ＋ 到文本 (time))<br /> <br /> .子程序 ZZDEELX, 文本型<br /> .参数 data, 文本型<br /> <br /> 返回 (zz1.替换 (data, “”, , ))<br /> <br /> .子程序 ZZpcre, 文本型<br /> .参数 data, 文本型<br /> <br /> 返回 (zz2.替换 (data, “”, 真))

嫂子 发表于 2024-6-26 16:49
你要在追求速度的话。
正则是可以公用的。
你新建一个 正则对象 全局。

再往上那就换语言或者换引擎了。
Delphi我测试下来 300ms  

笨来无一悟 发表于 2024-6-26 13:24
编译之后差不多

你要在追求速度的话。
正则是可以公用的。
你新建一个 正则对象 全局。
然后给他赋值好  正则表达式。

使用的时候直接使用 replace   1234567次  大概也就需要2秒不到

笨来无一悟 发表于 2024-6-26 13:24
编译之后差不多

百万级别了。差不多。
我测试1000次 是DELLEX牛一点