Beiträge von Oscar

Ich würde anders vorgehen und dem Stick einen Namen (Label) geben. Dann kann man vor der Installation den aktuellen Laufwerksbuchstaben auslesen:

Also diese Funktion:

Func _ArrayExCompare($aArray1, $aArray2)

EndFunc

hat bestimmt eine superkurze Laufzeit. Nur schade, dass sie nicht funktioniert.

Spass beiseite: Die UDF ist ja sicher gut gedacht, aber ohne jegliche Funktionsbeschreibung werden nur wenige etwas damit anfangen können.
Die Beispiele sind jetzt auch nicht so aussagekräftig. Schau Dir mal die anderen UDFs an. Kommentare sind dringend notwendig.

Da fehlte ein Punkt und $10 gibt es nicht. Das geht nur von $1...$9.
Aber so geht es:

P.S.: Zum einfügen von AutoIt-Code bitte den AutoIt-Tag im Editor benutzen und bei längeren Quelltexten zusätzlich den Spoiler verwenden.

x0r: dann ist es ja ein permanentes Passwordfeld. Das ist ja gerade nicht erwünscht.

Das Problem hatte ich auch schonmal. Das Inputfeld kann man mit GUICtrlSetStyle später nicht in ein Passwordfeld "umwandeln".
Es funktioniert aber mit GUICtrlSendMsg (siehe unten):

Ich habe Dir die Zeile mal kommentiert (vielleicht hilft das beim verstehen):

$sText = StringRegExpReplace($sText, '.{10}(\d{6}) (.{3})(.)(.+?) (.{3})(.)(.+?) (.+?)', ' $3$6$1 $2$3$4 $5$6$7 $8') ; die Formatierung ändern

; das Pattern gruppiert den String (pro Zeile)
; ".{10}" = 10 beliebige Zeichen, ohne Klammer, weil nicht benötigt
; "(\d{6})" = 6 Ziffern -> $1 in dem Ersetzungsstring
; "(.3)" = 3 beliebige Zeichen -> $2 in dem Ersetzungsstring
; "(.)" = 1 beliebiges Zeichen -> $3 in dem Ersetzungsstring
; "(.+?)" = 1 oder mehr beliebige Zeichen bis zum nächsten (wegen dem ?) Leerzeichen -> $4 in dem Ersetzungsstring
; "(.{3})" = 3 beliebige Zeichen -> $5 in dem Ersetzungsstring
; "(.)" = 1 beliebiges Zeichen -> $6 in dem Ersetzungsstring
; "(.+?)" = 1 oder mehr beliebige Zeichen bis zum nächsten (wegen dem ?) Leerzeichen -> $7 in dem Ersetzungsstring
; "(.+?)" = 1 oder mehr beliebige Zeichen bis zum nächsten (wegen dem ?) Leerzeichen -> $8 in dem Ersetzungsstring

; Im Ersetzungsstring kann man dann die Gruppen beliebig zusammensetzen, hier mit entsprechenden Leerzeichen dazwischen

Es wird ihm wohl um OCR gehen. Das hatten wir schon einige Male hier im Forum diskutiert (Google-Suche: "ocr site:https://autoit.de/www.autoit.de" dürfte genügend Treffer bringen).

veronesi: Ok, Du hast recht. Das war mir (bisher) nicht bekannt.

WhiteLion: Beschreib mal genauer, wie Du testest. Ist das ein regulärer Rechner oder eine VM? Ich hatte bisher noch nie Probleme mit _Singleton (auf allen Rechnern, wo ich das bisher getestet habe).

Bei den regulären Ausdrücken ist es sehr wichtig, wie die Formatierung aussieht und wie sie anschließend aussehen soll. Deswegen bei solchen Anfragen immer ganz genau schreiben was wie geändert werden soll und was dort möglicherweise für Zeichen stehen können.
Für einen Anfänger sind solche reguären Ausdrücke nicht ganz einfach nachzuvollziehen (eigene Erfahrung), aber das kommt mit der Zeit.
Hier jetzt also das geänderte Script:

