两段文本比较差异，返回一个相似度数值

3742922

比如：
文字A:      青青河边草
文字B：    青青何边草

相似度   0.8



再比如：
文字A:      青青河边草
文字B：    青青何边早

相似度   0.6




求老师们 给个解决方案。。  感谢

cunanhai

https://bbs.ijingyi.com/forum.ph ... 8%E4%BC%BC%E5%BA%A6

baitso

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
a	文本型
b	文本型
c	文本型
aa	文本型		0
bb	文本型		0
cc	文本型		0
la	整数型
lb	整数型
lc	整数型
fit	整数型
i	整数型
fit2	整数型

a ＝ “青青河边草”
b ＝ “青青何边草”
c ＝ “青青何边早”
la ＝ 文本_逐字分割_汇编 (a, aa)
lb ＝ 文本_逐字分割_汇编 (b, bb)
lc ＝ 文本_逐字分割_汇编 (c, cc)
fit ＝ 0
计次循环首 (la, i)
如果真 (lb ≥ i)
如果真 (aa [i] ＝ bb [i])
fit ＝ fit ＋ 1


计次循环尾 ()
调试输出 (“相似度:”, fit ÷ la)
fit2 ＝ 0
计次循环首 (la, i)
如果真 (lc ≥ i)
如果真 (aa [i] ＝ cc [i])
fit2 ＝ fit2 ＋ 1


计次循环尾 ()
调试输出 (“相似度:”, fit2 ÷ la)
返回 (0)  ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型<br /> .局部变量 c, 文本型<br /> .局部变量 aa, 文本型, , "0"<br /> .局部变量 bb, 文本型, , "0"<br /> .局部变量 cc, 文本型, , "0"<br /> .局部变量 la, 整数型<br /> .局部变量 lb, 整数型<br /> .局部变量 lc, 整数型<br /> .局部变量 fit, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 fit2, 整数型<br /> <br /> a ＝ “青青河边草”<br /> b ＝ “青青何边草”<br /> c ＝ “青青何边早”<br /> la ＝ 文本_逐字分割_汇编 (a, aa)<br /> lb ＝ 文本_逐字分割_汇编 (b, bb)<br /> lc ＝ 文本_逐字分割_汇编 (c, cc)<br /> fit ＝ 0<br /> .计次循环首 (la, i)<br />     .如果真 (lb ≥ i)<br />         .如果真 (aa <i> ＝ bb <i>)<br />             fit ＝ fit ＋ 1<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (“相似度:”, fit ÷ la)<br /> <br /> fit2 ＝ 0<br /> .计次循环首 (la, i)<br />     .如果真 (lc ≥ i)<br />         .如果真 (aa <i> ＝ cc <i>)<br />             fit2 ＝ fit2 ＋ 1<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (“相似度:”, fit2 ÷ la)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

补充内容 (2025-12-1 10:10):
[10:09:45] * “相似度:” | 0.800000
[10:09:45] * “相似度:” | 0.600000

真冬

  

调试输出 (子程序文字相似度 (“青青河边草”, “青青何边早”))

子程序名	返回值类型	公开	备 注
子程序文字相似度	小数型
参数名	类 型	参考	可空	数组	备 注
文字A	文本型
文字b	文本型

变量名	类 型	静态	数组	备 注
A	字节集
B	字节集
i1	整数型
i2	整数型
ACD	整数型
BCD	整数型

A ＝ 到字节集 (文字A)
B ＝ 到字节集 (文字b)
ACD ＝ 取字节集长度 (A)
BCD ＝ 取字节集长度 (B)
判断 (ACD ＞ BCD)
B ＝ B ＋ 取空白字节集 (ACD － BCD)
判断 (BCD ＞ ACD)
A ＝ A ＋ 取空白字节集 (BCD － ACD)



计次循环首 (取字节集长度 (A), i1)
如果真 (A [i1] ＝ B [i1])
i2 ＝ i2 ＋ 1

计次循环尾 ()
返回 (i2 ÷ 取字节集长度 (A))

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (子程序文字相似度 (“青青河边草”, “青青何边早”))<br /> <br /> .子程序 子程序文字相似度, 小数型<br /> .参数 文字A, 文本型<br /> .参数 文字b, 文本型<br /> .局部变量 A, 字节集<br /> .局部变量 B, 字节集<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 ACD, 整数型<br /> .局部变量 BCD, 整数型<br /> <br /> A ＝ 到字节集 (文字A)<br /> B ＝ 到字节集 (文字b)<br /> ACD ＝ 取字节集长度 (A)<br /> BCD ＝ 取字节集长度 (B)<br /> .判断开始 (ACD ＞ BCD)<br />     B ＝ B ＋ 取空白字节集 (ACD － BCD)<br /> .判断 (BCD ＞ ACD)<br />     A ＝ A ＋ 取空白字节集 (BCD － ACD)<br /> .默认<br /> <br /> .判断结束<br /> <br /> .计次循环首 (取字节集长度 (A), i1)<br />     .如果真 (A [i1] ＝ B [i1])<br />         i2 ＝ i2 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (i2 ÷ 取字节集长度 (A))

补充内容 (2025-12-1 10:32):
改了一下bug在楼下https://bbs.ijingyi.com/forum.ph ... 21&pid=30603623

真冬

  

子程序名	返回值类型	公开	备 注
子程序文字相似度	小数型
参数名	类 型	参考	可空	数组	备 注
文字A	文本型
文字b	文本型

变量名	类 型	静态	数组	备 注
A	字节集
B	字节集
i1	整数型
i2	整数型
ACD	整数型
BCD	整数型

A ＝ 到字节集 (文字A)
B ＝ 到字节集 (文字b)
ACD ＝ 取字节集长度 (A)
BCD ＝ 取字节集长度 (B)
判断 (ACD ＞ BCD)
B ＝ B ＋ 取空白字节集 (ACD － BCD)
BCD ＝ ACD
判断 (BCD ＞ ACD)
A ＝ A ＋ 取空白字节集 (BCD － ACD)
ACD ＝ BCD



计次循环首 (ACD, i1)
如果真 (A [i1] ＝ B [i1])
i2 ＝ i2 ＋ 1

计次循环尾 ()
返回 (i2 ÷ ACD)

.版本 2<br /> <br /> .子程序 子程序文字相似度, 小数型<br /> .参数 文字A, 文本型<br /> .参数 文字b, 文本型<br /> .局部变量 A, 字节集<br /> .局部变量 B, 字节集<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 ACD, 整数型<br /> .局部变量 BCD, 整数型<br /> <br /> A ＝ 到字节集 (文字A)<br /> B ＝ 到字节集 (文字b)<br /> ACD ＝ 取字节集长度 (A)<br /> BCD ＝ 取字节集长度 (B)<br /> .判断开始 (ACD ＞ BCD)<br />     B ＝ B ＋ 取空白字节集 (ACD － BCD)<br />     BCD ＝ ACD<br /> .判断 (BCD ＞ ACD)<br />     A ＝ A ＋ 取空白字节集 (BCD － ACD)<br />     ACD ＝ BCD<br /> .默认<br /> <br /> .判断结束<br /> <br /> .计次循环首 (ACD, i1)<br />     .如果真 (A [i1] ＝ B [i1])<br />         i2 ＝ i2 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (i2 ÷ ACD)

Suky

青青河边草
河边草
这样的两段文字的话，按照你想要的相似度的话又该是什么结果呢、。？
长度不一致的可能性，也影响相似度计算方式的

3742922

感谢楼上几位老师回复
是我没说清  有些是不按顺序的，，，
比如
青青河边草
河边草
这种相似度  也得算0.6。。。