易语言源码 一个模糊匹配算法+打分机制

菜就多多练

你来我也来
易语言版  不需要模块
e.e (9.23 KB, 下载次数: 16)

6 天前 上传

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

其实是deepseek 用py代码改的https://125.confly.eu.org/thread-14855243-1-1.html  
py 和c++ 可以做的  易语言也可以做！！

  

子程序名	返回值类型	公开	备 注
模糊匹配并评分	整数型		返回匹配项数
参数名	类 型	参考	可空	数组	备 注
候选数量	整数型
cha询文本	文本型
候选数组	文本型
结果数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型
得分	整数型
临时结果	文本型		0

计次循环首 (候选数量, i)
得分 ＝ 计算匹配得分_增强版 (预处理文本 (cha询文本), 预处理文本 (候选数组 [i]))
如果 (得分 ＞ 0)
加入成员 (临时结果, 到文本 (i － 1) ＋ “|” ＋ 候选数组 [i] ＋ “|” ＋ 到文本 (得分))



计次循环尾 ()
' 按得分降序排序（得分相同时按索引升序）
数组排序 (临时结果, 假)
结果数组 ＝ 临时结果
返回 (取数组成员数 (临时结果))

子程序名	返回值类型	公开	备 注
计算匹配得分_增强版	整数型
参数名	类 型	参考	可空	数组	备 注
cha询文本	文本型
目标文本	文本型

变量名	类 型	静态	数组	备 注
得分	整数型
最后匹配位置	整数型
cha询位置	整数型
目标位置	整数型
cha询长度	整数型
目标长度	整数型
前字符	文本型
当前字符	文本型
间隔	整数型
长度系数	双精度小数型
位置系数	双精度小数型

cha询长度 ＝ 取文本长度 (cha询文本)
目标长度 ＝ 取文本长度 (目标文本)
最后匹配位置 ＝ -1
cha询位置 ＝ 1
目标位置 ＝ 1
判断循环首 (cha询位置 ≤ cha询长度 且 目标位置 ≤ 目标长度)
当前字符 ＝ 取文本中间 (目标文本, 目标位置, 1)
如果 (取文本中间 (cha询文本, cha询位置, 1) ＝ 当前字符)
得分 ＝ 得分 ＋ 10
' 位置奖励
判断 (目标位置 ＝ 1)
如果 (cha询位置 ＝ 1)
得分 ＝ 得分 ＋ 50
得分 ＝ 得分 ＋ 30

判断 (cha询位置 ＝ 1)
得分 ＝ 得分 ＋ 20



' 边界检测（修正点1）
如果 (目标位置 ＞ 1)
前字符 ＝ 取文本中间 (目标文本, 目标位置 － 1, 1)
判断 (取代码 (前字符, ) ＝ 95 或 取代码 (前字符, ) ＝ 32 或 取代码 (前字符, ) ＝ 45)  ' _/-符号
得分 ＝ 得分 ＋ 25
判断 (是否小写 (前字符) 且 是否大写 (当前字符))  ' 驼峰边界
得分 ＝ 得分 ＋ 25




' 连续匹配（修正点2）
如果 (最后匹配位置 ≥ 0)
间隔 ＝ 目标位置 － 最后匹配位置 － 1
如果 (间隔 ＝ 0)
得分 ＝ 得分 ＋ 25
如果 (最后匹配位置 ＞ 1 且 目标位置 － 最后匹配位置 ＝ 1)
得分 ＝ 得分 ＋ 10



得分 ＝ 得分 － 取惩罚值 (间隔)


最后匹配位置 ＝ 目标位置
cha询位置 ＝ cha询位置 ＋ 1


目标位置 ＝ 目标位置 ＋ 1
判断循环尾 ()
' 最终计算（修正点3）
如果 (cha询位置 ＞ cha询长度)
长度系数 ＝ 0.5 ＋ 0.5 × cha询长度 ÷ 目标长度
位置系数 ＝ 0.7 ＋ 0.3 �� (1 － 目标位置 ÷ 目标长度)
返回 (取较大值 (取整 (得分 × 长度系数 × 位置系数), 1))
返回 (0)

子程序名	返回值类型	公开	备 注
预处理文本	文本型
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型

返回 (到大写 (删首尾空 (原始文本)))

子程序名	返回值类型	公开	备 注
是否小写	逻辑型
参数名	类 型	参考	可空	数组	备 注
字符	文本型

返回 (取代码 (字符, ) ≥ 97 且 取代码 (字符, ) ≤ 122)

子程序名	返回值类型	公开	备 注
是否大写	逻辑型
参数名	类 型	参考	可空	数组	备 注
字符	文本型

