Beiträge von BugFix

  • Excel automatisch scrollen

    Das Scrollen erreichst du mit Range.Activate

    Hier ein Bsp.:

    [autoit]

    Local $oExcel = ObjCreate("Excel.Application") ; Excel-Objekt erstellen
    $oExcel.Visible = 1
    $oExcel.SheetsInNewWorkbook = 1 ; Anzahl der gewünschten Sheets beim Erstellen festlegen
    Local $oBook = $oExcel.Workbooks.Add ; im Excel-Objekt ein Workbook-Objekt erstellen
    Local $oSheet = $oBook.Sheets(1) ; Sheet-Objekt für Sheet 1 erstellen (Name oder Index)
    $oSheet.Name = 'Mein Sheet'

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

    For $i = 0 To 60
    For $j = 0 To 6
    $oSheet.Range("A1").Offset($i, $j).Value = Random(8,30,1)
    Next
    $oSheet.Range("A1").Offset($i, $j).Activate
    Sleep(50) ; nur damit es besser zu sehen ist
    Next

    [/autoit]

  • Frei wählbare Tastenkombis

    Oder du gibst Auswahlfelder vor. Prüfe aber vor Verwendung auf Sinnhaftigkeit ('ALT+F4' od. 'STRG+ALT+ENTF') ;)
    Wobei das nicht unbedingt optimal ist, da häufig "Taste1_down - Taste2 - Taste1_up" verwendet werden muß. Das kannst du aber noch anpassen.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    Opt("GUIOnEventMode", 1)
    Global Enum $sSTRG, $sALT, $sSHIFT, $sWIN, $iAnz
    Global $aS[$iAnz], $sCombo = 'a', $sSEND

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

    $Form1 = GUICreate("Form1", 518, 143, 192, 114)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    $Group1 = GUICtrlCreateGroup("", 24, 32, 257, 57)
    $cbSTRG = GUICtrlCreateCheckbox("STRG", 32, 56, 65, 17)
    GUICtrlSetOnEvent(-1, "cbSTRGClick")
    $cbSHIFT = GUICtrlCreateCheckbox("SHIFT", 96, 56, 57, 17)
    GUICtrlSetOnEvent(-1, "cbSHIFTClick")
    $cbALT = GUICtrlCreateCheckbox("ALT", 160, 56, 49, 17)
    GUICtrlSetOnEvent(-1, "cbALTClick")
    $cbWIN = GUICtrlCreateCheckbox("WIN", 216, 56, 57, 17)
    GUICtrlSetOnEvent(-1, "cbWINClick")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label1 = GUICtrlCreateLabel("+", 296, 53, 14, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Group2 = GUICtrlCreateGroup("", 320, 32, 105, 57)
    $Combo1 = GUICtrlCreateCombo("", 333, 55, 80, 25)
    GUICtrlSetOnEvent(-1, "Combo1Change")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $btOK = GUICtrlCreateButton('OK', 450, 55, 40, 20)
    GUICtrlSetOnEvent(-1, 'btOKClick')
    GUICtrlSetData($Combo1, 'a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|0|1|2|3|4|5|6|7|8|9|F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12', 'a')

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

    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(100)
    WEnd

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

    Func btOKClick()
    $sSEND = '"'
    For $i = 0 To $iAnz -1
    If $aS[$i] <> '' Then $sSEND &= $aS[$i]
    Next
    $sSEND &= $sCombo & '"'
    MsgBox(0, 'Kombi', $sSEND)
    EndFunc

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

    Func cbALTClick()
    $aS[$sALT] = ''
    If BitAND(GUICtrlRead($cbALT), $GUI_CHECKED) Then $aS[$sALT] = '!'
    EndFunc

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

    Func cbSHIFTClick()
    $aS[$sSHIFT] = ''
    If BitAND(GUICtrlRead($cbSHIFT), $GUI_CHECKED) Then $aS[$sSHIFT] = '+'
    EndFunc

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

    Func cbSTRGClick()
    $aS[$sSTRG] = ''
    If BitAND(GUICtrlRead($cbSTRG), $GUI_CHECKED) Then $aS[$sSTRG] = '^'
    EndFunc

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

    Func cbWINClick()
    $aS[$sWIN] = ''
    If BitAND(GUICtrlRead($cbWIN), $GUI_CHECKED) Then $aS[$sWIN] = '#'
    EndFunc

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

    Func Combo1Change()
    $sCombo = GUICtrlRead($Combo1)
    If StringLen($sCombo) > 1 Then $sCombo = '{' & $sCombo & '}'
    EndFunc

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

    Func Form1Close()
    Exit
    EndFunc

    [/autoit]

  • Zwischen komma

    Hier mal zur Erklärung:

    Ich mache es zweistufig:

    zwischen 1. und 2. Komma entfernen
    '(\w,)' Buchstabe/Zahl und Komma ==> in Klammern bilden erste Backreferenz ($1)
    '(\w,)' Buchstabe/Zahl und Komma ==> in Klammern bilden zweite Backreferenz ($2)
    '(.+)' beliebiges Zeichen ein/mehrfach ==> in Klammern bildet dritte Backreferenz ($3)
    Das alles wird ersetzt durch die Backreferenzen $1 und $3

    Das jetzige Ergebnis wird wiederum in Backreferenzen erfasst
    '((\w,){3})' Backreferenz $1 enthält Backreferenz $2 3-mal
    '(\w,){2}' Backreferenz $3 (2-mal) ist das zu enfernende Element
    '(.+)' Backreferenz $4
    Backreferenzen $1 und $4 enthalten das gewünschte Ergebnis.

  • another Spam Mail

    Ich habe eine "sehr seriöse" Mail bekommen. Möchte ich euch nicht vorenthalten. :whistling:

    Absender: "Otto Macrowski" <xsomit@cnzhongao.com>
    Betreff: Stellenangebot der Bundesagentur fur Arbeit

    Spoiler anzeigen

  • Hardware sicher entfernen

    Windows nervt ja immer, wenn ein USB-Datenspeicher 'einfach so' abgezogen wird.
    Die Frage ist aber eher: Wann ist es zwingend notwendig, den Datenträger vorher vom System abzumelden?
    Und das ist nur dann der Fall, wenn noch mit Schreibvorgängen zu rechnen ist. Bei FAT/FAT32 formatierten Datenträgern (im Normalfall sind alle Sticks damit formatiert) besteht da also keine Notwendigkeit. Ist der Datenträger allerdings NTFS formatiert muß er abgemeldet werden, damit evtl. im Schreibcache liegende Daten noch geschrieben werden können.

    Nachteil wenn man den Datenträger ohne Abmeldung dann ausstöpselt: Die lästige Windowsmeldung.