당신은 단지 최소가 있는지에 관해서 참 또는 거짓을 취득하고자한다면 일치하는 4 개의 문자 중에서 다음과 같이 할 수 있습니다.
Public Function StringsHaveMin4CharsInCommon(ByVal StringA As String, ByVal StringB As String, ByVal StringC As String) As Boolean
Dim bReturn As Boolean
Dim iCounter As Integer
For i As Integer = 0 To StringA.Length - 1
If StringA.SubString(i, 1) = StringB.SubString(i, 1) And StringB.SubString(i, 1) = StringC.SubString(i, 1) Then iCounter += 1
If iCounter = 4 Then
bReturn = True
Exit For
End If
Next i
Return bReturn
End Function
일치하는 배열 인덱스를 검색하려면 동일한 프로 시저에 논리를 추가하여 일치하는 각 인덱스를 Integer 배열에 추가하고 함수에서 해당 배열을 다음과 같이 반환해야합니다.
Public Function GetCommonIndices(ByVal StringA As String, ByVal StringB As String, ByVal StringC As String) As Integer()
Dim iReturn() As Integer
Dim iCounter As Integer = -1
For i As Integer = 0 To StringA.Length - 1
If StringA.SubString(i, 1) = StringB.SubString(i, 1) And StringB.SubString(i, 1) = StringC.SubString(i, 1) Then
iCounter += 1
ReDim Preserve iReturn(iCounter)
iReturn(iCounter) = i
End If
Next i
Return iReturn
End Function
일치하는 인덱스가 없으면 함수가 Nothing을 반환합니다.
이 함수는 StringA의 길이 만 테스트하므로 StringB 또는 StringC가 String A보다 짧은 경우 오류가 발생합니다. 테스트 할 문자열이 모두 동일하다고 미리 추정됩니다. 길이.
코드를 찾고 있지 않다면 C# 또는 vb.net과 같은 언어 태그를 추가하지 마십시오. – nneonneo