Online User ermitteln

    Zitat von ChaosKeks

    Maan progandy schäm dich was! Was lässt du jemanden der nur ottonormalverbraucher von StringRegExp's ist solange schuften und kommst dann mit soner kurzen Lösung :D


    Ich hab erst jetzt Zeit gefunden, die Seite zu testen ;)

    Na wenn man einmal den ganzen StringRegExp-Kram hat, ist der Rest auch nicht mehr so schwer..
    hier nochmal mit Rangordnung ->

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    #include <INet.au3>
    $source = _INetGetSource("http://forum-darkgamex.dyndns.org/index.php?page=UsersOnline")
    $source = StringRegExp($source,'userID=.*?(?:">|<strong>)(.*?)(?:|</strong></font>)</a></p></td>',3)

    [/autoit] [autoit][/autoit] [autoit]

    DIm $source2[Ubound($source)][2]
    For $i = 0 To Ubound($source)-1
    $source2[$i][0] = StringRegExpReplace($source[$i],'<.*?>','')
    $mod = StringRegExp($source[$i], '"(.*)"',3)
    If isArray($mod) Then
    $source2[$i][1] = _modEscape($mod[0])
    Else
    $source2[$i][1] = "Member"
    EndIf
    Next
    _ArrayDisplay($source2)

    [/autoit] [autoit][/autoit] [autoit]

    Func _modEscape($mod)
    Switch $mod
    Case "red"
    return "Administrator"
    Case "lime"
    return "Game Operator"
    Case "blue"
    return "Super GameOperator"
    Case "yellow"
    return "Forums Moderator"
    Case "orange"
    return "VIP"
    Endswitch
    EndFunc

    [/autoit]

    Wehe jetzt kommt wieder einer mit 2-3 Zeilen an :D