Regestrieren

[_.-°Turner°-._]

Brauche hilfe ...
Bitte schreibt mir wer in den script das folgende buchstaben mit ner msgbox mit der inschrift : Msgbox(16,"Error","Es sind nur folgende Buchstaben erlaubt : " & @CR & "A-Z , 1-9 , . , _ , - & © / ® ")

die ' verbotenen ' buchstaben :
! , " , § , $ , % , & , / , ( , ) , = , ? , ` , ´ , \ , ] , [ , } , { , ³ , ² , ° , ^ , µ , € , ; , : , | , < , > , @ , + , * , ~ , ' , # und ,

Danke sehr im vorraus

[bollen]

für was brauchst du nochmal einen Thread?? die frage war doch im letzten schon beantwortet worden von lolkop

 Spoiler

im $allowed[256]
; alle zeichen verbieten
For $i=0 To 255
$allowed[$i]=False
Next
; gewisse Zeichen zulassen
$allowed[42] = True ; *
$allowed[45] = True ; -
$allowed[46] = True ; .
$allowed[91] = True ; [
$allowed[95] = True ; _
For $i=0 To 9
$allowed[$i+48] = True ; 0-9
Next
For $i=1 To 26
$allowed[64+$i] = True ; A-Z
$allowed[96+$i] = True ; a-z
Next
GUICreate("Regestrieren", 361, 42)
$input = GUICtrlCreateInput(FileRead("Regi..ini"), 72, 8, 121, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Name", 8, 8, 50, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$reg = GUICtrlCreateButton("Registrieren", 200, 8, 75, 25)
$exit = GUICtrlCreateButton("Exit", 280, 8, 75, 25)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case -3, $exit
Exit
Case $reg
$name = GUICtrlRead($input)
If CheckName($name) Then
FileDelete("Regi..ini")
FileInstall("Regi..ini",@TempDir,"Regi..ini")
FileWrite("Regi..ini",$name)
Else
MsgBox(16,"Error","Es dürfen nur A-Z , 1-9 & [ , ] , * , . , _ , - &' Buchstaben und Zahlen benutzt werden !")
EndIf
EndSwitch
WEnd
Func CheckName($name)
Local $split = StringSplit($name,'')
For $i=0 To $split[0]
If Not $allowed[Asc($split[$i])] Then Return False
Next
Return True
EndFunc

[Freddy​]

Oder einfach mit If StringInStr() abfragen

[lolkop]

Originally Posted by Snivel

Oder einfach mit If StringInStr() abfragen

StringInStr würde immer wieder von vorne den string durchsuchen.
es macht viel mehr sinn, den string in einem durchlauf zu scannen, indem jedes zeichen einzeln abgeglichen wird.

[YunoSubs]

Originally Posted by lolkop

StringInStr würde immer wieder von vorne den string durchsuchen.
es macht viel mehr sinn, den string in einem durchlauf zu scannen, indem jedes zeichen einzeln abgeglichen wird.

$sTest = "Hallo!"
$aDurchsuchen = StringRegExp($sTest,'[!"§$%&/()=?`´\][}{³²°^µ€;:|<>@+*~' & "'#]",3)

If UBound($aDurchsuchen) <> 0 Then
	Msgbox(16,"Error","Es sind nur folgende Buchstaben erlaubt : " & @CR & "A-Z , 1-9 , . , _ , - & © / ® ")
Else
	MsgBox(0,"Erfolg","Erfolg!")
EndIf

[lolkop]

ich würde immernoch die whitelist methode bevorzugen^^

für seine aktuell zugelassenen zeichen könnte das zb so aussehen:

Dim $allowed[256]
For $i=0 To 255
	Switch $i
		Case 65 To 90, 49 To 57, 45, 46, 95, 169, 174
			$allowed[$i] = True
		Case Else
			$allowed[$i] = False
	EndSwitch
Next

Func CheckString($string)
	Local $split = StringSplit($string,'')
	For $i=0 To $split[0]
		If Not $allowed[Asc($split[$i])] Then Return False
	Next
	Return True
EndFunc

ConsoleWrite(CheckString('BLUBB')&@CRLF)

edit:
natürlich lässt es sich auch wie beim vorposter über die regexp methode lösen:

Func CheckString($string)
	Return Not(StringRegExp($string, '[^-A-Z._1-9©®]', 0))
EndFunc

ConsoleWrite(CheckString('BLUBB')&@CRLF)

[ZENS!ERT]

wozu brauchst du das wenn ich fargen darf?

[YunoSubs]

Originally Posted by frühling

wozu brauchst du das wenn ich fargen darf?

Für eine Registration siehe Thread Namen.

[_.-°Turner°-._]

Originally Posted by Shawn Spencer

$sTest = "Hallo!"
$aDurchsuchen = StringRegExp($sTest,'[!"§$%&/()=?`´\][}{³²°^µ€;:|<>@+*~' & "'#]",3)

If UBound($aDurchsuchen) <> 0 Then
	Msgbox(16,"Error","Es sind nur folgende Buchstaben erlaubt : " & @CR & "A-Z , 1-9 , . , _ , - & © / ® ")
Else
	MsgBox(0,"Erfolg","Erfolg!")
EndIf

keine freagen einfach machen SO MUSS DAS SEIN LEUTE !!