.版本 2[i]
' 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)
' 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)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 文本_取相似度A | 双精度小数型 | 使用动态规划 (By 小风明SS) | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| Source | 文本型 | Targe | 文本型 | caseSensitive | 逻辑型 | 区分大小写，默认区分 | compareWithSource | 逻辑型 | 是否用源文本进行比较，默认为真 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| ls | ||||||
| lt | ||||||
| a | 0 | |||||
| S | 字节集 | |||||
| T | 字节集 | |||||
| i | ||||||
| j | ||||||
' 原理就是取两个文本的最长公共子序列长度，然后除以源文本长度，再乘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] ＋ 1a [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 | ||||||
' 原理就是取两个文本的最长公共子序列长度，然后除以源文本长度，再乘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] ＋ 1a [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)
