Beiträge von Bitnugger

  • regexreplace

    Mich wundert vor allem, dass keiner ein Wort zu dieser Zeile in der Funktion _StringRegExpReplace_Simple gesagt hat:

    StringReplace($sString, Chr(26), "'", 0, 2)

    Die hatte ich eingebaut, weil der von mir verknüpfte Textstring nach der Ersetzungsaktion nicht mehr identisch war, was ich mir so aus dem Stehgreif aber auch nicht erklären konnte.

    If $sReplace1 <> $sReplace2 Then

    Heute bin ich der Sache auf den Grund gegangen und habe festgestellt, dass in einer der verknüpften Textdateien tatsächlich an allen Stellen, wo eigentlich ein "'" stehen sollte, ein "SUB" (Chr26)) stand. In dem Fall kann _StringRegExpReplace_Callback natürlich nicht wie erwartet funktionieren!

    Da obige Zeile somit unnötig ist, sieht das Ergebnis dann so aus:

    Code
    Name der Textdatei  = m:\OpenThesaurus-Textversion\openthesaurus.txt
Länge der Textdatei = 2711842 Bytes

_StringRegExpReplace_Simple    Substitutions = 36375  Time:  98.193910 ms
_StringRegExpReplace_Callback  Substitutions = 36375  Time: 910.024653 ms

  • regexreplace

    Zitat von BugFix

    Bei 2 möglichen Treffern brauchst du gar nicht erst vergleichen, die gemessene Zeit reflektiert dann eher deine Raumtemperatur oder die Lautstärke der vorbeifahrenden Straßenbahn als die tatsächlich benötigte Zeit.

    Hehe, sehr treffend formuliert!:)

    Zuerst einmal: Hut ab für die Funktion von @Taz27 - hat er super gemacht! - In Zeile 9 (Post #4 von BugFix) fehlt meiner Meinung nach aber bei StringInStr() ein $STR_CASESENSE.

    Ich bin jetzt mal hingegangen und habe einen kleinen Test geschrieben, der alle meine Textdateien zu einer Datei verknüpft und in dieser dann die Umlaute ersetzt.

    So sieht das Ergebnis bei mir aus:

    Code
    Anzahl der geladenen Textdateien     = 186
Länge der zusammengefügten Textdatei = 1650849 Bytes

_StringRegExpReplace_Simple    Substitutions =  2959  Time: 178.625131 ms
_StringRegExpReplace_Callback  Substitutions =  2959  Time: 315.959992 ms

    Und nun?

    Test

  • DNS-Server IP auslesen

    Auf dieser Seite wird sehr gut erklärt, nach welchen Regeln den verschiedenen Adaptern eine Metric zugewiesen wird.

    Hier noch zwei Varianten, um die lokalen IPs zu ermitteln:

    AutoIt
    Local $iPID = Run('powershell.exe ipconfig | sls "ipv4"', '', @SW_HIDE, $STDOUT_CHILD)
ProcessWaitClose($iPID)
$aIP = StringRegExp(StdoutRead($iPID), '(?:.+:)(.+)', 3)
_ArrayDisplay($aIP, 'powershell - $aIP')

$iPID = Run('ipconfig.exe /all', '', @SW_HIDE, $STDOUT_CHILD)
ProcessWaitClose($iPID)
$aIP = StringRegExp(StdoutRead($iPID), '(?:IPv4.+: )(.+)(?:\(.+)', 3)
_ArrayDisplay($aIP, 'ipconfig - $aIP')

  • Copy and Paste Gui

    Als ich mit diesem Problem zu kämpfen hatte und mein Script dann nach mehreren Stunden endlich lief, stolperte ich per Zufall über $EM_FMTLINES... mit der Erkenntnis, dass ich wieder mal viel Zeit verschwendet hatte, weil ich von den meisten Controls nur die am häufigsten verwendeten Möglichkeiten kenne. ;)

    Hier noch ein Beispiel...

    Save formated text

  • Endungen ändern / Ausnahme

    Example

  • Copy and Paste Gui

    Ich denke du suchst folgende Information:

    AutoIt
    ; ...
GUICtrlSendMsg($idEdit, $EM_FMTLINES, True, 0) ; Das Edit soll die "weichen" Zeilenumbrüche mit CRCRLF markieren
Local $sSoftBreakText = GUICtrlRead($idEdit) ; Nun holen wir uns den so präparierten Inhalt
GUICtrlSendMsg($idEdit, $EM_FMTLINES, False, 0) ; Das Edit wieder auf die Default-Formatierung umgestellen
Local $sFormatedText = StringReplace($sSoftBreakText, @CR & @CRLF, @CRLF) ; Die "weichen" Zeilenumbrüche nun durch echte ersetzen

