html coder, clipput problem

  • moin,

    muss erstmal sagen, ich bin noch nicht so weit mit autoit. trotz allem hab ich mich mal an einem html coder gemacht, nur ich komme bei der einen sache nicht weiter. mein problem liegt in reihe 50 bis 54. ich tippe darauf, das ich clipput falsch eingebaut habe. kann jemand mal bitte gucken? wäre sehr nett!

    liebe grüße,
    henning

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

    Global $ueberschrift = "HTML Code v.1.1"

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

    $HTML1 = InputBox( $ueberschrift , "Gib hier dein Text ein, der in HTML umgewandelt werden soll")

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate($ueberschrift, 381, 185, 408, 224)
    $Label1 = GUICtrlCreateLabel("Features für den Code", 24, 16, 180, 17)
    $Checkbox1 = GUICtrlCreateCheckbox("Fett", 56, 88, 97, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Kursiv", 56, 112, 97, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Unterstrichen", 56, 136, 97, 17)
    $Group1 = GUICtrlCreateGroup("Features", 40, 64, 105, 105)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $weiter = GUICtrlCreateButton("Weiter", 208, 72, 99, 25, $WS_GROUP)
    $nofeatures = GUICtrlCreateButton("Keine Features", 208, 112, 99, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $weiter
    If GUICtrlRead ($Checkbox1) = $GUI_CHECKED Then
    Clipput( "<b>" & $HTML1 & "</b> " )
    Sleep(100)
    MsgBox(0, $ueberschrift, "Dein Text wurde erfolgreich in die Zwischenablage kopiert")
    Exit
    EndIf

    If GUICtrlRead ($Checkbox2) = $GUI_CHECKED Then
    Clipput( "<i>" & $HTML1 & "</i> " )
    Sleep(100)
    MsgBox(0, $ueberschrift , "Dein Text wurde erfolgreich in die Zwischenablage kopiert")
    Exit
    Endif

    If GUICtrlRead ($Checkbox3) = $GUI_CHECKED Then
    Sleep(100)
    MsgBox(0, $ueberschrift , "Dein Text wurde erfolgreich in die Zwischenablage kopiert")
    Exit
    EndIf

    If GUICtrlRead ($Checkbox1) = $GUI_CHECKED And GUICtrlRead ($Checkbox2) = $GUI_CHECKED And GUICtrlRead ($Checkbox3) = $GUI_CHECKED Then
    Clipput( "<i><b><u>" & $HTML1 & "</i></b></u>" )
    MsgBox(0, $ueberschrift , "Dein Text wurde erfolgreich in die Zwischenablage kopiert")
    Exit
    EndIf


    Case $nofeatures
    Clipput( "<p>" & $HTML1 & "</p>" )
    MsgBox(0, $ueberschrift , "Dein Text wurde erfolgreich in die Zwischenablage kopiert")
    Exit

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

    EndSwitch
    WEnd

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

    Exit

    [/autoit]

    Einmal editiert, zuletzt von Henk´s (30. April 2010 um 17:10)

  • das programm hat mir immer eine 4 angezeigt.. bin aber dahinter gekommen, das ich das so hätte machen müssen:

    [autoit]

    If GUICtrlRead ($Checkbox1) = $GUI_CHECKED And GUICtrlRead ($Checkbox2) = $GUI_CHECKED And GUICtrlRead ($Checkbox3) = $GUI_CHECKED Then
    GUICtrlSetData ($unterebox, "<i><b><u>" & GUICtrlRead($HTML1) & "</i></b></u>" )
    Sleep (100)
    ;MsgBox(0, $ueberschrift , "Dein Text wurde erfolgreich in die Zwischenablage kopiert")
    EndIf

    [/autoit]


    hat sich dann erledigt.

    trotzdem danke !

    lg.