Hallo!
Heute gibt's ne kleine UDF. Ist meine erste UDF, also bitte nicht so hart in der Bewertung sein 
Mit _stringcompareext ist es möglich Strings bezüglich der Länge sowie bezüglich der Gleichartigkeit numerisch und prozentual zu vergleichen.
Besondere Parameter gibts noch nicht, da sie für meinen eigenen Gebrauch bislang nicht notwendig sind.
; #FUNCTION# ;===============================================================================
;
; Name...........: _Stringcompareext
; Description ...: Be able to compare strings in an extended way
; Syntax.........: _stringcompareext($string1, $string2)
; Parameters ....: $string1
; $string2
; Return values .: Success - Returns : One-dimensional array
; Failure - Returns 0
;
; Author ........: Twodollarbillie
;
; ;==========================================================================================
func _stringcompareext($string1, $string2)
local $return[3]
local $stringcomparision=0
local $sameletters=0
$replace1= stringreplace($string1, "-", "")
$replace2= Stringreplace($replace1, " ", "")
$replace3= stringreplace($string2, "-", "")
$replace4= Stringreplace($replace3, " ", "")
If Stringlen($string1)<stringlen($string2) then $lengthcomparison= 1
If Stringlen($string1)= stringlen($string2) then $lengthcomparison=2
If stringlen($string1)>stringlen($string2) then $lengthcomparison= 3
for $i= 1 to stringlen($replace2)
If stringmid($replace2, $i, 1)== stringmid($replace4, $i, 1) then $sameletters+=1
next
$percental= round(($sameletters/stringlen($replace4))*100, 2)
$return[0]= $lengthcomparison
$return[1]= $sameletters
$return[2]= $percental
If not @error then
return $return
else
return 0
endif
endfunc