文字相似度比对求助

clf2275

  

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

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

变量名	类 型	静态	数组	备 注
文字数组	字节集

数组创建 ()
文字相似度比对 (“张三”)

子程序名	返回值类型	公开	备 注
文字相似度比对	文本型		'返回匹配度最高
参数名	类 型	参考	可空	数组	备 注
比对文字	文本型

' 主要比对内容,位置和总数,返回最像的文字
' 我写了一些 不太优雅很臃肿
' 比如传入"张三"返回是"张三封" 而不是"张一三"
' 比如传入"张二三" 返回是"张一三"而不是"张三封"

子程序名	返回值类型	公开	备 注
数组创建

加入成员 (集_名字, “张一三”)
加入成员 (集_名字, “张三封”)
加入成员 (集_名字, “王一鸣”)
加入成员 (集_名字, “武则天”)
加入成员 (集_名字, “孙悟空”)
加入成员 (集_名字, “孙架空”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_名字, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文字数组, 字节集<br /> <br /> 数组创建 ()<br /> <br /> <br /> 文字相似度比对 (“张三”)<br /> <br /> <br /> .子程序 文字相似度比对, 文本型, , '返回匹配度最高<br /> .参数 比对文字, 文本型<br /> <br /> ' 主要比对内容,位置和总数,返回最像的文字<br /> ' 我写了一些 不太优雅很臃肿<br /> ' 比如传入"张三"返回是"张三封" 而不是"张一三"<br /> ' 比如传入"张二三" 返回是"张一三"而不是"张三封"<br /> <br /> <br /> .子程序 数组创建<br /> <br /> <br /> <br /> 加入成员 (集_名字, “张一三”)<br /> 加入成员 (集_名字, “张三封”)<br /> 加入成员 (集_名字, “王一鸣”)<br /> 加入成员 (集_名字, “武则天”)<br /> 加入成员 (集_名字, “孙悟空”)<br /> 加入成员 (集_名字, “孙架空”)

洋滨

  

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

变量名	类 型	静态	数组	备 注
文字数组	字节集

数组创建 ()
调试输出 (文字相似度比对 (“孙空”))

子程序名	返回值类型	公开	备 注
文字相似度比对	文本型		'返回匹配度最高
参数名	类 型	参考	可空	数组	备 注
比对文字	文本型

变量名	类 型	静态	数组	备 注
i	整数型
相同次数	整数型
被对比文本	文本型
对比文本字	文本型		0
o	整数型
最大相同次数	整数型
相似度最高文本	文本型
对比距离	整数型
最近距离	整数型
距离	整数型

' 主要比对内容,位置和总数,返回最像的文字
' 我写了一些 不太优雅很臃肿
' 比如传入"张三"返回是"张三封" 而不是"张一三"
' 比如传入"张二三" 返回是"张一三"而不是"张三封"
最大相同次数 ＝ 0
最近距离 ＝ 0
计次循环首 (取数组成员数 (集_名字), i)
相同次数 ＝ 0
对比距离 ＝ 0
被对比文本 ＝ 集_名字 [i]
文本_逐字分割 (比对文字, 对比文本字)
计次循环首 (取数组成员数 (对比文本字), o)
距离 ＝ 寻找文本 (被对比文本, 对比文本字 [o], o, 假)
如果真 (距离 ≠ -1)
相同次数 ＝ 相同次数 ＋ 1
对比距离 ＝ 对比距离 ＋ 距离

计次循环尾 ()
' 调试输出 (被对比文本, 相同次数, 最大相同次数, 对比距离, 最近距离)
如果真 (相同次数 ＞ 最大相同次数 或 对比距离 ≥ 最近距离)
相似度最高文本 ＝ 被对比文本
如果真 (相同次数 ＞ 最大相同次数)
最大相同次数 ＝ 相同次数
如果真 (对比距离 ≥ 最近距离)
最近距离 ＝ 对比距离


计次循环尾 ()
返回 (相似度最高文本)

子程序名	返回值类型	公开	备 注
数组创建

加入成员 (集_名字, “张一三”)
加入成员 (集_名字, “张三封”)
加入成员 (集_名字, “王一鸣”)
加入成员 (集_名字, “武则天”)
加入成员 (集_名字, “孙悟空”)
加入成员 (集_名字, “孙架空”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文字数组, 字节集<br /> <br /> 数组创建 ()<br /> <br /> <br /> 调试输出 (文字相似度比对 (“孙空”))<br /> <br /> .子程序 文字相似度比对, 文本型, , '返回匹配度最高<br /> .参数 比对文字, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 相同次数, 整数型<br /> .局部变量 被对比文本, 文本型<br /> .局部变量 对比文本字, 文本型, , "0"<br /> .局部变量 o, 整数型<br /> .局部变量 最大相同次数, 整数型<br /> .局部变量 相似度最高文本, 文本型<br /> .局部变量 对比距离, 整数型<br /> .局部变量 最近距离, 整数型<br /> .局部变量 距离, 整数型<br /> <br /> ' 主要比对内容,位置和总数,返回最像的文字<br /> ' 我写了一些 不太优雅很臃肿<br /> ' 比如传入"张三"返回是"张三封" 而不是"张一三"<br /> ' 比如传入"张二三" 返回是"张一三"而不是"张三封"<br /> 最大相同次数 ＝ 0<br /> 最近距离 ＝ 0<br /> .计次循环首 (取数组成员数 (集_名字), i)<br />     相同次数 ＝ 0<br />     对比距离 ＝ 0<br />     被对比文本 ＝ 集_名字 <i><br />     文本_逐字分割 (比对文字, 对比文本字)<br /> <br />     .计次循环首 (取数组成员数 (对比文本字), o)<br />         距离 ＝ 寻找文本 (被对比文本, 对比文本字 [o], o, 假)<br />         .如果真 (距离 ≠ -1)<br />             相同次数 ＝ 相同次数 ＋ 1<br />             对比距离 ＝ 对比距离 ＋ 距离<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     ' 调试输出 (被对比文本, 相同次数, 最大相同次数, 对比距离, 最近距离)<br />     .如果真 (相同次数 ＞ 最大相同次数 或 对比距离 ≥ 最近距离)<br />         相似度最高文本 ＝ 被对比文本<br />         .如果真 (相同次数 ＞ 最大相同次数)<br />             最大相同次数 ＝ 相同次数<br />         .如果真结束<br />         .如果真 (对比距离 ≥ 最近距离)<br />             最近距离 ＝ 对比距离<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (相似度最高文本)<br /> <br /> .子程序 数组创建<br /> <br /> 加入成员 (集_名字, “张一三”)<br /> 加入成员 (集_名字, “张三封”)<br /> 加入成员 (集_名字, “王一鸣”)<br /> 加入成员 (集_名字, “武则天”)<br /> 加入成员 (集_名字, “孙悟空”)<br /> 加入成员 (集_名字, “孙架空”)

shelkio

https://bbs.125.la/forum.php?mod=viewthread&tid=13887705

clf2275

shelkio 发表于 2024-8-14 13:00
https://bbs.125.la/forum.php?mod=viewthread&tid=13887705

.版本 2

输出调试文本 (取文本相似度 (“张三”, “张一三”))


输出调试文本 (取文本相似度 (“张三”, “张三一”))

得到的值一样,我还需要位置判断~~

jin1oo1

.版本 2

.子程序 文本比较W, 整数型, 公开
.参数 参数_文本1, 字节集
.参数 参数_文本2, 字节集
.参数 参数_是否不区分大小写, 逻辑型, 可空, 默认为假

.如果 (参数_是否不区分大小写)
    返回 (lstrcmpi (参数_文本1, 参数_文本2))
.否则
    返回 (lstrcmp (参数_文本1, 参数_文本2))