两个字符串比较，取出重复字符个数。 （原创）

Function TwoStrComp(strOne As String, strTwo As String) As Integer
'================================
'取出两个字符串中的重复字符个数
'短字符串中无重复字符的情况下
'================================
Dim strShort As String
Dim strLong As String
Dim strSub As String
Dim intCount As Integer
Dim intCyc As Integer

intCount = 0

If strOne <> "" And strTwo <> "" Then

strShort = strOne
strLong = strTwo

If Len(strOne) > Len(strTwo) Then

strShort = strTwo
strLong = strOne

End If

For intCyc = 0 To Len(strShort) - 1

strSub = Left(Right(strShort, Len(strShort) - intCyc), 1)

If InStr(strLong, strSub) > 0 Then             'InStr函数返回找到第一个字符的位置

intCount = intCount + 1

End If

Next

TwoStrComp = intCount

End If

End Function

Function TwoStrCompOnly(strOne As String, strTwo As String) As Integer
'================================
'取出两个字符串中的重复字符个数
'重复字符只算1个的情况
'数组法 (也可用collection类)
'================================
Dim strShort As String
Dim strLong As String
Dim strSub As String
Dim intCount As Integer
Dim intCyc As Integer
Dim arrChr() As String

intCount = 0

If strOne <> "" And strTwo <> "" Then

strShort = strOne
strLong = strTwo

If Len(strOne) > Len(strTwo) Then

strShort = strTwo
strLong = strOne

End If

ReDim arrChr(Len(strShort))

For intCyc = 0 To Len(strShort) - 1

strSub = Left(Right(strShort, Len(strShort) - intCyc), 1)

If Onlyone(arrChr, strSub) Then

If InStr(strLong, strSub) > 0 Then             'InStr函数返回找到第一个字符的位置

intCount = intCount + 1

End If

End If

arrChr(intCyc) = strSub

Next

TwoStrCompOnly = intCount

End If

End Function

Function TwoStrCompEx(strOne As String, strTwo As String) As Integer
'================================
'取出两个字符串中的重复字符个数
'任何匹配字符都累加
'================================
Dim strShort As String
Dim strLong As String
Dim strSub As String
Dim Strtemp As String
Dim intCount As Integer
Dim intCyc As Integer

intCount = 0

If strOne <> "" And strTwo <> "" Then

strShort = strOne
strLong = strTwo

If Len(strOne) > Len(strTwo) Then

strShort = strTwo
strLong = strOne

End If

For intCyc = 0 To Len(strShort) - 1

strSub = Left(Right(strShort, Len(strShort) - intCyc), 1)
Strtemp = Replace(strLong, strSub, "")
intCount = intCount + (Len(strLong) - Len(Strtemp))

Next

TwoStrCompEx = intCount

End If

End Function

Function TwoStrCompOnlyA(strOne As String, strTwo As String) As Integer
'================================
'取出两个字符串中的重复字符个数
'按LZ要求，第二个字符串有重复，但按1个累加
'数组法 (也可用collection类)
'================================
Dim strSub As String
Dim intCount As Integer
Dim intCyc As Integer
Dim arrChr() As String

intCount = 0

If strOne <> "" And strTwo <> "" Then

ReDim arrChr(Len(strTwo))

For intCyc = 0 To Len(strTwo) - 1

strSub = Left(Right(strTwo, Len(strTwo) - intCyc), 1)

If Onlyone(arrChr, strSub) Then

If InStr(strOne, strSub) > 0 Then             'InStr函数返回找到第一个字符的位置

intCount = intCount + 1

End If

End If

arrChr(intCyc) = strSub

Next

TwoStrCompOnlyA = intCount

End Function