InetRead und eine GUI - Umlaute werden falsch dargestellt!

Alisamix

Hallo, ich habe ein Problem bei folgendem Script:

Code

$oIE = InetRead ("http://status.wow-europe.com/de/alert")
Sleep(1000)
$oIE = StringReplace($oIE, "SERVERALERT:", "")
$oIE = StringReplace($oIE, "> ", "")






$hWnd = GUICreate("TEST", 500, 400)


$label = GUICtrlCreateLabel("", 10, 20, 480, 300)
$button = GUICtrlCreateButton('Aktualisieren', 200, 340, 100, 25)


GUISetState()


While 1


$msg = GUIGetMsg()


Switch $msg


    Case $GUI_EVENT_CLOSE
        Exit
    Case $button
        Refresh($oIE)
EndSwitch


WEnd


Func Refresh($obj)




GUICtrlSetData($label, $oIE)


EndFunc

Alles anzeigen

Die Umlaute werden nicht richtig dargestellt.

MfG,

Alisamix

Ich habe die Lösung!

$oIE = StringReplace($oIE, "Ã¼", "ü")
$oIE = StringReplace($oIE, "Ã¶", "ö")
$oIE = StringReplace($oIE, "Ã¤ÃŸ", "ä")

name22

Dann musst du sie ersetzen.

[autoit]

$sString = StringReplace($sString, 'ÃŸ', "ß")
$sString = StringReplace($sString, 'Ãœ', "Ü")
$sString = StringReplace($sString, 'Ã„', 'Ä')
$sString = StringReplace($sString, 'Ã–', 'Ö')
$sString = StringReplace($sString, 'Ã¼', "ü")
$sString = StringReplace($sString, 'Ã¤', "ä")
$sString = StringReplace($sString, 'Ã¶', "ö")

[/autoit]

Edit: 4Minuten zu spät.^^ Aber dafür habe ich auch die Großbuchstaben mit drin.

SEuBo

Wofür ersetzen? einfach direkt den den richtigen Zeichensatz bei der BinaryToString Funktion benutzen (mich wundert eh, wie dein script laufen kann, da momentan alles nur Hex ist, von dem was du auf der Webseite ausliest. Du brauchst erst BinaryToString.)

[autoit]

$sHTML = BinaryToString(InetRead("http://status.wow-europe.com/de/alert",1),4)
$sHTML = StringRegExpReplace($sHTML,"\A.+?:","")
MsgBox(0,"",$sHTML)

[/autoit]

Alisamix

Okay, habe nun SEuBos lösung benutzt :3 Danke!

Es lief bei mir weil ich InetGetSource oder sowas genutzt habe anstatt InetRead.