$aArray = StringRegExp('[email protected]//вас поимели', '[a-zA-Z0-9@.]', 0)
If $aArray = 1 Then
ConsoleWrite('ЕСТЬ символы'&@CRLF)
Else
ConsoleWrite('НЕТ символов'&@CRLF)
EndIf$aArray = StringRegExp('[email protected]//вас поимели', '[^a-zA-Z0-9@.]', 0)
If $aArray = 0 Then
ConsoleWrite('Подходит' & @CRLF)
Else
ConsoleWrite('НЕ подходит' & @CRLF)
EndIf
If TEST('[email protected]//вас поимели') Then
ConsoleWrite('НЕТ символов'&@CRLF)
EndIf
If TEST('Шаблон для проверки') Then
ConsoleWrite('НЕТ символов'&@CRLF)
EndIf
Func Test($STR)
If Not StringRegExp($STR, '[a-zA-Z0-9@.]', 0) Then
Return 1
EndIf
SetError(1)
EndFunc
$sStr = '[email protected]//вас поимели'
$iLen = StringLen($sStr)
StringRegExpReplace($sStr, '(?is)[\da-z@.]', '')
If @extended = $iLen Then
ConsoleWrite('нет других символов' & @LF)
Else
ConsoleWrite('есть другие символы' & @LF)
EndIf
ConsoleWrite('---' & @LF)
$sStr = '[email protected]'
$iLen = StringLen($sStr)
StringRegExpReplace($sStr, '(?is)[\da-z@.]', '')
If @extended = $iLen Then
ConsoleWrite('нет других символов' & @LF)
Else
ConsoleWrite('есть другие символы' & @LF)
EndIf$sStr = '[email protected]//вас поимели'
$sStr = StringRegExpReplace($sStr, '(?is)[\da-z@.]', '')
If $sStr Then
ConsoleWrite('есть другие символы' & @LF)
Else
ConsoleWrite('нет других символов' & @LF)
EndIf
ConsoleWrite('---' & @LF)
$sStr = '[email protected]'
$sStr = StringRegExpReplace($sStr, '(?is)[\da-z@.]', '')
If $sStr Then
ConsoleWrite('есть другие символы' & @LF)
Else
ConsoleWrite('нет других символов' & @LF)
EndIf$List = "[email protected]"
$WhiteList = StringSplit($List, "")
$str = "[email protected]//вас поимели"
$array = StringSplit($str, "")
For $i = 1 To $array[0]
For $j = 1 To $WhiteList[0]
If $array[$i] = $WhiteList[$j] Then
ExitLoop
EndIf
Next
If $j = $WhiteList[0] + 1 Then
ConsoleWrite("Недопустимый символ: " & $array[$i] & @CRLF)
Exit
EndIf
Next
ConsoleWrite($str)
