@Macro

veronesi

Hallo zusammen,

ich habe eine Menge Strings, welche ein AutoIt Makro enthalten.
Also z.B. Teststringblablabla@YEARWeitererString.....

Das ganze ist ein STRING und wird aus einer Datenbank ausgelesen.
Was ist nun die eleganteste und schnellste Methode, um alle AutoIt speziellen Makros zu finden und durch die wirklichen Makros zu ersetzen?

Also der oben genannte String würde heute dann z.b. so lauten. Teststringblablabla2011WeitererString.....

Ich möchte nicht unbedingt alles mit StringReplace abarbeiten müssen!
Danke!

**Raupi**

Zitat

Ich möchte nicht unbedingt alles mit StringReplace abarbeiten müssen!

Ein besserer Weg als diese Vorgehensweise wird es aber nicht geben.

veronesi

Ok. Dann danke ich!

Gruss Veronesi

**Schnitzel**

Du könntest die Makros mithilfe von RegEx o.Ä. herrausfischen und dann mithilfe von Execute ausführen lassen.
Was besseres fällt mir da im Moment auch nicht ein^^
Ein Trennzeichen um Makros abzugrenzen wäre in dem Fall denke ich Recht gut.

Also iwie so:

[autoit]

#include <Array.au3>

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

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

MsgBox(0,"", $str)

[/autoit]

**Raupi**

Schnitzel, dazu müßten die Makros aber auch mit | abgegrenzt sein.

Bei solch einem Beispiel: Teststringblablabla@YEARWeitererString

Fällt mir auf anhieb kein RegExp Ausduck ein, das Makro ist nicht abgegrenzt. Wenn nach dem Makro ein Leerzeichen folgt würde deine Methode wieder Sinn machen

**Schnitzel**

Jup schon klar, er braucht entweder n vernünftiges Trennzeichen oder n Array mit allen Makros. Aber grundsätzlich kann er die Makros mit Execute umwandeln

**AspirinJunkie**

Auch nicht viel anders als Schnitzel's Lösung (es bleibt das selbe Problem erhalten):

Spoiler anzeigen

[autoit]

Global $sTest = "@HomeDrive\Benutzer\@UserName"

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

MsgBox(0,"", InterpretAutoItString($sTest))

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

Func InterpretAutoItString(Const $sString)
Local Const $iOld = Opt("ExpandVarStrings", 1)
Local Const $sRet = Execute ('"' & StringRegExpReplace($sString, "(@\w+)", "$1@") & '"')
Opt("ExpandVarStrings", $iOld)
Return $sRet
EndFunc

[/autoit]