---
title: "Jämföra, ta ut.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/121240-jämföra-ta-ut"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Melitta"
published: "2005-01-28T14:17:00.000Z"
updated: "2005-02-03T13:26:38.000Z"
replies: 1
views: 278
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/121240-jämföra-ta-ut"
---

# Jämföra, ta ut..

## #1 — Melitta, 2005-01-28T14:17Z

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?

Permalänk: https://www.webforum.nu/p/121240

## #2 — xrobx, 2005-02-03T13:26Z

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
```

Permalänk: https://www.webforum.nu/p/1546644

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/121240-jämföra-ta-ut