求一个取最长连续匹配字符数及该匹配位置的文本比较算法

wang2lang

求一个取最长连续匹配字符数及该匹配位置的文本比较算法(易源码）

例如：A长B短。A＝“0123456789"；B＝”39123567“
B与A进行比较，最长连续匹配字符是”123“(567亦符合，只取123即可）,其长度是3,
起始位于A的第二位，位于B的第三位。

谢谢

Marvin

是要这样的吗
1.e (3.84 KB, 下载次数: 1)

4 小时前 上传

点击文件名下载附件

神女软件定制

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
A	文本型
B	文本型

A ＝ “0123456789”
B ＝ “39123567”
调试输出 (取最长连 (A))
调试输出 (取最长连 (B))
调试输出 (取最长连 (“1673245673341”))

子程序名	返回值类型	公开	备 注
取最长连	整数型
参数名	类 型	参考	可空	数组	备 注
s	文本型

变量名	类 型	静态	数组	备 注
最大连续	整数型
最大连续位置	整数型
i	整数型
当前连续	整数型

最大连续 ＝ 1
当前连续 ＝ 1
变量循环首 (2, 取文本长度 (s), 1, i)
如果 (取代码 (s, i) ＝ 取代码 (s, i － 1) ＋ 1)  ' 这是连续字符
当前连续 ＝ 当前连续 ＋ 1
如果真 (当前连续 ＞ 最大连续)
最大连续 ＝ 当前连续
最大连续位置 ＝ i － 最大连续

当前连续 ＝ 1

变量循环尾 ()
调试输出 (最大连续, 取文本中间 (s, 最大连续位置 ＋ 1, 最大连续))
返回 (最大连续)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 A, 文本型<br /> .局部变量 B, 文本型<br /> <br /> A ＝ “0123456789”<br /> B ＝ “39123567”<br /> <br /> 调试输出 (取最长连 (A))<br /> 调试输出 (取最长连 (B))<br /> 调试输出 (取最长连 (“1673245673341”))<br /> <br /> .子程序 取最长连, 整数型<br /> .参数 s, 文本型<br /> .局部变量 最大连续, 整数型<br /> .局部变量 最大连续位置, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 当前连续, 整数型<br /> <br /> 最大连续 ＝ 1<br /> 当前连续 ＝ 1<br /> .变量循环首 (2, 取文本长度 (s), 1, i)<br />     .如果 (取代码 (s, i) ＝ 取代码 (s, i － 1) ＋ 1)  ' 这是连续字符<br />         当前连续 ＝ 当前连续 ＋ 1<br />         .如果真 (当前连续 ＞ 最大连续)<br />             最大连续 ＝ 当前连续<br />             最大连续位置 ＝ i － 最大连续<br />         .如果真结束<br /> <br />     .否则<br />         当前连续 ＝ 1<br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 调试输出 (最大连续, 取文本中间 (s, 最大连续位置 ＋ 1, 最大连续))<br /> 返回 (最大连续)

神女软件定制

哦，刚刚理解错了，这个才是对的

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
A	文本型
B	文本型

A ＝ “0123456789”
B ＝ “39123567”
最长匹配 (A, B)
最长匹配 (“02314678456”, “dsfa644567”)
最长匹配 (“1”, “1”)

子程序名	返回值类型	公开	备 注
最长匹配
参数名	类 型	参考	可空	数组	备 注
s1	文本型
s2	文本型

变量名	类 型	静态	数组	备 注
测试位置	整数型
临时长	整数型
最长	整数型
最长位置	整数型

计次循环首 (取文本长度 (s1), 测试位置)
计次循环首 (取文本长度 (s1) － 测试位置 ＋ 1, 临时长)
如果真 (临时长 ＞ 最长 且 寻找文本 (s2, 取文本中间 (s1, 测试位置, 临时长), , 假) ≠ -1)
最长 ＝ 临时长
最长位置 ＝ 测试位置

计次循环尾 ()
计次循环尾 ()
调试输出 (最长位置, 最长, 取文本中间 (s1, 最长位置, 最长))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 A, 文本型<br /> .局部变量 B, 文本型<br /> <br /> A ＝ “0123456789”<br /> B ＝ “39123567”<br /> <br /> 最长匹配 (A, B)<br /> 最长匹配 (“02314678456”, “dsfa644567”)<br /> 最长匹配 (“1”, “1”)<br /> <br /> .子程序 最长匹配<br /> .参数 s1, 文本型<br /> .参数 s2, 文本型<br /> .局部变量 测试位置, 整数型<br /> .局部变量 临时长, 整数型<br /> .局部变量 最长, 整数型<br /> .局部变量 最长位置, 整数型<br /> <br /> .计次循环首 (取文本长度 (s1), 测试位置)<br />     .计次循环首 (取文本长度 (s1) － 测试位置 ＋ 1, 临时长)<br />         .如果真 (临时长 ＞ 最长 且 寻找文本 (s2, 取文本中间 (s1, 测试位置, 临时长), , 假) ≠ -1)<br />             最长 ＝ 临时长<br />             最长位置 ＝ 测试位置<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (最长位置, 最长, 取文本中间 (s1, 最长位置, 最长))

z573277679

  

数据类型名	公开	备 注
匹配结果信息
成员名	类 型	传址	数组	备 注
匹配文本	文本型
匹配长度	整数型
位置A	整数型
位置B	整数型

子程序名	返回值类型	公开	备 注
取最长连续匹配子串	匹配结果信息
参数名	类 型	参考	可空	数组	备 注
参_源文本A	文本型
参_源文本B	文本型

变量名	类 型	静态	数组	备 注
局_字节集A	字节集
局_字节集B	字节集
局_长度A	整数型
局_长度B	整数型
i	整数型
j	整数型
k	整数型
局_当前匹配长	整数型
局_最大长度	整数型
局_起始A	整数型
局_起始B	整数型
局_结果	匹配结果信息

局_字节集A ＝ 到字节集 (参_源文本A)
局_字节集B ＝ 到字节集 (参_源文本B)
局_长度A ＝ 取字节集长度 (局_字节集A)
局_长度B ＝ 取字节集长度 (局_字节集B)
如果真 (局_长度A ＝ 0 或 局_长度B ＝ 0)
返回 (局_结果)
局_最大长度 ＝ 0
局_起始A ＝ 0
局_起始B ＝ 0
变量循环首 (1, 局_长度A, 1, i)
如果真 (局_长度A － i ＋ 1 ≤ 局_最大长度)
跳出循环 ()
变量循环首 (1, 局_长度B, 1, j)
如果真 (局_长度B － j ＋ 1 ≤ 局_最大长度)
跳出循环 ()
如果真 (局_字节集A [i] ＝ 局_字节集B [j])
局_当前匹配长 ＝ 1
k ＝ 1
判断循环首 (i ＋ k ≤ 局_长度A 且 j ＋ k ≤ 局_长度B)
如果真 (局_字节集A [i ＋ k] ≠ 局_字节集B [j ＋ k])
跳出循环 ()
局_当前匹配长 ＝ 局_当前匹配长 ＋ 1
k ＝ k ＋ 1
判断循环尾 ()
如果真 (局_当前匹配长 ＞ 局_最大长度)
局_最大长度 ＝ 局_当前匹配长
局_起始A ＝ i
局_起始B ＝ j


变量循环尾 ()
变量循环尾 ()
如果真 (局_最大长度 ＞ 0)
局_结果.匹配长度 ＝ 局_最大长度
局_结果.位置A ＝ 局_起始A
局_结果.位置B ＝ 局_起始B
局_结果.匹配文本 ＝ 到文本 (取字节集中间 (局_字节集A, 局_起始A, 局_最大长度))
返回 (局_结果)

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

变量名	类 型	静态	数组	备 注
局_文本A	文本型
局_文本B	文本型
局_结果	匹配结果信息

局_文本A ＝ “0123456789”
局_文本B ＝ “39123567”
局_结果 ＝ 取最长连续匹配子串 (局_文本A, 局_文本B)
调试输出 (“匹配文本: ” ＋ 局_结果.匹配文本)
调试输出 (“匹配长度: ” ＋ 到文本 (局_结果.匹配长度))
调试输出 (“位于A起始: ” ＋ 到文本 (局_结果.位置A))
调试输出 (“位于B起始: ” ＋ 到文本 (局_结果.位置B))

.数据类型 匹配结果信息<br />     .成员 匹配文本, 文本型<br />     .成员 匹配长度, 整数型<br />     .成员 位置A, 整数型<br />     .成员 位置B, 整数型<br /> <br /> .子程序 取最长连续匹配子串, 匹配结果信息, 公开<br /> .参数 参_源文本A, 文本型<br /> .参数 参_源文本B, 文本型<br /> .局部变量 局_字节集A, 字节集<br /> .局部变量 局_字节集B, 字节集<br /> .局部变量 局_长度A, 整数型<br /> .局部变量 局_长度B, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 局_当前匹配长, 整数型<br /> .局部变量 局_最大长度, 整数型<br /> .局部变量 局_起始A, 整数型<br /> .局部变量 局_起始B, 整数型<br /> .局部变量 局_结果, 匹配结果信息<br /> <br /> 局_字节集A ＝ 到字节集 (参_源文本A)<br /> 局_字节集B ＝ 到字节集 (参_源文本B)<br /> 局_长度A ＝ 取字节集长度 (局_字节集A)<br /> 局_长度B ＝ 取字节集长度 (局_字节集B)<br /> .如果真 (局_长度A ＝ 0 或 局_长度B ＝ 0)<br />     返回 (局_结果)<br /> .如果真结束<br /> 局_最大长度 ＝ 0<br /> 局_起始A ＝ 0<br /> 局_起始B ＝ 0<br /> .变量循环首 (1, 局_长度A, 1, i)<br />     .如果真 (局_长度A － i ＋ 1 ≤ 局_最大长度)<br />         跳出循环 ()<br />     .如果真结束<br />     .变量循环首 (1, 局_长度B, 1, j)<br />         .如果真 (局_长度B － j ＋ 1 ≤ 局_最大长度)<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (局_字节集A <i> ＝ 局_字节集B [j])<br />             局_当前匹配长 ＝ 1<br />             k ＝ 1<br />             .判断循环首 (i ＋ k ≤ 局_长度A 且 j ＋ k ≤ 局_长度B)<br />                 .如果真 (局_字节集A [i ＋ k] ≠ 局_字节集B [j ＋ k])<br />                     跳出循环 ()<br />                 .如果真结束<br />                 局_当前匹配长 ＝ 局_当前匹配长 ＋ 1<br />                 k ＝ k ＋ 1<br />             .判断循环尾 ()<br />             .如果真 (局_当前匹配长 ＞ 局_最大长度)<br />                 局_最大长度 ＝ 局_当前匹配长<br />                 局_起始A ＝ i<br />                 局_起始B ＝ j<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> .如果真 (局_最大长度 ＞ 0)<br />     局_结果.匹配长度 ＝ 局_最大长度<br />     局_结果.位置A ＝ 局_起始A<br />     局_结果.位置B ＝ 局_起始B<br />     局_结果.匹配文本 ＝ 到文本 (取字节集中间 (局_字节集A, 局_起始A, 局_最大长度))<br /> .如果真结束<br /> 返回 (局_结果)<br /> <br /> .子程序 示例<br /> .局部变量 局_文本A, 文本型<br /> .局部变量 局_文本B, 文本型<br /> .局部变量 局_结果, 匹配结果信息<br /> <br /> 局_文本A ＝ “0123456789”<br /> 局_文本B ＝ “39123567”<br /> 局_结果 ＝ 取最长连续匹配子串 (局_文本A, 局_文本B)<br /> 调试输出 (“匹配文本: ” ＋ 局_结果.匹配文本)<br /> 调试输出 (“匹配长度: ” ＋ 到文本 (局_结果.匹配长度))<br /> 调试输出 (“位于A起始: ” ＋ 到文本 (局_结果.位置A))<br /> 调试输出 (“位于B起始: ” ＋ 到文本 (局_结果.位置B))

补充内容 (2026-8-16 11:44):
粘贴代码段会导致语法出错，还是下载下面的示例吧

z573277679

示例.e (5.35 KB, 下载次数: 1)

3 小时前 上传

点击文件名下载附件