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(Visual Basic)编程中,处理字符串是常见的任务之一,其中包括将一个长字符串拆分成多个子字符串。这个过程通常称为“字符串拆分”或“分隔字符串”。在这个主题中,我们将深入探讨VB中如何实现这一操作,以及...
在VB6.0编程环境中,字节数组和字符串之间的转换是常见的操作,尤其是在处理二进制数据和文本数据之间转换的场景。本教程将详细解释如何在VB6.0中进行这两种数据类型的转换,并通过实际示例进行演示。 1. 字符串转...
在本案例中,我们讨论的是如何通过VB调用由VC++编写的DLL(动态链接库)来实现两个字符串的连接,即相加操作。DLL是一种可重用的代码库,它允许多个应用程序共享同一段代码,从而减少内存占用和提高执行效率。 首先...
VB6.0语言,英文字符串转ASCLL编码十六进制字符串源码,做成函数,可以直接调用!!两种方式
为了从一串字符中提取数字,我们可以结合使用这两个函数,配合正则表达式或者自定义循环逻辑。 1. **正则表达式**: VB6.0虽然不内建正则表达式支持,但可以通过引入Microsoft VBScript Regular Expressions 5.5库...
### VB中对字符串的处理及其扩展 在Visual Basic(简称VB)编程环境中,字符串操作是一项基本且重要的功能。本文将详细介绍VB中对于字符串处理的基本方法及其一些实用的扩展技巧。 #### 1. 基本字符串操作 ##### ...
在VB(Visual Basic)编程语言中,字符串处理是日常开发工作中的重要组成部分。字符串是由一个或多个字符组成的序列,它们可以表示文本数据。VB提供了一系列的内置函数来帮助程序员进行字符串的操作和处理,使得对...
在VB6(Visual Basic 6)环境中,字符串处理是一项常见的任务,而“vb6字符串替换工具”正是这样一个专为处理字符串替换问题而设计的应用程序。它提供了用户友好的界面和功能,使得程序员或普通用户能够方便地在文本...
在VB6.0编程环境中,处理中文字符串时,我们经常会遇到一个问题:如何准确地计算一个包含中文字符的字符串的长度。由于中文字符占用的字节数不同于英文字符(每个中文字符通常占用2个字节,而英文字符占用1个字节)...
虽然VB6不直接支持正则表达式,但VB.NET(Visual Basic .NET)版本中提供了`System.Text.RegularExpressions`命名空间,可以进行复杂的字符串匹配和替换。例如,删除所有非字母数字的字符: ```vbnet Imports ...
本话题主要探讨如何使用易语言创建动态链接库(DLL)并与VB6(Visual Basic 6)进行字符串交互。易语言是一种简洁易学的中文编程语言,而VB6则是微软的经典编程环境,两者结合可以方便地实现跨语言项目协作。 首先...
使用`&`或`&=`运算符可以连接两个或更多字符串,例如`str1 = "Hello" & " " & "World"`将得到"Hello World"。 4. **字符串复制**: `Mid()`函数用于从字符串中提取子串,如`Mid("Example", 2, 5)`将返回"ample"。...
`ExecuteLine`函数接受两个参数:一个是包含要执行的VB代码的字符串`sCode`,另一个是可选的布尔值`fCheckOnly`,用于检查代码是否可以执行而不会立即执行。 以下是对这段代码的详细解释: 1. `ExecuteLine`函数:...
vb获得字符串中指定后几位字符,这里使用vb Right函数一行代码即可搞定,运行代码如示例图所示,在最左侧文字框中输入任意字符串,程序预设的是获取最右侧的2位字符,单击按钮后即可获取到最左侧字符串的最右边2位...
加密解密字符串.exe huanyin下载
`StrComp`函数用于比较两个字符串,返回值可以是0(表示两个字符串相等)、-1(表示string1小于string2)或1(表示string1大于string2)。它支持文本比较和二进制比较两种模式,可以通过可选的`compare`参数进行选择...
' 这将取"123abc"的前两个字符,即"12" ' 使用Right函数 Dim rightPart As String = Right(strInput, rightLenth) ' 这将取"123abc"的后三个字符,即"abc" ' 将结果赋值回对应的HMI变量 ' ... ``` 然后,我们需要...
vb asp中根据符号截取字符串方法 split (",")
1. 连接:使用+或&运算符可以连接两个字符串,例如:"Hello " & "World" 结果为 "Hello World"。 2. 截取:Substring方法可以截取字符串的一部分,例如,s.Substring(startIndex, length)。 3. 替换:Replace方法...