Hallo,
ich möchte aus einem String wahrlos Anzahl x(10) Zeichen auslesen, ohne eine Reihenfolge zu bekommen.
Ist das möglich ?
Anbei mal meine Func :
Spoiler anzeigen
Func Passwort()
Local $StringLeicht = "1234567890abcdefghijklmnopqrstuvwxyz"
Local $StringMittel = "1234567890abcdefghijklmnopqrSTUVWXYZ"
Local $StringHoch = "1234567890abcdefghijklmnOPQRSTUVWXYZ#?&%$§!{[]})"
Local $StringSehrHoch = "1234567890abcdefghijklmNOPQRSTUVWXYZ#?&%$§!{[]})çãáÿÍõÇÔÊÂâÕ<>|)"
$2 = GUICtrlRead($Combo)
$Anzahl = GUICtrlRead($Edit2)
$Anzahl1 = $Anzahl / 5
;MsgBox(0, "Die Zahl ist ", $Anzahl1 & "," & $1 , 5)
; MsgBox(0, "Die Zahl ist ", $1, 5)
; MsgBox(0,"Die Gesamtsumme ist", $sum)
; Hier müsste die Abfrage rein und die bearbeitung.
; Erst soll abgefragt werden was in der Combo steht, und endsprechend der String gewählt werden
; Dann soll Edit1 Abgefragt werden was für eine eingabe da ist (Zahl) welche als Multiplikator fungieren soll
; Wenn Combo = Sehr Hoch ist, und Edit1 = 12 ist, soll der String $StringSehrHoch gewählt werden, und daraus willkürlich
; 12 Zeichen..... von allen etwas in beliebiger Reihenfolge
; Als Beispiel sollte dann rauskommen, so stell ich mir das vor : > $aÿRs4[8?<#|
;Global $StringSehrHoch = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ#?&%$§!{[]})çãáÿÍõÇÔÊÂâÕ<>|)
Switch $2
Case "Leicht"
if $2 = $InCom1 Then
MsgBox(0, "Die Zahl ist ", $Anzahl & "," & $1 , 5)
EndIf
Case "Mittel"
if $2 = $InCom2 Then
MsgBox(0, "Die Zahl ist ", $Anzahl & "," & $1 , 5)
EndIf
Case "Hoch"
if $2 = $InCom3 Then
MsgBox(0, "Die Zahl ist ", $Anzahl & "," & $1 , 5)
EndIf
case "Sehr Hoch"
if $2 = $InCom4 then
MsgBox(0, "Die Zahl ist ", $Anzahl & "," & $1 , 5)
;MsgBox(0, "Der Text lautet ", $1 , 5)
;$Code = Random($Anzahl,StringLen($StringSehrHoch),1); +
$Code = StringMid($StringSehrHoch, 1, $Anzahl + 1)
;$Code = StringRight($StringSehrHoch, $Anzahl)
;$Test = StringLeft($StringSehrHoch, $Anzahl1)
;$Test1 = StringRight($StringSehrHoch, $Anzahl1)
;$Test2 = StringMid($StringSehrHoch, $Anzahl, $Anzahl1)
;$Code = Random($Anzahl,StringRight($StringSehrHoch))
;$s =StringFormat ( "var1=%s var2=%.2f, var3=%d" ,$string, $float, $int )
;$Code = $Test + $Test1 + $Test2 + $Test3
;$Code = String($Test and $Test1 and $Text2 and $Text3 )
GUISetFont (9, 800, 4)
GUICtrlCreateLabel($Code , 100 , 180) ; Code sollte hier ausgegeben werden, aber so das er kopiert werden kann und in eine ini geschrieben werden mit Datum
GUICtrlSetColor(-1,0xff0000)
EndIf
EndSwitch
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Danke für die Hilfe