- Offizieller Beitrag
Hi,
manchmal möchte man ein paar Codezeilen in die Shoutbox stellen. Macht sich bloß schlecht, weil die Zeilenumbrüche nicht erkannt werden.
Mit diesem kleinen Proggi läßt sich Code einfach in ein Editfeld kopieren. Beim Schließen der GUI wird der Code Shoutboxgerecht formatiert und in die Zwischenablage geschrieben.
Nur noch in die Eingabezeile einfügen und fertig.
(Soll natürlich kein Ersatz für Postings sein)
Spoiler anzeigen
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Code-2-Shoutbox", 633, 454, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 16, 40, 601, 397)
GUICtrlSetData(-1, "")
$Label1 = GUICtrlCreateLabel("Code eingeben/kopieren - nach dem Schließen ist dieser in der " & _
"Zwischenablage konvertiert verfügbar", 78, 11, 483, 17)
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Func Form1Close()
ClipPut(_convert2shoutbox(GUICtrlRead($Edit1)))
Exit
EndFunc
Func _convert2shoutbox($STRING)
Local $strOut = "", $var
If $STRING = "" Then Exit
$var = StringSplit($STRING, @CRLF)
If IsArray($var) Then
For $i = 1 To $var[0]
If ( $i < $var[0] And $var[$i] <> "" ) Then
$strOut &= StringStripWS($var[$i], 3) & " /br "
ElseIf ( $i = $var[0] And $var[$i] <> "" ) Then
$strOut &= StringStripWS($var[$i], 3)
EndIf
Next
Return $strOut
Else
Return $STRING
EndIf
EndFunc