OSAX: Standard Additions - Funktion: display dialog

[Snow]

Beschreibung: Es wird in einem Dialogfenster die Eingabe von Textwerten ermöglicht. Das Skript prüft, ob Zahlen oder bestimmte Sonderzeichen eingegeben wurden und lehnt diese Eingabe ab.


Code:

on run
theDialog()
end run

on theDialog()
set myText to text returned of ¬
(display dialog "Bitte Text eingeben" default answer "" )
set theFlag to true
set theList to { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "@", "&", "/" }

if myText = "" then
display dialog ¬
"Es muss eine Eingabe gemacht werden" buttons { "OK" } ¬
default button 1 with icon stop
theDialog()
else
repeat with theNumber in theList
if myText contains theNumber then
set theFlag to false
exit repeat
end if
end repeat
end if

if theFlag = false then
display dialog "Bitte nur reinen Text eingeben" with icon stop
theDialog()
end if
end theDialog
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com