_ArrayGetRandom()

  • Hallo Community
    Hab mir schnell ne Funktion zusammengebastelt um aus einem String (Welcher aus string1[Zeichen]string2[Zeichen]string3[Zeichen] besteht/bestehen muss...
    Erklärung:
    Zuerst wird der String gespalten mit Stringsplit (dafür benötigt man den Delimeter -> [Zeichen])
    Random -> zufällige Zahl, so gibt er einfach einen String von 1 bis 3 aus....

    [autoit]

    _ArrayGetRandom("string1[Zeichen]string2[Zeichen]string3[Zeichen]","[Zeichen]")

    [/autoit][autoit]

    MsgBox(1,"by sl4y3r","Heute esse ich: " & _ArrayGetRandom("Wiener Schnitzerl,Pommes,Curry Wurst,Kebap LOL,nichts,",",")) ;Simples Beispiel
    Func _ArrayGetRandom($vArray,$vDelimeter)
    $vArrayGetRandom_StringSplit = StringSplit($vArray,$vDelimeter)
    Return $vArrayGetRandom_StringSplit[Random(1,UBound( $vArrayGetRandom_StringSplit)-1)]
    EndFunc

    [/autoit]


    mfg. Andi

  • Hallo sl4y3r.
    Deine Funktion sucht nur einen String nach Delimiter raus, es ist kein ArraygetRandom.
    Habe es mal für dich gemoddet.
    Beispiel:

    [autoit]

    Dim $array[3] = ["Apfel", "Kartoffeln", "Suppe"]
    MsgBox(0, "Idee by sl4y3r|Mod by PrideRage","Heute esse ich: " & _ArrayGetRandom($array))
    Func _ArrayGetRandom($vArray, $iDimension = 1)
    $rnd = Random(0, UBound($vArray, $iDimension), 1)
    Return $vArray[$rnd]
    EndFunc

    [/autoit]


    MfG. PrideRage

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.