文本_取相似度A 和 文本_取相似度W

小风明SS

  

.版本 2[i]

子程序名	返回值类型	公开	备 注
文本_取相似度A	双精度小数型		使用动态规划 (By 小风明SS)
参数名	类 型	参考	可空	数组	备 注
Source	文本型
Targe	文本型
caseSensitive	逻辑型				区分大小写，默认区分
compareWithSource	逻辑型				是否用源文本进行比较，默认为真

变量名	类 型	静态	数组	备 注
ls
lt
a			0
S	字节集
T	字节集
i
j

' By 小风明SS
' 原理就是取两个文本的最长公共子序列长度，然后除以源文本长度，再乘100
如果真 (caseSensitive)
Source ＝ 到小写 (Source)
Targe ＝ 到小写 (Targe)
' S ＝ { 0 } ＋ S  'ANSI情况下
' T ＝ { 0 } ＋ T  'ANSI情况下
S ＝ 编码_Ansi到Unicode (Source, )  ' Unicode情况下
T ＝ 编码_Ansi到Unicode (Targe, )  ' Unicode情况下
ls ＝ 文本_取长度W (S)
lt ＝ 文本_取长度W (T)
重定义数组 (a, 假, ls, lt)
变量循环首 (2, ls, 1, i)
变量循环首 (2, lt, 1, j)
如果 (S [i] ＝ T [j])
a [i] [j] ＝ a [i － 1] [j － 1] ＋ 1
a [i] [j] ＝ 选择 (a [i － 1] [j] ＞ a [i] [j － 1], a [i － 1] [j], a [i] [j － 1])

变量循环尾 ()
变量循环尾 ()
返回 (a [ls] [lt] ÷ 选择 (compareWithSource, ls, lt) × 100)

子程序名	返回值类型	公开	备 注
文本_取相似度W	双精度小数型		使用动态规划 (By 小风明SS)
参数名	类 型	参考	可空	数组	备 注
Source	字节集
Targe	字节集
compareWithSource	逻辑型				是否用源文本进行比较，默认为真

变量名	类 型	静态	数组	备 注
ls
lt
a			0
i
j

' By 小风明SS
' 原理就是取两个文本的最长公共子序列长度，然后除以源文本长度，再乘100
ls ＝ 取字节集长度 (Source) － 2  ' 去掉末尾0
lt ＝ 取字节集长度 (Targe) － 2
重定义数组 (a, 假, ls, lt)
变量循环首 (2, ls, 1, i)
变量循环首 (2, lt, 1, j)
如果 (Source [i] ＝ Targe [j])
a [i] [j] ＝ a [i － 1] [j － 1] ＋ 1
a [i] [j] ＝ 选择 (a [i － 1] [j] ＞ a [i] [j － 1], a [i － 1] [j], a [i] [j － 1])

变量循环尾 ()
变量循环尾 ()
返回 (a [ls] [lt] ÷ 选择 (compareWithSource, ls, lt) × 100)

.版本 2<i><br /> <br /> .子程序 文本_取相似度A, 双精度小数型, 公开, 使用动态规划 (By 小风明SS)<br /> .参数 Source, 文本型<br /> .参数 Targe, 文本型<br /> .参数 caseSensitive, 逻辑型, 可空, 区分大小写，默认区分<br /> .参数 compareWithSource, 逻辑型, 可空, 是否用源文本进行比较，默认为真<br /> .局部变量 ls<br /> .局部变量 lt<br /> .局部变量 a, , , "0"<br /> .局部变量 S, 字节集<br /> .局部变量 T, 字节集<br /> .局部变量 i<br /> .局部变量 j<br /> <br /> <br /> ' By 小风明SS<br /> ' 原理就是取两个文本的最长公共子序列长度，然后除以源文本长度，再乘100<br /> .如果真 (caseSensitive)<br />     Source ＝ 到小写 (Source)<br />     Targe ＝ 到小写 (Targe)<br /> .如果真结束<br /> ' S ＝ { 0 } ＋ S  'ANSI情况下<br /> ' T ＝ { 0 } ＋ T  'ANSI情况下<br /> S ＝ 编码_Ansi到Unicode (Source, )  ' Unicode情况下<br /> T ＝ 编码_Ansi到Unicode (Targe, )  ' Unicode情况下<br /> ls ＝ 文本_取长度W (S)<br /> lt ＝ 文本_取长度W (T)<br /> 重定义数组 (a, 假, ls, lt)<br /> .变量循环首 (2, ls, 1, i)<br />     .变量循环首 (2, lt, 1, j)<br />         .如果 (S <i> ＝ T [j])<br />             a <i> [j] ＝ a [i － 1] [j － 1] ＋ 1<br />         .否则<br />             a <i> [j] ＝ 选择 (a [i － 1] [j] ＞ a <i> [j － 1], a [i － 1] [j], a <i> [j － 1])<br />         .如果结束<br /> <br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> 返回 (a [ls] [lt] ÷ 选择 (compareWithSource, ls, lt) × 100)<br /> <br /> <br /> .子程序 文本_取相似度W, 双精度小数型, 公开, 使用动态规划 (By 小风明SS)<br /> .参数 Source, 字节集<br /> .参数 Targe, 字节集<br /> .参数 compareWithSource, 逻辑型, 可空, 是否用源文本进行比较，默认为真<br /> .局部变量 ls<br /> .局部变量 lt<br /> .局部变量 a, , , "0"<br /> .局部变量 i<br /> .局部变量 j<br /> <br /> <br /> ' By 小风明SS<br /> ' 原理就是取两个文本的最长公共子序列长度，然后除以源文本长度，再乘100<br /> ls ＝ 取字节集长度 (Source) － 2  ' 去掉末尾0<br /> lt ＝ 取字节集长度 (Targe) － 2<br /> 重定义数组 (a, 假, ls, lt)<br /> .变量循环首 (2, ls, 1, i)<br />     .变量循环首 (2, lt, 1, j)<br />         .如果 (Source <i> ＝ Targe [j])<br />             a <i> [j] ＝ a [i － 1] [j － 1] ＋ 1<br />         .否则<br />             a <i> [j] ＝ 选择 (a [i － 1] [j] ＞ a <i> [j － 1], a [i － 1] [j], a <i> [j － 1])<br />         .如果结束<br /> <br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> 返回 (a [ls] [lt] ÷ 选择 (compareWithSource, ls, lt) × 100)

补一下W版的

new168

报错啊

new168

报错。。。。。

147888123

为什么我跑步起来，直接报错

yqdyqzdstrm

新技能已get√

hnzmd1111

66666666666666666666666666

q3499

新技能已get√

ghost12

新技能已get√

cctvmtv

支持开源~！感谢分享

网海拾贝

谢谢。。。。。。。。。。。。。