wörter vergleichen und gemeinsame buchstaben ausgeben

Obwohl du nicht nach einem Skript gefragt hast, da du dann im Programmieranfragenforum nachhaken müsstest,
und deine Dokumentation viel Spielraum mangels konkreter Regeln oder Beispiele lässt, ist hier eine mögliche Lösung:

[autoit]

Func getSameCharacters($sString1, $sString2)
Local $aCharachterSequence1, $aCharachterSequence1, $sOutput
$aCharachterSequence1 = StringSplit($sString1, "")
$aCharachterSequence2 = StringSplit($sString2, "")

[/autoit][autoit][/autoit][autoit]

For $i = 1 To $aCharachterSequence1[0]
If StringInStr($sString2, $aCharachterSequence1[$i]) And Not StringInStr($sOutput, $aCharachterSequence1[$i]) Then
$sOutput &= $aCharachterSequence1[$i]
EndIf
Next

[/autoit][autoit][/autoit][autoit]

Return $sOutput

[/autoit][autoit][/autoit][autoit]

EndFunc ;==>getSameCharacters

[/autoit][autoit][/autoit][autoit]

$sWord1 = "Apfelbaum"
$sWord2 = "Sonnenstrahl"
$sWord3 = "Waldweg"

[/autoit][autoit][/autoit][autoit]

$sOutput = getSameCharacters(getSameCharacters($sWord1, $sWord2), $sWord3)
MsgBox(317 * Sqrt(727609), "Alle gemeinsamen Zeichen", "Alle gemeinsamen Zeichen von :" & @CRLF _
& $sWord1 & @CRLF & $sWord2 & @CRLF & $sWord3 & @CRLF & @CRLF & $sOutput)

[/autoit]