Eigene Makros in AutoIT

Reaker

habe ein Problem. Prinzip sieht so aus: Ich schreibe in zb eine InputBox ÞsktopDir%test.txt und das skript gibt mir den Pfad zurück.
Das klappt auch schon gut:

Spoiler anzeigen

[autoit]

Global $varpath[999]
Global $replace
$varpath[1] = "%DesktopDir%"
$varpath[2] = "%MyDocumentsDir%"
$varpath[3] = "%ProgramsDir%"
$varpath[4] = "%WindowsDir%"
$varpath[5] = "%SystemDir%"
$varpath[6] = "%TempDir%"
$varpath[7] = "%Scriptdir%"

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

$source = "%ScriptDir%info.txt"

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

For $i = 1 To 7
If StringInStr($source, $varpath[$i]) Then
Switch $varpath[$i]
Case "%DesktopDir%"
$replace = @DesktopDir & "\"
Case "%MyDocumentsDir%"
$replace = @MyDocumentsDir & "\"
Case "%ProgramsDir%"
$replace = @ProgramsDir & "\"
Case "%WindowsDir%"
$replace = @WindowsDir & "\"
Case "%SystemDir%"
$replace = @SystemDir & "\"
Case "%TempDir%"
$replace = @TempDir & "\"
Case "%Scriptdir%"
$replace = @ScriptDir & "\"
EndSwitch
$data = StringReplace($source, $varpath[$i], $replace)
ConsoleWrite($data & @LF)
EndIf
Next

[/autoit]

NUR, wenn ich jetz zwei "Variablen" hintereinander schreibe, wertet das Skript nur eine aus...wüsste da jemand eine Lösung?

SEuBo

Was willst du damit erreichen, 2 systemvariablen hintereinander stehen zu haben?
%Windir%%TempDir% ergibt doch C:\WindowsC:\Users\Shkal\AppData\Local\Temp

was für einen näheren Sinn hat das dann?

**peethebee**

Du suchst nicht mehr in $replace, wenn einmal ein Treffer war.

Außerdem Opt("ExpandEnvString", 1) ;).

Johannes

Reaker

SEuBo da muss ich dir absolut recht geben, aber ich wollte nicht nur die Verzeichnismakros nehmen, sondern auch noch @YEAR und des ganze Zeugs, und da macht es dann wieder Sinn

peethebee : wie müsste ich das dann machen, damit er wieder in $Replace sucht?
und gibts irgendwo so ne liste von diesen Umgebungsvariablen?

**Raupi**

Poste mal deine Txt Datei. Hab keine Lust mir selber eine zu erstellen.

Eine Liste der Macros findest du in der Hilfe unter Macro Reference.

Reaker

was meinst du für eine TXT Datei?

Nein, ich meinte die anderen, weil in der Hilfe steht zu Opt("ExpandEnvString", 1):

Ändert die Interpretation von Strings und %-Symbolen. Als Standard werden Strings buchstabengetreu behandelt, diese Option erlaubt die Benutzung von %environment% Variablen innerhalb von Strings, z.B.: "Das temp Verzeichnis ist: %temp%".

da müsste es doch dann noch mehr geben oder?

SEuBo

Rechtsklick auf den Arbeitsplatz, Eigenschaften, Reiter "Erweitert", Umgebungsvariablen. So müsste es unter xp gehen wenn ich mich nicht irre.

Unter Vista:
Windows Taste + PAUSE, Erweiterte Systemeinstellungen -> Erweitert -> Umgebungsvariablen.

Reaker

oh des sind ja doch nicht so viele wie ich erwartet hatte

dann muss ich das jetz alles manuell machen, aber ich hab halt immernoch das Problem, dass wenn ich dann später zb %Desktopdir%datei%YEAR%.txt machen würde dass er nur eine Variable auswertet...wie kann ich das nun ändern?

SEuBo

[autoit]

Global $varpath[10][2] = [["%DesktopDir%",@DesktopDir],["%MyDocumentsDir%",@MyDocumentsDir],["%ProgramsDir%",@ProgramsDir],["%WindowsDir%",@WindowsDir],["%SystemDir%",@SystemDir],["%TempDir%",@TempDir],["%Scriptdir%",@ScriptDir]]
Global $replace

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

$source = "%ScriptDir% Hallo %ProgramsDir%"

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

For $i = 0 to UBound($varpath)-1
While StringInStr($source,$varpath[$i][0])
For $i = 0 to UBound($varpath)-1
If StringInStr($source,$varpath[$i][0]) Then
$source = StringReplace($source, $varpath[$i][0], $varpath[$i][1])
ExitLoop
EndIf
Next
WEnd
Next

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

ConsoleWrite($source & @LF)

[/autoit]

Reaker

super..funktioniert einwandfrei...danke man

SEuBo

Kein Problem. Bei näherer Betrachtung fällt mir übrigens auf was ich da für nen scheiß zusammenprogrammiert hab.

Geht auch ganz einfach mit nem Einzeiler in der For-Next schleife

[autoit]

For $i = 0 to UBound($varpath)-1
If StringInStr($source,$varpath[$i][0]) Then $source = StringReplace($source, $varpath[$i][0], $varpath[$i][1])
Next

[/autoit]