返回 (取代码 (字符, ) ≥ 65 且 取代码 (字符, ) ≤ 90)

子程序名	返回值类型	公开	备 注
取惩罚值	整数型
参数名	类 型	参考	可空	数组	备 注
间隔	整数型

变量名	类 型	静态	数组	备 注
原始值	双精度小数型

原始值 ＝ 求次方 (间隔, 1.5)
返回 (取较小值 (取整 (原始值 × 10) ÷ 10, 15))
' 使用示例

子程序名	返回值类型	公开	备 注
测试示例

变量名	类 型	静态	数组	备 注
数据源	文本型		0
结果	文本型		0
匹配数	整数型
i	整数型

数据源 ＝ { “MB_YESNO”, “MB_ABORTRETRYIGNORE”, “MESSAGEBOX_YESNO”, “MB_ICONQUESTION” }
匹配数 ＝ 模糊匹配并评分 (取数组成员数 (数据源), “m_no”, 数据源, 结果)
调试输出 (“-----匹配结果-----”)
计次循环首 (匹配数, i)
调试输出 (结果 [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
取较大值	整数型
参数名	类 型	参考	可空	数组	备 注
数值1	整数型
数值2	整数型

如果 (数值1 ≥ 数值2)
返回 (数值1)
返回 (数值2)

子程序名	返回值类型	公开	备 注
取较小值	整数型
参数名	类 型	参考	可空	数组	备 注
数值1	整数型
数值2	整数型

如果 (数值1 ≤ 数值2)
返回 (数值1)
返回 (数值2)

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

测试示例 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 模糊匹配并评分, 整数型, 公开, 返回匹配项数<br /> .参数 候选数量, 整数型<br /> .参数 cha询文本, 文本型<br /> .参数 候选数组, 文本型, 数组<br /> .参数 结果数组, 文本型, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 得分, 整数型<br /> .局部变量 临时结果, 文本型, , "0"<br /> <br /> .计次循环首 (候选数量, i)<br />     得分 ＝ 计算匹配得分_增强版 (预处理文本 (cha询文本), 预处理文本 (候选数组 <i>))<br />     .如果 (得分 ＞ 0)<br />         加入成员 (临时结果, 到文本 (i － 1) ＋ “|” ＋ 候选数组 <i> ＋ “|” ＋ 到文本 (得分))<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 按得分降序排序（得分相同时按索引升序）<br /> 数组排序 (临时结果, 假)<br /> 结果数组 ＝ 临时结果<br /> 返回 (取数组成员数 (临时结果))<br /> <br /> .子程序 计算匹配得分_增强版, 整数型<br /> .参数 cha询文本, 文本型<br /> .参数 目标文本, 文本型<br /> .局部变量 得分, 整数型<br /> .局部变量 最后匹配位置, 整数型<br /> .局部变量 cha询位置, 整数型<br /> .局部变量 目标位置, 整数型<br /> .局部变量 cha询长度, 整数型<br /> .局部变量 目标长度, 整数型<br /> .局部变量 前字符, 文本型<br /> .局部变量 当前字符, 文本型<br /> .局部变量 间隔, 整数型<br /> .局部变量 长度系数, 双精度小数型<br /> .局部变量 位置系数, 双精度小数型<br /> <br /> cha询长度 ＝ 取文本长度 (cha询文本)<br /> 目标长度 ＝ 取文本长度 (目标文本)<br /> 最后匹配位置 ＝ -1<br /> cha询位置 ＝ 1<br /> 目标位置 ＝ 1<br /> <br /> .判断循环首 (cha询位置 ≤ cha询长度 且 目标位置 ≤ 目标长度)<br />     当前字符 ＝ 取文本中间 (目标文本, 目标位置, 1)<br />     .如果 (取文本中间 (cha询文本, cha询位置, 1) ＝ 当前字符)<br />         得分 ＝ 得分 ＋ 10<br /> <br />         ' 位置奖励<br />         .判断开始 (目标位置 ＝ 1)<br />             .如果 (cha询位置 ＝ 1)<br />                 得分 ＝ 得分 ＋ 50<br />             .否则<br />                 得分 ＝ 得分 ＋ 30<br />             .如果结束<br /> <br />         .判断 (cha询位置 ＝ 1)<br />             得分 ＝ 得分 ＋ 20<br />         .默认<br /> <br />         .判断结束<br /> <br />         ' 边界检测（修正点1）<br />         .如果 (目标位置 ＞ 1)<br />             前字符 ＝ 取文本中间 (目标文本, 目标位置 － 1, 1)<br />             .判断开始 (取代码 (前字符, ) ＝ 95 或 取代码 (前字符, ) ＝ 32 或 取代码 (前字符, ) ＝ 45)  ' _/-符号<br />                 得分 ＝ 得分 ＋ 25<br />             .判断 (是否小写 (前字符) 且 是否大写 (当前字符))  ' 驼峰边界<br />                 得分 ＝ 得分 ＋ 25<br />             .默认<br /> <br />             .判断结束<br /> <br />         .否则<br />         .如果结束<br /> <br />         ' 连续匹配（修正点2）<br />         .如果 (最后匹配位置 ≥ 0)<br />             间隔 ＝ 目标位置 － 最后匹配位置 － 1<br />             .如果 (间隔 ＝ 0)<br />                 得分 ＝ 得分 ＋ 25<br />                 .如果 (最后匹配位置 ＞ 1 且 目标位置 － 最后匹配位置 ＝ 1)<br />                     得分 ＝ 得分 ＋ 10<br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .否则<br />                 得分 ＝ 得分 － 取惩罚值 (间隔)<br />             .如果结束<br /> <br />         .否则<br />         .如果结束<br /> <br />         最后匹配位置 ＝ 目标位置<br />         cha询位置 ＝ cha询位置 ＋ 1<br />     .否则<br /> <br />     .如果结束<br />     目标位置 ＝ 目标位置 ＋ 1<br /> .判断循环尾 ()<br /> <br /> ' 最终计算（修正点3）<br /> .如果 (cha询位置 ＞ cha询长度)<br /> <br />     长度系数 ＝ 0.5 ＋ 0.5 × cha询长度 ÷ 目标长度<br />     位置系数 ＝ 0.7 ＋ 0.3 × (1 － 目标位置 ÷ 目标长度)<br />     返回 (取较大值 (取整 (得分 × 长度系数 × 位置系数), 1))<br /> .否则<br />     返回 (0)<br /> .如果结束<br /> <br /> <br /> .子程序 预处理文本, 文本型<br /> .参数 原始文本, 文本型<br /> <br /> 返回 (到大写 (删首尾空 (原始文本)))<br /> <br /> .子程序 是否小写, 逻辑型<br /> .参数 字符, 文本型<br /> <br /> 返回 (取代码 (字符, ) ≥ 97 且 取代码 (字符, ) ≤ 122)<br /> <br /> .子程序 是否大写, 逻辑型<br /> .参数 字符, 文本型<br /> <br /> 返回 (取代码 (字符, ) ≥ 65 且 取代码 (字符, ) ≤ 90)<br /> <br /> .子程序 取惩罚值, 整数型<br /> .参数 间隔, 整数型<br /> .局部变量 原始值, 双精度小数型<br /> <br /> 原始值 ＝ 求次方 (间隔, 1.5)<br /> 返回 (取较小值 (取整 (原始值 × 10) ÷ 10, 15))<br /> <br /> ' 使用示例<br /> <br /> .子程序 测试示例<br /> .局部变量 数据源, 文本型, , "0"<br /> .局部变量 结果, 文本型, , "0"<br /> .局部变量 匹配数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 数据源 ＝ { “MB_YESNO”, “MB_ABORTRETRYIGNORE”, “MESSAGEBOX_YESNO”, “MB_ICONQUESTION” }<br /> <br /> 匹配数 ＝ 模糊匹配并评分 (取数组成员数 (数据源), “m_no”, 数据源, 结果)<br /> <br /> 调试输出 (“-----匹配结果-----”)<br /> .计次循环首 (匹配数, i)<br />     调试输出 (结果 <i>)<br /> .计次循环尾 ()<br /> <br /> .子程序 取较大值, 整数型<br /> .参数 数值1, 整数型<br /> .参数 数值2, 整数型<br /> <br /> .如果 (数值1 ≥ 数值2)<br />     返回 (数值1)<br /> .否则<br />     返回 (数值2)<br /> .如果结束<br /> <br /> <br /> .子程序 取较小值, 整数型<br /> .参数 数值1, 整数型<br /> .参数 数值2, 整数型<br /> <br /> .如果 (数值1 ≤ 数值2)<br />     返回 (数值1)<br /> .否则<br />     返回 (数值2)<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 测试示例 ()

字符被屏蔽 建议下载代码

please

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

查过

全都是大佬~

豆豆灰常开心

下个学习一下

alanwoo

感谢分享，学习一下

please

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

please

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

year1970

感谢分享

查过

已经顶贴，感谢您对论坛的支持！

豆豆灰常开心

全都是大佬~