Udregning av streng sammenligning

det støreste N hvor de første N tegn i de to strenge er ens ?

eller det antal tegn somogså findes i den anden streng ?

eller ?

Streng 1: kendt
Streng 2: kentd

Denne sammenligning skal give 2 (also 2 fejl bokstaver). Skal ikke at sammenlige case sensitivitet.

der er ikke nogen indbygget funktion til det

du bliver nødt til at lade en løkke løbe gennem strengene og sammenligne
(case insensitivt) og tælle antal rigtige eller forkerte op

har du en såden funktion i vb eller C# ?

giv mig 3 minutter

np :)

public static int DiffChar(string s1,string s2)
    {
        string tmp1 = s1.ToUpper();
        string tmp2 = s2.ToUpper();
        int res = 0;
        for(int i = 0; i < tmp1.Length; i++)
        {
            if(tmp1[i] != tmp2[i])
            {
                res++;
            }
        }
        return res;
    }

du har ikke forklaret hvad der skal ske hvis strengene ikke er lige lange, så det
er der ikke taget hensyn til

ex.
Streng 1: ken
Streng 2: kendt

Så skal den give 2 også..

den funktion du oplyste er tmp1 og tmp2 ikke lavet til array's til sammenligningen

public static int DiffChar(string s1,string s2)
    {
        string tmp1 = s1.ToUpper();
        string tmp2 = s2.ToUpper();
        int res = 0;
        for(int i = 0; i < Math.Min(tmp1.Length,tmp2.Length); i++)
        {
            if(tmp1[i] != tmp2[i])
            {
                res++;
            }
        }
        res = res + Math.Max(tmp1.Length,tmp2.Length) - Math.Min(tmp1.Length,tmp2.Length);
        return res;
    }

skal den ikke være ?
string() tmp1 = s1.ToUpper().Split;
string() tmp2 = s2.ToUpper().Split;

det tror jeg ikke

så har jeg ihvertfald misforstået spørgsmålet ...

min sidste kommentar var forkert, sorry
Jeg laver min funktion i vb, og der fejler den på  tmp(i) og tmp2(i) ind i løkken
Jeg får denne fejl:
Expression is not an array or a method, and cannot have an argument list.

Funktion er sådan ud nu...

Public Function DiffChar(ByVal s1 As String, ByVal s2 As String) As Integer
        Dim tmp1 As String = s1.ToUpper()
        Dim tmp2 As String = s2.ToUpper()
        Dim res As Integer = 0
        Dim i As Integer

        For i = 0 To Math.Min(tmp1.Length, tmp2.Length)
            If (tmp1(i) <> tmp2(i)) Then
                res += 1
            End If
        Next

        res = res + Math.Max(tmp1.Length, tmp2.Length) - Math.Min(tmp1.Length, tmp2.Length)

        DiffChar = res
    End Function

Public Shared Function DiffChar(ByVal s1 As String, ByVal s2 As String) As Integer
        Dim tmp1() As Char = s1.ToUpper.ToCharArray
        Dim tmp2() As Char = s2.ToUpper.ToCharArray
        Dim res As Integer = 0
        Dim i As Integer
        For i = 0 To Math.Min(tmp1.Length, tmp2.Length) - 1
            If tmp1(i) <> tmp2(i) Then
                res = res + 1
            End If
        Next
        res = res + Math.Max(tmp1.Length, tmp2.Length) - Math.Min(tmp1.Length, tmp2.Length)
        Return res
    End Function

det er lidt anderledes i VB.NET fordi den ikke har indexers som C#

det var sørens...

Sådan skulle den se ud...

Public Function DiffChar(ByVal s1 As String, ByVal s2 As String) As Integer
        Dim tmp1 As String = s1.ToUpper
        Dim tmp2 As String = s2.ToUpper
        Dim res As Integer = 0
        Dim i As Integer

        For i = 1 To Math.Min(tmp1.Length, tmp2.Length)
            If Mid(tmp1, i, (i + 1)) = Mid(tmp2, i, (i + 1)) Then
                res += 1
            End If
        Next

        res = res + (Math.Max(tmp1.Length, tmp2.Length) - Math.Min(tmp1.Length, tmp2.Length))

        DiffChar = res
    End Function

arne_v: send mig et svar, du hjalp mig en hel del...

jeg vil anbefale 16:08:09 fremfor brug af Mid som er VB6'isme

men hvad pokker

jeg ligger et svar

ja du har ret, din 16:08:09 er den bedre løsning... takker

den VB.NET'ske version af Mid er Substring

Okey så lærte jeg det i dag.. jeg er nemli en gammel VB6'er... som fornylig er startet på vb.net :)