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
#include <String.au3>
#include <GUIConstantsEx.au3>
#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 ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Edit1, _neuer_text())
EndSwitch
WEnd
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