title image


Smiley Suche von "ähnlichen" Texten - VBA Function
Hi Wastl,



habe noch eine VBA Function daraus gemacht:



Function ähnlich(t1 As String, t2 As String) As Long

'ermittelt die Länge der längsten Zeichenfolge, die in beiden Texten überein stimmt



Dim L As Long

Dim x As Long

Dim y As Long

Dim maxFolge As Long

Dim Folge As Long



l = Len(t1)



For x = 1 To L

For y = 1 To L

If l >= x + y - 1 Then

Folge = IIf(InStr(1, t2, Mid(t1, x, y)), y, 0)

If Folge > maxFolge Then

maxFolge = Folge

End If



End If

Next

Next



ähnlich = maxFolge



End Function





Grüße

Jens



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: