求助。如何让input输入特殊符号然后就提示？（如图）

229989799

如何让input输入特殊符号然后就提示？

kk_lee69

回复 1# 229989799


http://www.autoitx.com/forum.php ... amp;highlight=INPUT

229989799

回复 2# kk_lee69


    if StringRegExp($1,'#') Then
这样写是可以的。。如果符号多了就不行了
    if StringRegExp($1,'~!@#$%^&*(){}:"?/\') Then
上面这句不行

Alam

类似判断如下:

MsgBox(0, '', _PcName())

Func _PcName()
        Local $str = '`~!@#$%^&*()=+_[]{}|;:.",<>/?' & Chr(39)
        Local $input = InputBox('设置机器名', '注意,不可使用以下特殊字符:' & @CRLF & @CRLF & $str, 'PC008')
        If @error <> 0 Then Return SetError(1, '', '用户操作取消')
        $input = StringRegExp($input, '.', 3)
        For $i = 0 To UBound($input) -1
                If StringInStr($str, $input[$i]) Then 
                        MsgBox(16, '输入非法', '您输入了特殊字符: ' & $input[$i])
                        Return _PcName()
                EndIf
        Next
        Return $input
EndFunc

zghwelcome

$str = ClipGet()
StringRegExp($str,'[~!@#$%^&*\(\){}\:"\?\/\\]+',1)
If Not @error Then MsgBox(0,0,"包含特殊字符")