Beiträge von BugFix

  • StringRegExp Fragen

    Zitat von Nilo

    1.Wozu brauch man StringRegExp/StringRegExpReplace?
    2.Wie verwendet man StringRegExp?
    3.Wo kann man es gebrauchen?


    1. Um Texte nach bestimmten Mustern zu durchsuchen und diese ggf. zu ersetzen.
    2. Das ist sehr komplex. Es gibt niemals nur einen Lösungsweg. Lies meines und andere Tutorial und probiere dich aus.
    3. Gebrauchen kann man es überall dort, wo Textbestandteile, die einem bestimmten Muster entsprechen gesucht und/oder ersetzt werden sollen.

    Das war die Kurzform, weiteres kannst du in der Hilfe nachlesen.

  • RichEdit - Link öffnen und in Tab einbauen

    2. genau wie im Bsp.:

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #include "GuiRichEdit.au3"
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SendMessage.au3>
    #include <WindowsConstants.au3>
    Opt("MustDeclareVars", 1)

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

    Global $h_RichEdit
    _Main()

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

    Func _Main()
    Local $msg, $hgui, $button
    Local $mnuOptions, $mnuBKColor, $mnuResetBKColor
    Local $bkcolor, $bkcolor_save = 16777215, $lResult

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

    $hgui = GUICreate("Rich Edit Example", 500, 550, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
    $mnuOptions = GUICtrlCreateMenu("Options")
    $mnuBKColor = GUICtrlCreateMenuItem("Set Back Color of Control", $mnuOptions)
    $mnuResetBKColor = GUICtrlCreateMenuItem("Reset Back Color of Control", $mnuOptions)

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

    $h_RichEdit = _GUICtrlRichEditCreate ($hgui, 10, 10, 480, 420, BitOR($ES_WANTRETURN, $WS_HSCROLL, $ES_SUNKEN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    GUICtrlSetResizing($h_RichEdit, $GUI_DOCKAUTO)
    $lResult = _SendMessage($h_RichEdit, $EM_SETEVENTMASK, 0, BitOR($ENM_REQUESTRESIZE, $ENM_LINK, $ENM_DROPFILES, $ENM_KEYEVENTS, $ENM_MOUSEEVENTS))
    _DebugPrint ("$h_RichEdit handle: " & $h_RichEdit)
    $lResult = _SendMessage($h_RichEdit, $EM_AUTOURLDETECT, True)
    _GUICtrlRichEditInsertText ($h_RichEdit, 'Testing' & @CRLF)
    $button = GUICtrlCreateButton("Exit", 100, 460, 100, 25)
    GUISetState(@SW_SHOW)
    Sleep(1000)
    _GUICtrlRichEditSetText ($h_RichEdit, "This is a test" & @CRLF)
    Sleep(1000)
    _GUICtrlRichEditAppendText ($h_RichEdit, 'http://www.autoitscript.com/forum' & @CRLF)
    Sleep(1000)
    _GUICtrlRichEditSetSel ($h_RichEdit, 0, 15)
    Sleep(1000)
    _GUICtrlRichEditInsertText ($h_RichEdit, "Welcome to AutoIt" & @CRLF)
    Sleep(1000)
    _GUICtrlRichEditAppendText ($h_RichEdit, 'mailto:yourmail@your.com' & @CRLF)
    _GUICtrlRichEditSetSel($h_RichEdit, 0, 17)
    Local $a_Result = _GUICtrlRichEditGetSel($h_RichEdit)
    ;Register WM_NOTIFY events
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY_Events")
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE Or $msg = $button
    Exit
    Case $msg = $GUI_EVENT_RESIZED
    _SendMessage($h_RichEdit, $EM_REQUESTRESIZE)
    Case $msg = $mnuBKColor
    $bkcolor = _ChooseColor(0, 16777215)
    If Not @error Then
    $bkcolor_save = _SendMessage($h_RichEdit, $EM_SETBKGNDCOLOR, 0, $bkcolor)
    EndIf
    Case $msg = $mnuResetBKColor
    _SendMessage($h_RichEdit, $EM_SETBKGNDCOLOR, 1, $bkcolor_save)
    EndSelect
    WEnd
    EndFunc ;==>_Main

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

    Func WM_NOTIFY_Events($hWndGUI, $MsgID, $wParam, $lParam)
    #forceref $hWndGUI, $MsgID
    Local $identifier, $nmhdr, $hwndFrom, $idFrom, $code
    $nmhdr = DllStructCreate($NMHDR_fmt, $lParam)
    $hwndFrom = DllStructGetData($nmhdr, 1)
    $idFrom = DllStructGetData($nmhdr, 2)
    $code = DllStructGetData($nmhdr, 3)
    Switch $hwndFrom
    Case $h_RichEdit
    Switch $code
    Case $EN_LINK
    Local $EN_LINK_struct = DllStructCreate($ENLINK_fmt, $lParam)
    $hwndFrom = DllStructGetData($EN_LINK_struct, 1)
    $idFrom = DllStructGetData($EN_LINK_struct, 2)
    $code = DllStructGetData($EN_LINK_struct, 3)
    Local $en_link_msg = DllStructGetData($EN_LINK_struct, 4)
    Local $en_link_wParam = DllStructGetData($EN_LINK_struct, 5)
    Local $en_link_lParam = DllStructGetData($EN_LINK_struct, 6)
    Local $cpMin = DllStructGetData($EN_LINK_struct, 7)
    Local $cpMax = DllStructGetData($EN_LINK_struct, 8)
    If BitAND($en_link_msg, $WM_LBUTTONDOWN) = $WM_LBUTTONDOWN Then
    Local $link_clicked = _GUICtrlRichEditGetText ($hwndFrom, $cpMin, $cpMax) ; doesn't seem to work on zoomed text
    If $link_clicked <> "" Then Run(@ComSpec & ' /c START "" "' & $link_clicked & '"', @SystemDir, @SW_HIDE)
    EndIf
    Case $EN_MSGFILTER
    Local $EN_MSGFILTER_struct = DllStructCreate($msgfilter_fmt, $lParam)
    $hwndFrom = DllStructGetData($EN_MSGFILTER_struct, 1)
    $idFrom = DllStructGetData($EN_MSGFILTER_struct, 2)
    $code = DllStructGetData($EN_MSGFILTER_struct, 3)
    Local $en_msgfilter_msg = DllStructGetData($EN_MSGFILTER_struct, 4)
    Local $en_msgfilter_wParam = DllStructGetData($EN_MSGFILTER_struct, 5)
    Local $en_msgfilter_lParam = DllStructGetData($EN_MSGFILTER_struct, 6)
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY_Events

    [/autoit]

    Läßt sich noch weiter kürzen - aber $EN_LINK ist der Schlüssel.

  • Themen Builder

    Als komplexe Funktion habe ich es bisher nicht gesehen.
    Wenn ich es völlig individuell möchte, verwende ich die GUI im WS_POPUP-Style und verwende eigene Images als Button (mit entsprechendem Klick-Effekt). Auch Menüleisten lassen sich auf diese Weise farbig gestalten und sind flexibler.

  • Google öffnet die Quellen von Chrome OS

    Bei Google muß ich immer irgendwie an den Rattenfänger von Hameln denken. :rolleyes:
    Mit tollen (bzw. toll erscheinenden) technischen Rafinessen werden die Kindlein angelockt und vergessen alle Vorsichtsmaßnahmen.
    z.B. GoogleStreetView
    - massenhafte Verletzung des Datenschutzes
    - Eingriff in die Privatsphäre
    Der Google-Browser wurde auch erst nach massiven Protesten von einem Spionagetool gesäubert.

    Wenn Monopolstellungen entstehen, hat der normale User nix mehr zu lachen. Aus meiner Sicht auch ein blankes Horrorszenario.

  • Buchstabenhäufigkeit

    Die Buchstabenhäufigkeit kannst du (ohne große Skriptänderung) etwas komfortabler ermitteln:

    [autoit]

    Local $text = 'Dein Text'
    Local $sLetter = ' abcdefghijklmnopqrsßtuvwxyzäöüABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ'
    Local $aLetter = StringSplit($sLetter, '', 2)
    Local $aOut[UBound($aLetter)][2]
    For $i = 0 To UBound($aLetter) -1
    StringReplace($text, $aLetter[$i], '', Default, 1)
    $aOut[$i][0] = $aLetter[$i] ; Buchstabe
    $aOut[$i][1] = @extended ; Häufigkeit in $text
    Next
    _ArrayDisplay($aOut)

    [/autoit]

  • Wie weise ich einem Button 2 befehle zu ?

    Zwei- oder mehrmals Case zu einer ID geht auch - mit ContinueCase.
    Macht zwar wenig Sinn, da es einfacher ist beide Befehle nacheinander in einem Case abzuarbeiten.

    [autoit]

    GUICreate('test')
    $b1 = GUICtrlCreateButton('B1', 10,10,100,20)
    $b2 = GUICtrlCreateButton('ENDE', 200,10,80,20)
    GUISetState()

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

    While 1
    $m = GUIGetMsg()
    Switch $m
    Case $b1
    MsgBox(0, '', 'B1 - die Erste!')
    ContinueCase
    Case $b1
    MsgBox(0, '', 'B1 - die Zweite!')
    Case -3, $b2
    Exit
    EndSwitch
    WEnd

    [/autoit]