Hoffe die frage hat nicht schon jemand gestellt ?
Aufjedefall hab ich nix gefunden 
wie kann ich in einer inputbox nur kommazahlen in format
zb.
11.60
1.80
0.70
siehe nicht "," sondern "." 2 stellen nach komma
erlauben
Rest wie zb buchstaben usw sollen nicht angenommen werden ? ?
Hiho!
schau dir bitte :
IsFloat ( variable )
an!
Dann kannst du überprüfen, ob es stimmt!
zb
$zahl = InputBox("Zahl", "Muss float sein")
if IsFloat($zahl) = 1 Then
;nix
else
MsgBox("Stimmt nicht!")
(ich weiß, es geht schöner...aber so gehts)
mfg
Hi!
Meine UDF RestrictControlRegEx erlaubt es, unerlaubte Zeichen sofort bei der Eingabe rauszunehmen. Bin jetzt gerade zu faul sie zu suchen, aber ich habe sie damals für Galenda geschrieben und dort verwendet.
http://code.google.com/p/galenda/
peethebee
pfff son fauler gott 
; ===============================================================================
;
; UDF Name: RestrictControlRegExp.au3
; Description: This UDF can restrict the text typed into input controls live
; while typing based on a given Regular Expression.
; Requirement: AutoIt 3.2.0.1 or higher
; Author: peethebee ([email='peethebee@gmx.de'][/email], http://www.autoit.de)
; Notice: based on a script by gafrost in this thread:
; http://www.autoitscript.com/forum/index.php?showtopic=31556&hl=guiregistermsg
;
; ===============================================================================
#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Global Const $WM_COMMAND = 0x0111
Global Const $EN_CHANGE = 0x300
Global $array__RegEx_RestrictControl[1][4]
Global $array__RegEx_RestrictControl_id_count = 0
;===============================================================================
;
; Function Name: _RegEx_RestrictControl_setup
; Description: Sets up the features of this UDF.
; Parameter(s): $_re_rc_max_controls (opotional, default 10)
; defines how many controls gan be controlled at maximum
; Requirement(s): This UDF included
; Return Value(s): None.
; Author(s): peethebee
;
;===============================================================================
Func _RegEx_RestrictControl_setup($_re_rc_max_controls = 10)
GUIRegisterMsg($WM_COMMAND, "_RegEx_RestrictControl_check")
ReDim $array__RegEx_RestrictControl[$_re_rc_max_controls][4]
$array__RegEx_RestrictControl_id_count = 0
EndFunc ;==>_RegEx_RestrictControl_setup
;===============================================================================
;
; Function Name: _RegEx_RestrictControl_add
; Description: Sets up the controlling for a control.
; Parameter(s): $_re_rc_ctrlid
; ID of the control to be monitored
; $_re_rc_regex_pattern
; RegExp which has to be fullfilled or fullfillable
; $_re_rc_valid_string (optional, default "")
; Valid string for testing if RegExp can still be fullfilled.
; Requirement(s): This UDF included
; Return Value(s): None.
; Author(s): peethebee
;
;===============================================================================
Func _RegEx_RestrictControl_add($_re_rc_ctrlid, $_re_rc_regex_pattern, $_re_rc_valid_string = "")
$array__RegEx_RestrictControl[$array__RegEx_RestrictControl_id_count][0] = $_re_rc_ctrlid
$array__RegEx_RestrictControl[$array__RegEx_RestrictControl_id_count][1] = $_re_rc_regex_pattern
$array__RegEx_RestrictControl[$array__RegEx_RestrictControl_id_count][2] = $_re_rc_valid_string
$array__RegEx_RestrictControl[$array__RegEx_RestrictControl_id_count][3] = ""
$array__RegEx_RestrictControl_id_count += 1
EndFunc ;==>_RegEx_RestrictControl_add
;===============================================================================
;
; Function Name: _RegEx_RestrictControl_check
; Description: Internal processing function - not to be called from outside!
; Parameter(s): [...]
; Requirement(s): This UDF included
; Return Value(s): None.
; Author(s): peethebee (using gafrost's work as a basis)
;
;===============================================================================
Func _RegEx_RestrictControl_check($hWnd, $msg, $wParam, $lParam)
Local $nNotifyCode = _HiWord($wParam)
Local $nID = _LoWord($wParam)
Local $hCtrl = $lParam
;~ MsgBox(0, "", UBound($array__RegEx_RestrictControl, 1))
For $_re_rc_i = 0 To UBound($array__RegEx_RestrictControl, 1) - 1
If $nID = $array__RegEx_RestrictControl[$_re_rc_i][0] Then
If $nNotifyCode = $EN_CHANGE Then
; Check RegEx and set text
For $_re_rc_j = 0 To StringLen($array__RegEx_RestrictControl[$_re_rc_i][2])
$_re_rc_regex_res = 1
;~ MsgBox(0, "regexp string", GUICtrlRead($array__RegEx_RestrictControl[$_re_rc_i][0]) & StringTrimLeft($array__RegEx_RestrictControl[$_re_rc_i][2], $_re_rc_j))
If StringRegExp (GUICtrlRead($array__RegEx_RestrictControl[$_re_rc_i][0]) & StringTrimLeft($array__RegEx_RestrictControl[$_re_rc_i][2], $_re_rc_j), $array__RegEx_RestrictControl[$_re_rc_i][1]) Then ExitLoop
$_re_rc_regex_res = 0
Next
If $_re_rc_regex_res = 1 Then
; save string as "good" value for later resettability
$array__RegEx_RestrictControl[$_re_rc_i][3] = GUICtrlRead($array__RegEx_RestrictControl[$_re_rc_i][0])
Else
; reset Text to last known good value
GUICtrlSetData($array__RegEx_RestrictControl[$_re_rc_i][0], $array__RegEx_RestrictControl[$_re_rc_i][3])
EndIf
EndIf
EndIf
Next
; Proceed the default Autoit3 internal message commands.
; You also can complete let the line out.
; !!! But only 'Return' (without any value) will not proceed
; the default Autoit3-message in the future !!!
Return $GUI_RUNDEFMSG
EndFunc ;==>_RegEx_RestrictControl_check
; helping function by gafrost
Func _HiWord($x)
Return BitShift($x, 16)
EndFunc ;==>_HiWord
; helping function by gafrost
Func _LoWord($x)
Return BitAND($x, 0xFFFF)
EndFunc ;==>_LoWord
mfg
Lobt den Huggy *wuff*
Dann mach doch gleich mal ein Beispiel, huggy ;P
pee the "Gott" bee
ich darf faul sien, bin kein gott
werde es gleich mal testen.
BIG THX.
Wie benutzt man das ganze nun.
Gibt irgendwo ne help datei mit beispielen ?
Hi!
Sorry, aber ich habe gerade keine Zeit ein Beispiel zu machen. Code siehst du in Galenda (einfach nach den Funktionen aus der UDF suchen) oder im englischen Forum als ich es dort veröffentlicht hatte (wenn ich mich recht erinnere mich Anleitung oder Minimalbeispiel).
Viel Erfolg, wäre nett wenn du die Lösung postest, wenn du sie hast,
peethebee
Hi,
und was passiert wenn du 2 Punkte eingibst?
Wenn ich Zeit finde, dann wollte ich mal eine UDF dafür bauen.
So long,
Mega
Guter RegExp und es ist verhindert - ist auch kein Problem, es auf 2 Dezimalstellen zu begrenzen.
peethebee