$sFilename = FileOpenDialog('Bitte Textdatei zum konvertieren auswählen', @ScriptDir, 'Text (*.alt)', 1) ; Dialogbox zum auswählen der Datei
If @error Then Exit ; wenn der Benutzer auf 'abbrechen' geklickt hat, dann Script beenden
$sText = FileRead($sFilename) ; Datei einlesen
$sText = StringRegExpReplace($sText, '.{10}(\d{6}) (.{3})(.)(.+?) (.{3})(.)(.+?) (.+?)', ' $3$6$1 $2$3$4 $5$6$7 $8') ; die Formatierung ändern
$sNewFilename = StringRegExpReplace($sFilename, '(.+)\.alt', '$1.neu') ; Neuen Dateinamen generieren
$hFile = FileOpen($sNewFilename, 2) ; Datei zum schreiben öffnen
If $hFile <> -1 Then ; wenn erfolgreich, dann...
FileWrite($hFile, $sText) ; neuen Text schreiben
FileClose($hFile) ; Datei schließen
EndIf

Ich hoffe, dass das jetzt so passt, ansonsten melde Dich einfach nochmal.

Als Dateiendung soll dann ".neu" da stehen?
Dann geht es so:

Zitat von veronesi

Warum nicht mit einem einfachen Zweizeiler?

[autoit]

If WinExists(StringTrimRight(@ScriptName, 4) & "1") Then Exit ;Allow only one instance of this script!
AutoItWinSetTitle(StringTrimRight(@ScriptName, 4) & "1")

[/autoit]

Weil nicht jedes Script auch ein Fenster öffnet.
Man sollte schon auf den Prozess prüfen. Aber ansonsten schließe ich mich name22 und AspirinJunkie an. _Singleton funktioniert sehr wohl unter Win7 64 Bit.

Hier eine Variante mit Dateiauswahl:

So ein umkonvertieren geht doch recht problemlos. Einlesen, etwas mit StringReplace bzw. StringRegExReplace hantieren und dann wieder schreiben.
Das sind nur ein paar Zeilen:

$sText = FileRead(@ScriptDir & '\test.txt')
$sText = StringReplace($sText, '-', '+ ') ; 1. Schritt: alle Minuszeichen in Pluszeichen mit zusätzlichem Leerzeichen
$sText = StringRegExpReplace($sText, '(\+ ).(.).(.)', '$1$2$3') ; 2. Schritt: die Formatierung im ersten Block ändern
$sText = StringRegExpReplace($sText, '(\+ .{6}).(.+)', '$1$2') ; 3. Schritt: die Formatierung im zweiten Block ändern
$hFile = FileOpen(@ScriptDir & '\text_neu.txt', 2) ; Datei "text_neu.txt" zum schreiben öffnen
If $hFile <> -1 Then ; wenn erfolgreich, dann...
FileWrite($hFile, $sText) ; neuen Text schreiben
FileClose($hFile) ; Datei schließen
EndIf

Auch wenn Du es schon gelöst hast, ich würde folgende Variante benutzen:

#include <Array.au3>
$sText = FileRead(@ScriptDir & '\test.txt')
$array = StringRegExp($sText, 'vertex (\H+) (\H+) (\H+)', 3)
_ArrayDisplay($array)

Dann hast Du gleich alle Einträge getrennt im Array und benötigst nicht extra noch ein StringSplit.

Und außerdem wird mit Opt('GUIOnEventMode', 1) der OnEventMode eingeschaltet und trotzdem gibt es eine MessageLoop-Schleife (und kein einziges GUICtlrSetOnEvent).
Du timyboy solltest Dich mal für einen Modus entscheiden.

butter: Wenn ein Thema gelöst ist, dann bitte nicht den Beitrag löschen, sondern das Thema als gelöst markieren. Ich habe das jetzt mal für Dich getan.

Der "Fehler" liegt daran, dass Du beim RegEdit die 64Bit-Werte angezeigt bekommst und AutoIt die 32Bit-Werte anzeigt.
Du musst also entweder beim RegEdit unter "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node" nachsehen oder bei AutoIt die Zeile #AutoIt3Wrapper_UseX64=y an den Anfang des Scripts schreiben:

#AutoIt3Wrapper_UseX64=y

For $i = 1 To 10
$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
If @error <> 0 Then ExitLoop
MsgBox(4096, "SubKey #" & $i & " under HKLM\Software: ", $var)
Next

Was ist daran kompliziert? Die Funktion "_ChangeSlider" wird aufgerufen, sobald der Slider bewegt wird. Dazu registriert man (mit GUIRegisterMsg) den Event ($WM_HSCROLL) und gibt die Funktion an, die aufgerufen werden soll und muss dann gar nicht mehr selbst abfragen, ob der Slider bewegt wurde.

Ich würde es so machen:

Klasse! Ich hab's noch etwas erweitert und den Pausen-Bug beseitigt. Jetzt bin ich ganz zufrieden. Ich danke Dir!
Neue Version in Post #1.