Beiträge von funkey

  • CSV-Editor V0.8 (Stand 23.04.2010)

    Hallo Freunde!

    Anbei mein neuestes kleines Projekt. Ich habe einen kleinen CSV-Editor erstellt. Es sollen zwar noch weitere Optionen hinzukommen, aber es funktioniert schon ganz gut!
    Einfach den Eintrag doppelklicken, um ihn zu editieren. Enter übernimmt die Änderung. Strg+{Enter} fügt einen Linefeed zum Itemtext hinzu, um praktisch mehrzeilige Einträge zu generieren.
    Nun können auch neue Dateien erstellt werden.

    Viel Spaß!

    Infos zu den Versionen

    Version 0.2
    --> Erste Reihe kann als Header verwendet werden.

    Version 0.3
    --> Header editieren
    --> Dateien direkt mit dem kombilierten Skript öffnen
    --> Dateiname im Fenstertitel anzeigen
    --> Inifile um Optionen zu speichern

    Version 0.4
    --> Farbe für das Listview (zum selber auswählen)
    --> Optionales OnTop-Fenster
    --> Drag and drop von Dateien in das Listview
    --> Resizing des Fensters
    --> HTML-Export :!:

    Version 0.5
    --> Optionales Index-Anzeige hinzugefügt
    --> Listview nun mit abwechselnden Farben

    Version 0.6
    ;Improved saving speed
    ;Added saving the window position and size
    ;Added progressbar during saving and opening
    ;Added 'Delete rows' for selected rows in context menu
    ;Added 'Delete column' for selected column in context menu
    ;Added inserting of new columns and rows
    ;Added making backup files when saving
    ;Added toolbar
    ;Fixed some bugs
    ;Changed index showing

    Version 0.7
    ;Fixed bugs
    ;Added: Icon
    ;Added: Save file when exiting
    ;Added asterisk (star) to see if file has changed
    ;Added in context menu: row to clip
    ;Added in context menu: column to clip
    ;Added: Support full CSV format <-- thanks a lot to progandy!!
    ;Added: Enter @LF to item with Ctrl+{Enter}

    Version 0.8
    ;Fixed bugs
    ;Added: Cut, copy and paste rows
    ;Added: Renew index after changing row(s)
    ;Added: Accelerators
    ;Added: Search and replace strings
    ;Added: Hide toolbar if you want
    ;Added: Buttons for row up / row down
    ;Added: Create new file

    Icon

  • selfdelete - ohne Batch-Datei

    Sehr gute Idee! :thumbup:

    Hier noch einige Verbesserungsvorschläge:
    Verwende @ScriptName anstelle von @ScriptFullPath, sonst funktioniert es nicht.
    Verwende eine unbekannte IP-Adresse um den Parameter w wirksam werden zu lassen und die Wartezeit einstellbar zu machen.

    Spoiler anzeigen
    [autoit]

    Func _selfdelete($iWait = 1000) ;wait 1000ms as default
    ShellExecute(@ComSpec, "/c ping 0.0.0.1 -n 1 -w " & $iWait & " & del " & @ScriptName, @ScriptDir, "open", @SW_HIDE)
    EndFunc

    [/autoit]

  • Betriebsystem Version

    Das 'Profesional' erhalte ich nur über die WMI. Schade, über die Registrierung ginge es schneller.

    Spoiler anzeigen
    [autoit]

    Local $ProductName = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
    Local $CSDVersion = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
    Local $BuildLab = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "BuildLab")
    Local $ProductId = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId")

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

    ConsoleWrite(_GetBSVersion() & @CR)
    ConsoleWrite(@CR)
    ConsoleWrite($ProductName & @CR)
    ConsoleWrite($CSDVersion & @CR)
    ConsoleWrite($BuildLab & @CR)
    ConsoleWrite($ProductId & @CR)

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

    Func _GetBSVersion()
    Local $oWMI = ObjGet("winmgmts:\\localhost\root\CIMV2")

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

    For $oI In $oWMI.ExecQuery("SELECT Caption FROM Win32_OperatingSystem", "WQL", 0x10 + 0x20)
    Return $oI.Caption
    Next
    Return ""
    EndFunc

    [/autoit]

  • Pfad Trimmen

    [autoit]

    $string = "C:\Windows\System32\winrm\0407\"
    MsgBox(0, "Mit Backslash am Ende", StringLeft($string, StringInStr($string, "\", 0, -2)))

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

    $string = "C:\Windows\System32\winrm\0407"
    MsgBox(0, "Ohne Backslash am Ende", StringLeft($string, StringInStr($string, "\", 0, -1)))

    [/autoit]

  • Game - Icon Tactics

    Anbei die Beta-Version meines neuesten Spieles. Es nennt sich Icon-Tactics und ist ein Bejeweled-Clone. Ich habe es ebenfalls durch eine Clone-Version kennengelernt und zwar auf dem Nokia N900 unter dem Namen Battle Gweled.

    Es gibt noch einige Bugs zu beseitigen, auch grafisch bin ich überhaupt noch nicht zufrieden, aber es ist schon ziemlich gut spielbar.

    Viel Spaß und danke für Kommentare ;)


    P.S. Mein Rekord liegt bei 890 Punkten.

  • Gleichgewicht halten (Spiel)

    Das Spiel ist ganz nett! Die Idee ist sehr gut, umgesetzt auch sehr schön! :thumbup:

    Ich kann es aber irgendwie nicht, oder bin ich zu langsam. Rekord ist bei mir bei acht Sekunden. ;(
    Du brauchst für die Schrift doch keine eigenen Bilder zu verwenden, das klappt doch genausogut mit Labeln. Auch für einfache geometrische Formen bräuchte man keine externen Resourcen.

  • Tooltip (Win Tool Tips auslesen)

    Ich weiß zwar nicht, was das ganze da in "Jobbörse" macht, aber meinst du vielleicht sowas:

    Aktueller Tooltip wird in die Console geschrieben
    [autoit]

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

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

    Local $wl, $List, $LastList = ''

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

    While 1
    $List = ''
    $wl = WinList("[class:tooltips_class32]");get all th etooltips

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

    For $n = 1 To $wl[0][0]
    If BitAND(WinGetState($wl[$n][1]), 2) Then;if visible
    $List &= WinGetTitle($wl[$n][1]); read the title, which for a tooltip is the text
    EndIf
    Next
    If $List <> $LastList And $List <> '' Then
    ConsoleWrite($List & @CRLF)
    $LastList = $List
    EndIf
    WEnd

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]