Function LCS(ByVal A As String, ByVal B As String) As String
If Len(A) * Len(B) = 0 Then LCS = "": Exit Function
Dim la As Integer, lb As Integer, achar() As String, bchar() As String, c() As Integer, i As Integer, j As Integer, max As Integer
la = Len(A)
lb = Len(B)
ReDim achar(la - 1)
ReDim bchar(lb - 1)
ReDim c(la - 1)
For i = 1 To la
achar(i - 1) = Mid(A, i, 1)
Next
For i = 1 To lb
bchar(i - 1) = Mid(B, i, 1)
Next
max = 0
For i = 0 To lb - 1
For j = la - 1 To 0 Step -1
If bchar(i) = achar(j) Then
If i * j = 0 Then
c(j) = 1
Else
c(j) = c(j - 1) + 1
End If
Else
c(j) = 0
End If
If c(j) > max Then max = c(j): LCS = Mid(A, j + 2 - max, max)
Next
Next
If max = 0 Then LCS = ""
End Function
Private Sub Command1_Click()
MsgBox LCS("如果你想推荐本文到CSDN 技术中心,请选择下列的文章分类之一。文章保存时将自动提交到CSDN技术中心,通过审核后本文将出现在您的CSDN 技术中心的专栏中。", "如果您不希望本文被提交到CSDN技术中心,请选择""不发表到CSDN技术中心""")
End Sub
返回 “提交到CSDN技术中心,”
分享到:
相关推荐
VB 6.0 在字符串中用一子串替换另一子串,采用VB中内置的Replace函数来实现,类似这种的替换字符串方法,在平时使用十分广泛,在WEB编程的ASP/PHP/ASP.NET中,同样使用广泛。本示例中,主要是替换一个字符串中的指定...
VB调用VC写的DLL 实现两个字符串相加成一个字符串,业余程序员,不好的地方欢迎指出!
VB6.0语言,英文字符串转ASCLL编码十六进制字符串源码,做成函数,可以直接调用!!两种方式
vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
vb获得字符串中指定后几位字符,这里使用vb Right函数一行代码即可搞定,运行代码如示例图所示,在最左侧文字框中输入任意字符串,程序预设的是获取最右侧的2位字符,单击按钮后即可获取到最左侧字符串的最右边2位...
加密解密字符串.exe huanyin下载
给需要的朋友吧!这也是应一个朋友的要求写的。
vb6字符串替换工具 VB源码 vb6 字符串 替换 工具
vb6 collection dictionary与json字符串间转换
在vb程序将字符串转为vb代码执行,非原创,收集自网络
在VB中实现将字符串转换成变量名,提供了两种。主要使用Contrl和callbyname ……
VB 编写删除子串过程 VB 编写删除子串过程 VB 编写删除子串过程
vb asp中根据符号截取字符串方法 split (",")
VB连接SQL SERVER连接字符串,里面有几种写法,本人亲自测试过,非常好用。
VB中对字符串的处理及其扩展VB技术很实用的源码本人看了很多网上有关的源码,基本上都是一样的,不过功能就不是很强大 有感与此,本人特写了一个功能强大点的欢迎大家使用
1,strs.zip 实现字节数组, 同c中的字符数组一样好用(6KB) 2,modules.zip 字符串处理的12个例子(13KB) 3,strings.zip 字符串处理函数(4KB) 4,stringfuncs.zip 字符串处理函数(9KB) 5,search&...
vb 字符串函数大全 vb 字符串函数大全 vb 字符串函数大全
字符串处理函数的汇总资料,供初学者参考。
实现易语言DLL与vb6进行字符串交互,
VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换