FileWrite(@ScriptDir & '\Formated_Text.txt', $sFormatedText) ; Formatierten Text in Datei speichern
; ...

    Hier noch ein Example...

    Format Text

  • Registry - MRU Werte lassen sich nicht exportieren

  • braucht man eigentlich Excel um excel.au3 zu benutzen? oder läuft das auch ohne?

    Hier dasselbe noch mal mit der ADO.au3 UDF 2.1.15 BETA

    Dazu muss dann die Datei "ADO_Example_Excel.xls" in das Scriptverzeichnis kopieren und das "ADO_EXAMPLE.au3" ein wenig geändert werden.

    ADO_EXAMPLE.au3

    Ado_Dir.png

    Provider.png

  • braucht man eigentlich Excel um excel.au3 zu benutzen? oder läuft das auch ohne?

    So funktioniert es bei mir:

    Download and Install: Microsoft Access Database Engine 2010 Redistributable

    ==>> HKCR\CLSID\{3BE786A0-0366-4F5C-9434-25CF162E475E}|Microsoft.ACE.OLEDB.12.0|Microsoft Office 12.0 Access Database Engine OLE DB Provider

    Siehe Zeile 14...

    AutoIt
    ;~ Global $sADOConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & $sFilename & ';Extended Properties="Excel 8.0;HDR=No"'
Global $sADOConnectionString = 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' & $sFilename & ';Extended Properties="Excel 8.0;HDR=No"'
    Excel_ADO_test.au3

    Excel_ADO_test_SciTE_Output.png

  • GuiCtrlBusy - wie ToolTip, nur anders ;-) - Final [v1.0]

    Wenn in allen relevanten Funktionen überprüft wird, ob ein gültiges Window-Handle übergeben wurde und andernfalls direkt wieder mit Return SetError(1, ...) rausgesprungen wird, können alle BusyCtrl's in beliebiger Reihenfolge mit einem Linksklick geschlossen werden, insofern sie nicht bereits durch ein gesetztes TimeOut gekillt wurden. Nachdem alle BusyCtrl's geschlossen wurden (das letzte mit Linksklick), werden zwei weitere BusyCtrl's erstellt... die sich dann auch wieder mit Linksklick schließen lassen... oder via TimeOut... bis der Arzt kommt.

    :rock:

    Kurz:

    Code
    ConsoleWrite(StringSplit("Alles funktioniert wie erwartet!|Kann keinen Fehler mehr entdecken.", '|', 2)[Random(0, 1, 1)] & @CRLF)

  • GuiCtrlBusy - wie ToolTip, nur anders ;-) - Final [v1.0]

    Super! :)

    Hier noch ein paar Dinge, die mir aufgefallen sind:

    Wenn für ein BusyCtrl ein Icon gesetzt wurde, wird es - auch wenn es nicht geändert wurde - bei jedem CallBackInterval neu geladen.

    Du prüfst in deinen Funktionen nicht, ob ein gültiges Window-Handle übergeben wurde... was z. B. dazu führt, dass nachdem $hBusy7 (in deinem Example) durch mein hinzugefügtes Event (s. w. unten) geschlossen wurde, durch einen Klick auf den Button $bt4 zwei neue BusyCtrl's erzeugt werden. 8|

    Icons auch aus 'exe' und 'icl' extrahieren...

    Code
    ;~             Case 'dll'
            Case 'dll', 'icl', 'exe'

    __WinAPI_IconFromDll

    Hier solltest du den Pointer für Large Icons setzen...

    Code
    ;~ Local $iIcons = _WinAPI_ExtractIconEx($_sDll, $_iIconID, $tIcons, 0, 1) ; Small Icons
Local $iIcons = _WinAPI_ExtractIconEx($_sDll, $_iIconID, 0, $tIcons, 1) ; Large Icons


    Und eine Frage hätte ich noch... testweise habe ich mal für das Busy7 ein Event gesetzt.

    Code
    $hBusy7 = _GuiCtrlBusy_Create('Nr 7', 'Titel && Zeit\nScheme: Orange\nund eine Zeile #3\nund auch noch eine Zeile #4', -1, 100, 550, 0, 2, 'orange', True)
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_CloseBusy')

Func _CloseBusy()
    _GuiCtrlBusy_Close(@GUI_WinHandle)
EndFunc

    Ist es "normal", dass ich die Maustaste ca. 1 Sekunde lang drücken, damit dieses Event ausgelöst wird?

  • StringSplit innhalber einer Funktion, funktioniert nicht

    @Musashi

    Falls ein "Normaler User" die Funktion ändern möchte und damit nicht klar kommt, kann er ja hier im Forum um Hilfe bitten. Konstruktive Kritik an mir oder meinen Scripten ist immer willkommen! Wenn du dir meine letzte Version anschaust, wirst du auch sehen, dass ich deinen Hinweis bezüglich des "Design-Problems" umgesetzt habe. Generell denke ich, dass Scripte von helfenden Usern (vor allem in der Rubrik "Hilfe & Unterstützung") nicht als Endlösung, sondern als Vorlage und Inspiration angesehen werden sollten.

    Die Funktion von Oscar (hier fehlt noch die Auswertung der Arrays und eine Korrektur für den Wert ".CurrentLanguage") und AspirinJunkie (wieder was gelernt!) sind beide sehr schön, letztere ist allerdings ohne Error-Handler...

    ; Row|Col 0|Col 1

    ; [0]|BiosCharacteristics|{Array}

    ; [1]|BIOSVersion|{Array}

    ; [13]|ListOfLanguages|{Array}

    ".CurrentLanguage" liefert bei mir mehrere Werte, die mit einem "|" getrennt sind - identisch mit dem Inhalt des Arrays ".ListOfLanguages". Die Funktion _StringSplit2D gibt davon nur den ersten Wert zurück.