epcre2正则替换W怎么用？

aismy

  

子程序名	返回值类型	公开	备 注
epcre2正则替换W_异常

变量名	类 型	静态	数组	备 注
b
表达式句柄	整数型
替换结果	文本型
错误代码	整数型
错误开始位置	整数型
retW	字节集
替换结果U	字节集

P_正则加载全局链接库 (, )  ' 加载全局链接库，默认加载的是目录下的 libpce2-8.dll，即8位代码单元的
' 表达式句柄 ＝ P_正则编译表达式 (“2”, , , , , , 错误代码, 错误开始位置)’正常
' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Utf8 (“2”), , , , , , 错误代码, 错误开始位置)
表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Utf8 (“2”), , , , 真, , 错误代码, 错误开始位置)
' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Unicode (“2”, ), , , 真, , , 错误代码, 错误开始位置)
' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Unicode (“2”, 真), , , 真, , , 错误代码, 错误开始位置)
' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Utf8 (“的”), , , 真, , , 错误代码, 错误开始位置)
调试输出 (“表达式句柄”, 表达式句柄)
如果 (表达式句柄 ≤ 0)
输出调试文本 (“编译表达式错误：” ＋ P_正则取错误消息 (错误代码) ＋ “；错误开始位置：” ＋ 到文本 (错误开始位置))
信息框 (“编译表达式错误：”, 0, , )
返回 ()
输出调试文本 (“编译表达式成功！”)

' 替换结果 ＝ P_正则内容替换 (表达式句柄, “123”, “AAA测试”, , )  ' 正常
' 调试输出 (“替换结果”, 替换结果)  ' “替换结果” | “1AAA测试3”
' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“A”), , )  ' 一个字节正常
替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“AA”), , )  ' 2个就不正常了
' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“替换后”), , )  ' 更多字节也不正常
' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Unicode (“123”, 真), 编码_Ansi到Unicode (“C”, 真), , )  ' 更多字节也不正常
' 替换结果U ＝ P_正则内容高级替换W (表达式句柄, 编码_Ansi到Unicode (“123”, 假), 编码_Ansi到Unicode (“正常”, 真), , 真, , )  ' 正常
' 替换结果U ＝ P_正则内容高级替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“正常”), , , , )  ' 正常
' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“AAA测试”), , )
调试输出 (“替换结果U”, 替换结果U)
MessageBoxW (0, 编码_Utf8到Unicode (替换结果U), a2w (“替换结果”), 0)
' MessageBoxW (0, 替换结果U, a2w (“替换结果”), 0)
P_正则卸载全局链接库 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 epcre2正则替换W_异常<br /> .局部变量 b<br /> .局部变量 表达式句柄, 整数型<br /> .局部变量 替换结果, 文本型<br /> .局部变量 错误代码, 整数型<br /> .局部变量 错误开始位置, 整数型<br /> .局部变量 retW, 字节集<br /> .局部变量 替换结果U, 字节集<br /> <br /> P_正则加载全局链接库 (, )  ' 加载全局链接库，默认加载的是目录下的 libpce2-8.dll，即8位代码单元的<br /> ' 表达式句柄 ＝ P_正则编译表达式 (“2”, , , , , , 错误代码, 错误开始位置)’正常<br /> ' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Utf8 (“2”), , , , , , 错误代码, 错误开始位置)<br /> 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Utf8 (“2”), , , , 真, , 错误代码, 错误开始位置)<br /> ' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Unicode (“2”, ), , , 真, , , 错误代码, 错误开始位置)<br /> ' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Unicode (“2”, 真), , , 真, , , 错误代码, 错误开始位置)<br /> ' 表达式句柄 ＝ P_正则编译表达式W (编码_Ansi到Utf8 (“的”), , , 真, , , 错误代码, 错误开始位置)<br /> 调试输出 (“表达式句柄”, 表达式句柄)<br /> .如果 (表达式句柄 ≤ 0)<br />     输出调试文本 (“编译表达式错误：” ＋ P_正则取错误消息 (错误代码) ＋ “；错误开始位置：” ＋ 到文本 (错误开始位置))<br />     信息框 (“编译表达式错误：”, 0, , )<br />     返回 ()<br /> .否则<br />     输出调试文本 (“编译表达式成功！”)<br /> .如果结束<br /> <br /> ' 替换结果 ＝ P_正则内容替换 (表达式句柄, “123”, “AAA测试”, , )  ' 正常<br /> ' 调试输出 (“替换结果”, 替换结果)  ' “替换结果” | “1AAA测试3”<br /> ' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“A”), , )  ' 一个字节正常<br /> 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“AA”), , )  ' 2个就不正常了<br /> ' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“替换后”), , )  ' 更多字节也不正常<br /> ' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Unicode (“123”, 真), 编码_Ansi到Unicode (“C”, 真), , )  ' 更多字节也不正常<br /> ' 替换结果U ＝ P_正则内容高级替换W (表达式句柄, 编码_Ansi到Unicode (“123”, 假), 编码_Ansi到Unicode (“正常”, 真), , 真, , )  ' 正常<br /> ' 替换结果U ＝ P_正则内容高级替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“正常”), , , , )  ' 正常<br /> ' 替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“AAA测试”), , )<br /> 调试输出 (“替换结果U”, 替换结果U)<br /> MessageBoxW (0, 编码_Utf8到Unicode (替换结果U), a2w (“替换结果”), 0)<br /> ' MessageBoxW (0, 替换结果U, a2w (“替换结果”), 0)<br /> P_正则卸载全局链接库 ()

替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“A”), , ) ' 一个字节正常
替换结果U ＝ P_正则内容替换W (表达式句柄, 编码_Ansi到Utf8 (“123”), 编码_Ansi到Utf8 (“AA”), , ) ' 2个就不正常了



上面是我在截图后，又测试了上面更多的代码，但 P_正则内容替换W() 依旧在大于1个字节时，异常，应该是我用法不对，但也没折腾出来！
高级替换W正常，正则表达式DEELX正常，虽然够用了，但我想知道 P_正则内容替换W()  的用法，感觉我是转码哪个地方没弄对，谢谢！



测试代码截图：





模块里面的部分代码截图（对比了一下，但看不懂代码）：





epcre2 V1.04开源模块来源：https://bbs.125.la/forum.php?mod=viewthread&tid=14449084

2楼的 epcre2 V1.04.zip版本，里面有作者提供的例子。

aiky123

这个替换有bug，返回值申请的内存长度不正确，导致取出的文本错误。
我给出思路是，前先匹配一遍，得到匹配数量*替换结果文本长度+原文本长度。
内存分配长点没关系，但短了取出结果就不对了。
或者你联系作者看看有没有更新