Beiträge von BugFix

  • gettext from cmd

    Ich verstehe deine Frage nicht. :S
    Du willst wissen, wie man die Console ausliest - es wird dir gezeigt.
    Das scheint dir nicht zu gefallen/zu mühselig zu sein und du fragst ob es "einfach" geht.
    Was willst du also?

  • Chiffrierungstool

    Aber wie gesagt, einfach StringSplit mit Leerstring. ;)

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Enigma = GUICreate("Enigma", 442, 413, 344, 193)
    $head = GUICtrlCreateLabel("Enigma", 161, 16, 119, 41)
    GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    $title_eingabe = GUICtrlCreateLabel("Text:", 32, 70)
    $eingabe = GUICtrlCreateInput("", 32, 88, 385, 89)
    GUICtrlSetData(-1, "")
    $title_ausgabe = GUICtrlCreateLabel("Hex:", 32, 206)
    $ausgabe = GUICtrlCreateEdit("", 32, 224, 385, 89)
    GUICtrlSetData(-1, "")
    $code = GUICtrlCreateButton("codieren", 36, 336, 121, 25, $WS_GROUP)
    $copyright = GUICtrlCreateLabel("Scripted by UWC | Schrubber @ 2009", 8, 392, 184, 17)
    $zwischenablage = GUICtrlCreateButton("Zwischenablage", 165, 336, 121, 25, $WS_GROUP)
    $quit = GUICtrlCreateButton("Quit", 295, 336, 121, 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 $code
    GUICtrlSetData($ausgabe, '')
    Dim $arstring = StringSplit(GUICtrlRead($eingabe), ''), $str = ''
    For $i = 1 To UBound($arstring) -1
    $str &= StringUpper(Hex(Asc($arstring[$i]), 2)) & ' '
    Next
    GUICtrlSetData($ausgabe, $str)
    Case $quit
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • Regular Expression

    SRE ist immer langsamer, das ist m.E. die schnellste Stringvariante:

    Spoiler anzeigen
    [autoit]

    #include <array.au3>

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

    $string = '"Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d "Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
    '"A:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d"Y:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
    '"B:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"F\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
    '"C:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
    '"D:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "T:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
    '"E:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"'

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

    $a1 = StringSplit($string, @CR, 2)
    Local $aPath[UBound($a1)]

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

    For $i = 0 To UBound($a1) -1
    $aTmp = StringSplit($a1[$i], '.', 2)
    $aPath[$i] = StringStripWS(StringReplace($aTmp[0], '"', ''), 1) & ".zip"
    Next

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

    _ArrayDisplay($aPath)

    [/autoit]

  • Scite Calltip in UDF integrieren?

    Zitat von Tigger1975

    gibt es eine Möglichkeit die Scite Call Tips in die UDF zu integrieren


    :D Genau andersrum wird ein Schuh draus. Beim Erstellen einer UDF kannst du dir dafür auch einen Calltip erstellen. Dazu in der Datei "...\Scite\api\au3.user.calltips.api" deine Funktionen mit den Parametern eintragen [ Muster: _MyUDF( para1, para2 ); #include <irgendwas.au3> ].
    Sollte die Datei noch nicht existieren, kannst du sie erstellen. Verwende auf gar keinen Fall die "..\au3.calltips.api"! Dann werden deine Einträge bei jeder Aktualisierung von SciTE gelöscht.

  • [gelöst] Netzwerkproblem...

    Ich glaube, man sollte sich wirklich mal eine Liste erstellen mit Fehlern und wie man sie beseitigt hat.
    Die DNS Geschichte ist tatsächlich so 'selbstverständlich', dass ich seit Jahren konsequent bei jedem Rechner sofort freie Serveradressen eintrage. Das ist einem dann gar nicht mehr bewußt. :S
    Hatte in Urzeiten, als AOL einer der ersten existierenden Provider war, auch solche Probleme, die mit Änderung DNS gelöst waren.
    Aber man wird halt alt und vergißt schnell.. :wacko:

  • gettext from cmd

    Zitat von Andy

    poste mal dein script....

    Zitat von Frayzer

    naja also ich habe hier meine cmd:

    $hwnd = WinGetHandle("C:\WINDOWS\system32\cmd.exe")


    Das ist kein Skript, sondern nur der CMD-Aufruf. Wir möchten gern das Skript sehen, wo du versuchst mit StdoutRead() den Consoleninhalt zu lesen. Das geht tadellos, brauchst nur das Hilfebsp. zu verwenden.

  • Editfeld aktualisieren

    Vielleicht erklärst du erst mal, was du tun möchtest.
    Der jetzige Code ist so voller Fehler, dass man nicht erkennen kann, was du eigentlich tun möchtest.
    Sieh selber:
    $test = StringSplit(GUICtrlRead(-1, $Date), "/")
    Die Control-ID -1 bezieht sich immer auf das zuletzt erstellte Control. Also die ID-Variable nutzen

    GUICtrlSetData($edit,$edit)
    ID und Variable für Inhalt mit demselben Namen!

    Dann liest du eine INI mit FileRead ein !! Wozu gibt es INIRead?