Confronto stringhe con percentuale similitudine

[supermac]

Non so se va... perlomeno è una base per ragionarci

    Dim s1 As String = "pippo pluto topolino"
    Dim s2 As String = "qui quo qua ziopaperone minnie topolino pippo clarabella orazio pluto"
    Dim par1() As String = Split(s1)
    Dim par2() As String = Split(s2)
    Dim trovate As Integer = 0
    Dim indice As Double = 0.0
    For i = 0 To par1.Length - 1
      For k = 0 To par2.Length - 1
        If par1(i) = par2(k) Then
          trovate += 1
          exit for
        End If
      Next
    Next
    indice = (trovate / par1.Length) * 100