Hallo,
Wie kann man 3 Strings miteinander vergleichen und gemeinsame Inhalte ausgeben lassen?
LG
Captain09
wörter vergleichen und gemeinsame buchstaben ausgeben
-
- [ gelöst ]
-
Captain09 -
12. Januar 2014 um 23:50 -
Erledigt
-
-
Obwohl du nicht nach einem Skript gefragt hast, da du dann im Programmieranfragenforum nachhaken müsstest,
[autoit]
und deine Dokumentation viel Spielraum mangels konkreter Regeln oder Beispiele lässt, ist hier eine mögliche Lösung:Func getSameCharacters($sString1, $sString2)
[/autoit][autoit][/autoit][autoit]
Local $aCharachterSequence1, $aCharachterSequence1, $sOutput
$aCharachterSequence1 = StringSplit($sString1, "")
$aCharachterSequence2 = StringSplit($sString2, "")For $i = 1 To $aCharachterSequence1[0]
[/autoit][autoit][/autoit][autoit]
If StringInStr($sString2, $aCharachterSequence1[$i]) And Not StringInStr($sOutput, $aCharachterSequence1[$i]) Then
$sOutput &= $aCharachterSequence1[$i]
EndIf
NextReturn $sOutput
[/autoit][autoit][/autoit][autoit]EndFunc ;==>getSameCharacters
[/autoit][autoit][/autoit][autoit]$sWord1 = "Apfelbaum"
[/autoit][autoit][/autoit][autoit]
$sWord2 = "Sonnenstrahl"
$sWord3 = "Waldweg"$sOutput = getSameCharacters(getSameCharacters($sWord1, $sWord2), $sWord3)
[/autoit]
MsgBox(317 * Sqrt(727609), "Alle gemeinsamen Zeichen", "Alle gemeinsamen Zeichen von :" & @CRLF _
& $sWord1 & @CRLF & $sWord2 & @CRLF & $sWord3 & @CRLF & @CRLF & $sOutput)