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
Ich hab erst jetzt Zeit gefunden, die Seite zu testen
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
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 ->
#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)
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)
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
Wehe jetzt kommt wieder einer mit 2-3 Zeilen an
thx kann ich alles gut gebrauchen