Jämföra, ta ut..

MelittaMedlem sedan sep. 2003448 inlägg

Frågan28 jan. 2005 14:17#1

Hejsan, jag har två värden som jag vill jämföra och sedan ta ut dom tecken som skiljer sig och lägga dom i en variabel. Hur ksa jag lättast göra detta? Nån som har nått tips?

xrobxMedlem sedan mars 2003106 inlägg

3 feb. 2005 13:26#2

Här är en funktion som returnerar de tecken som förekommer i
variabeln V1, men inte i V2:

Private Function retDiff(ByVal V1 As String, ByVal V2 As String) As String
    Dim i, ii As Long
    Dim ExistsInV2 As Boolean
    Dim cVal1, cVal2 As String
    Dim LO As String
    For i = 1 To Len(V1)
        cVal1 = Mid(V1, i, 1)
        For ii = 1 To Len(V2)
            cVal2 = Mid(V2, ii, 1)
            If cVal2 = cVal1 Then
                ExistsInV2 = True
                Exit For
            End If
            ExistsInV2 = False
        Next ii
        If ExistsInV2 = False Then
            LO = LO & cVal1
        End If
    Next i
    retDiff = LO
End Function

Kalla på funktionen:
(Det du får som svar i Msgbox'en i exemplet här under
är således siffrorna 1, 2 och 3...)

Private Sub Command1_Click()
    MsgBox retDiff("ABC123", "ABC")
End Sub