Question

我是编程的新手，想问我是否可以将下面的字符串分开。我使用的是Visual Basic。基本上我下面有两个字符串：

字符串1：gOldStr = TEDDYBEARBLACKCAT

字符串2 = gNewStr = BLACKCATWHITECAT

我想通过查看String 1

中的确切值来分隔字符串2

所以我有String2是字符串1 = BLACKCAT

的一部分

String 2是new = WHITECAT

我试过下面的脚本，但它不能一直运行。可以建议我更好的逻辑吗？ Thanks2

For i=1 to Len(gOldStr)
        TempStr = Left$(gNewStr,i) 
        Ctr1 = InStr(gOldStr, TempStr)
        gTemporary = Mid$(gOldStr,Ctr1)

        gTemporary = Trim(gTemporary)

        Ctr2 = StrComp(gOldStr, gTemporary)
        If Ctr2=1 Then
                gTemporary2 = Replace(gNewStr,gTemporary,"")
                Exit For
        End If
Next i

Answer 1

如果公共部分总是在第一部分的末尾和第二部分的开头，你可以从最后看，如下：

Dim strMatchedWord As String
For i=1 to Len(gOldStr)
    If i>Len(gNewStr) Then Exit For  'We need this to avoid an error
    Test1 = Right$(gOldStr, i)
    Test2 = Left$(gNewStr, i)

    If Test1 = Test2 Then
        strMatchedWord = Test1     'Store your match is Test1
    End If
Next
Debug.Print strMatchedWord 'Once the loop finishes it contains the longest match

我修改了代码，以便循环在完成整个字符串之前不会退出。通过这种方式，它将在循环结束时为您提供最长的匹配。

将新字符串与新字符串

1 个答案: