Beiträge von Lenny

  • StringRegEx ^

    Hallo SEuBo, und schoneinmal vielen Dank für deine Antwort.

    Das ganze klappt soweit super! An sonderzeichen kann so ziemlich Alles vorkommen (alles).

    Als Flag habe ich mal 3 genommen, damit klappt es!

    Wenn du Lust (oder Zeit) hast, würde ich mich freuen, wenn du das Pattern einmal mit Erklärung aufbröseln könntest.
    Auch wenn es nicht so aussieht, benutz ich sonst eingentlich relativ häufig StringRegEx, aber irgendwie steig ich da einfach nicht durch!

    Vielen Dank im Voraus,

    lg, Lenny

  • StringRegEx ^

    Guten Mittag und nochmal frohe Weihnachten an alle ;)

    Ich habe ein kleines Problem, mit dem ich einfach nicht fertig werde:

    Ich brauch eine StringRegEx, mit der ich einen String zwischen zwei ' ^ ' finden kann.

    Ein Beispiel:

    [autoit]


    $Ausgangsstring = "^qabcdefg^1vad3ljw"
    $Ergebnis[2] = ["^qabcdefg", "^1vad3ljw"]

    [/autoit]

    Wichtig ist zu wissen, dass unendliche viele ' ^ ' vorkommen können, aber das hinter dem ' ^ ' immer mindestens ein Buchstabe, eine Zahl oder ein Sonderzeichen steht.

    Irgendwie bin ich überfordert, auch wenn es vllt. eher ein leichtes Pattern sein wird.

    Außerdem habe ich auch Probleme mich für ein Flag zu entscheiden. Wäre super wenn irgendjemand nochmal klarstellen könnte, wann man welchen Flag benutzt :)

    Vielen Dank im Voraus,

    lG, Lenny

  • Outlook Objekt - Posteingang abrufen!

    Hallo!

    Da ich immoment Lust habe mit Objekten zu arbeiten, wollte ich mir mal mit Hilfe eines Outlook Objektes ein paar Mails aus dem Posteingang abrufen.

    Allerdings wird das Script immer mit dem Error Code:

    (19) : ==> The requested action with this object has failed.:
    $OLFold = $OLNaSp.GetDefaultFolder(1)^ ERROR

    Beendet. Hier jetzt erstmal mein Script und die Seiten, die ich zu Hilfe genommen habe:

    Spoiler anzeigen
    [autoit]

    $OLObj = ObjCreate("Outlook.Application")
    If @error Then MsgBox(64, "An error occured! 1", @error)

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

    $OLNaSp = $OLObj.GetNameSpace("MAPI")
    If @error Then MsgBox(64, "An error occured! 2", @error)

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

    $OLFold = $OLNaSp.GetDefaultFolder(1)
    If @error Then MsgBox(64, "An error occured! 3", @error)

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

    MsgBox(64, "Info", $OLFold.Items(5))

    [/autoit]

    Outlook Application Objekt: http://tinyurl.com/nsekuo
    Outlook Application Model: http://tinyurl.com/n2j5n3
    GetDefaultFolder Method: http://tinyurl.com/lyg96m
    GetDefaultFolder Values: http://tinyurl.com/mxmzyc

    Weiß da jemand vllt. etwas drüber oder hat eine Lösung?

    Vielen Dank im Voraus,

    bG, Lenny

  • Fixer URL Shortener :)

    Zitat

    Sehr schön, kommt gleich mit in meine Tool Sammlung für unsere Mitarbeiter, ich finde lange Links furchtbar :)

    Vielen Dank, mich freut es immer total wenn jemand das brauchen kann!

    Beste Grüße,
    Lenny

  • Fixer URL Shortener :)

    Hallo!

    Ich habe mal mit McPoldy's großartiger Vorlage (Twitter API) einen mini TinyURL Client geschrieben!

    Er ist klein, fix und immer schnell da wenn man eine kurze URL braucht :)

    [Blockierte Grafik: http://img.lenwo.de/files/1000_tb/urlshortener.jpg]

    Es sind ein paar neue Features dazugekommen:
    Traymenü:
    [Blockierte Grafik: http://img.lenwo.de/files/1000_tb/urlshortenertraymenu.jpg]

    • Wenn die Option im Traymenu aktiviert ist, überprüft er nun auch die Zwischenablage und schreibt sie, falls es ein Korrekter Link ist in die GUI.
    • Außerdem kann man jetzt auch bequem übers Tray Menü die Zwischen ablage kürzen!
    • Noch etwas kleines: Bei bedarf kann man das Fenster verstecken und nur die Zwischen ablage Funktion benutzen!
    • Der Exit Button im Traymenü ist auch neu! Das war es auch schon!
    • Wenn jemand noch Anregungen, Kritik oder sonstiges los werden will, würde ich mich sehr freuen!

    ------------------------------------------------------------------------------------------------------------------------------------

    Spoiler anzeigen
    [autoit]

    Opt("TrayMenuMode", 1)

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

    #include <IE.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    HotKeySet("{ESC}", "_Exit")

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

    Const $GETShortened = "http://tinyurl.com/api-create.php?url="

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

    $TinyGUI = GUICreate("Tinyurl!", 258, 51, 192, 268, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS), BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
    GUISetBkColor(0x525252)
    $Input1 = GUICtrlCreateInput("", 8, 24, 177, 21, BitOR($ES_AUTOHSCROLL, $WS_BORDER), 0)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("Tell me the URL you want to get shortened!", 0, 0, 258, 17, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetFont(-1, 9, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Button1 = GUICtrlCreateButton("Shorten It!", 192, 24, 59, 21, $WS_GROUP)

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

    #Region TrayMenu
    $TrayShortClip = TrayCreateItem("Shorten Clipboard!")
    $TrayShowHide = TrayCreateItem("Show / Hide Window")
    $TrayAutoClip = TrayCreateItem("Check Clip automatically [x]")
    TrayCreateItem("")
    $TrayExit = TrayCreateItem("Exit!")
    #EndRegion TrayMenu

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

    GUISetState(@SW_SHOW)

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

    $winState = 1
    $lastClip = ""
    $clipCorrect = 0
    $autoClip = 1

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

    WinSetOnTop($TinyGUI, "", 1)

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

    While 1
    #Region Window Dock!
    If $winState = 1 Then
    $WinPos = WinGetPos($TinyGUI)
    If $WinPos[0] <= 30 Then
    $WinPos[0] = 0
    WinMove($TinyGUI, "", $WinPos[0], $WinPos[1])
    ElseIf $WinPos[0] >= @DesktopWidth - $WinPos[2] - 30 Then
    $WinPos[0] = @DesktopWidth - $WinPos[2]
    WinMove($TinyGUI, "", $WinPos[0], $WinPos[1])
    EndIf
    If $WinPos[1] <= 30 Then
    $WinPos[1] = 0
    WinMove($TinyGUI, "", $WinPos[0], $WinPos[1])
    ElseIf $WinPos[1] >= @DesktopHeight - $WinPos[3] - 30 Then
    $WinPos[1] = @DesktopHeight - $WinPos[3]
    WinMove($TinyGUI, "", $WinPos[0], $WinPos[1])
    EndIf
    EndIf
    #EndRegion Window Dock!

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

    #Region Clip Check!
    If $autoClip = 1 Then
    $sClip = ClipGet()
    If $sClip <> $lastClip Then
    If StringLeft($sClip, 7) = "http://" Or StringLeft($sClip, 8) = "https://" Or StringLeft($sClip, 4) = "www." Then
    GUICtrlSetData($Input1, $sClip)
    $clipCorrect = 1
    Else
    $clipCorrect = 0
    EndIf
    $lastClip = $sClip
    EndIf
    EndIf
    #EndRegion Clip Check!
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    #Region But1 Action
    $sURL = GUICtrlRead($Input1)
    If $sURL = "" Then
    MsgBox(64, "Error", "Please fill the gap :)")
    Else
    If StringLeft($sURL, 7) <> "http://" And StringLeft($sURL, 8) <> "https://" Then $sURL = "http://" & $sURL
    GUICtrlSetData($Input1, _TinyQuery($GETShortened & $sURL))
    EndIf
    #EndRegion But1 Action
    EndSwitch

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

    $trayMsg = TrayGetMsg()
    Select
    Case $trayMsg = 0
    ContinueLoop
    Case $trayMsg = $TrayExit
    Exit
    Case $trayMsg = $TrayShortClip
    If $clipCorrect Then
    $shortURL = _TinyQuery($GETShortened & $sClip)
    ClipPut($shortURL)
    $lastClip = $shortURL
    ToolTip("Finish!")
    Sleep(1000)
    ToolTip("")
    Else
    ToolTip("Incorrect URL")
    Sleep(1000)
    ToolTip("")
    EndIf
    Case $trayMsg = $TrayShowHide
    If $winState = 1 Then
    GUISetState(@SW_HIDE)
    WinSetOnTop($TinyGUI, "", 0)
    $winState = 0
    ElseIf $winState = 0 Then
    GUISetState(@SW_SHOW)
    WinSetOnTop($TinyGUI, "", 1)
    $winState = 1
    EndIf
    Case $trayMsg = $TrayAutoClip
    If $autoClip = 1 Then
    $autoClip = 0
    TrayItemSetText($TrayAutoClip, "Check Clip automatically [ ]")
    ElseIf $autoClip = 0 Then
    $autoClip = 1
    TrayItemSetText($TrayAutoClip, "Check Clip automatically [x]")
    EndIf
    EndSelect
    WEnd

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    Func _TinyQuery($sURL)
    $oHTTP = ObjCreate("Microsoft.XMLHTTP")
    $oHTTP.open("GET", $sURL, False)
    $oHTTP.send("")
    $HTTPPost = $oHTTP.responseText
    Return ($HTTPPost)
    EndFunc ;==>_TinyQuery

    [/autoit]


    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Beste Grüße und vielen Dank im Voraus,

    Lenny!

  • Zeichen zusammensetzen

    Hey, warum machst du es nicht einfach so:

    [autoit]

    StringReplace(FileRead($file), @CRLF, "|")

    [/autoit]


    Ist kürzer und einfacher!

    Sonst:

    [autoit]


    $AllLines = ""
    While 1
    $line2 = FileReadLine($file)
    If @error = -1 Then
    StringTrimRight($AllLines, 1)
    ExitLoop
    EndIf
    $AllLines &= $line2 &"|"
    WEnd

    [/autoit]

  • Mein AudioPlayer...

    Hallo!

    Kann man es verhindern das mp3 direkt beim Starten auf dein Programm registriert wird ? X(

    Außerdem, wenn ich eine im Windows Explorer eine Datei auswählen will, und dein programm minimiere, ist es rechts am Bildschirmrand halb abgeschnitten.

    Sonsts siehts ganz schick aus!