Hab zurzeit keine Lust an meinen großen Projekten weitertzuarbeiten (Modul Trend-Viewer und Was haltet ihr davon?), deshalb schreibe ich auch manchmal kleine mehr oder weniger sinnlose Funktionen. Beurteilt selbst. Laut http://www.vbarchiv.net/tipps/tipp_70.html sollten damit 90% der Vornamen richtig zugeordnet werden. Vllt kann das mal jemand brauchen
Spoiler anzeigen
;Automatische Auswahl der Anrede für "Standard"-Namen
[/autoit] [autoit][/autoit] [autoit]Local $aNamen[10] = ['Andrea', 'Christian', 'Franz', 'Klaus', 'Maria', 'Julia', 'Elfriede', 'Lukas', 'Franziska', 'Julian']
Local $sMsg = ''
For $i = 0 To UBound($aNamen) -1
$sMsg &= _GetAnrede($aNamen[$i]) & ' ' & $aNamen[$i] &@CRLF
Next
MsgBox(64, 'Anrede', $sMsg)
[/autoit] [autoit][/autoit] [autoit]Func _GetAnrede($sName)
;funkey
;http://www.vbarchiv.net/tipps/tipp_70.html
Switch StringRight($sName, 1)
Case 'a', 'e', 'i', 'o', 'u'
Return 'Frau'
Case Else
Return 'Herr'
EndSwitch
EndFunc