Sonderzeichen Zeilenbruch rausfiltern

1. offizieller Beitrag

    Hallo,
    ich habe mir ein Script gemacht, was von Ibash ein Zitat nimmt und mir es anzeigt.
    Ok geht supper, nur jetzt ist immer hintendran so ein 4 Eck []
    Dieses 4 Eck ist sowas wie ein Zeilenbruch.
    Und wenn ich es jetzt rauskopiere ist 1 Zeilenbruch pro Zeile zu viel.

    Script
    [autoit]

    #include <String.au3>
    #include <GUIConstantsEx.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 784, 250)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 783, 225)
    GUICtrlSetData($Edit1, _neuer_text())
    $Button1 = GUICtrlCreateButton("Neuen Text", 0, 224, 783, 25)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUICtrlSetData($Edit1, _neuer_text())
    EndSwitch
    WEnd

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

    Func _neuer_text()
    $inet = BinaryToString(InetRead("http://www.ibash.de/random.html"))
    $string1 = _StringBetween($inet, "</a></td></tr><tr><td class=quote><code>", "</code></td></tr></table><br />")
    $string2 = _StringBetween($string1[Random(0, UBound($string1) - 1, 1)], '<span class=quoterow>', '</span>')
    Local $text = ""
    For $i = 0 To UBound($string2) - 1
    $text &= $string2[$i]
    Next
    $zeichen = IniReadSection ("zeichen.ini","zeichen")
    For $i = 1 To UBound ($zeichen)-1
    If StringInStr ($text,$zeichen[$i][0]) Then
    $text =StringReplace ($text,$zeichen[$i][0],$zeichen[$i][1])
    EndIf
    Next
    Return $text
    EndFunc ;==>_neuer_text

    [/autoit]
    zeichen.ini
    Code
    [zeichen]
&auml;=ä
&ouml;=ö
&uuml;=ü
&Auml;=Ä
&Ouml;=Ö
&Uuml;=Ü
&szlig;=ß
&lt;=<
&gt;=>
    • Offizieller Beitrag

    Das geht viel einfacher, lies den Text und nicht die Source aus:

    [autoit]

    #include <IE.au3>
    $oIE = _IECreate("http://www.ibash.de/random.html", 0, 0)
    $aZitate = StringRegExp(_IEBodyReadText($oIE), '(#\d+[^\n]+\n([^\n]+\n)+)', 3)
    _IEQuit($oIE)

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

    For $i = 0 To UBound($aZitate) -1
    ConsoleWrite($aZitate[$i] & @CRLF)
    Next

    [/autoit]