Expand a macro (@programfilesdir) in a string variable?

[rudi]

Hi.

I think the exampe shows what I'm thinking about to do:

; I want to use such an INI file to specify where data shall go to. I want to be able to make use of Autoit @MACROs...
$handle=FileOpen("MyProg.ini",2)
FileWriteLine($handle,"[paths]")
FileWriteLine($handle,"MainPath=@ProgramFilesDir")
FileWriteLine($handle,"SubPath=\This-Time-I-want-it-here\")
FileClose($handle)



$MainPath=IniRead("MyProg.ini","paths","MainPath",@MyDocumentsDir)   ; file: @ProgramFilesDir
$SubPath = IniRead("MyProg.ini","paths","SubPath","\MyProgDataDir\") ; file: \This-Time-I-want-it-here\

$PathPrefix=$MainPath & $SubPath

MsgBox(0,"Path",$PathPrefix)

Howto?

Regards, Rudi.

[weaponx]

Thats not how you create an ini file...

$ini = "MyProg.ini"
IniWrite($ini, "paths", "MainPath",@ProgramFilesDir)
IniWrite($ini, "paths", "SubPath","\This-Time-I-want-it-here\")

[yyyy273]

$string = (@ProgramFilesDir & "\This-Time-I-want-it-here\")
consolewrite($string)

Is that what you are trying to do?

[rudi]

Thats not how you create an ini file...

$ini = "MyProg.ini"
IniWrite($ini, "paths", "MainPath",@ProgramFilesDir)
IniWrite($ini, "paths", "SubPath","\This-Time-I-want-it-here\")

Thanks, I know.

As I had the INI created manually already, this copy/paste was the easiest way, to "plain write" it from inside the sample script.

I could have added this as well

------- sample MyProg.ini ----------

[paths]

MainPath=@ProgramFilesDir

SubPath=\I-want-it-here\

------- sample MyProg.ini END-----

But that was NOT my question. The question is about an easy way to expand macros inside strings.

So e.g.

$Prefix="@ProgramFilesDir"

Howto expand the /content/ of $Prefix, which is a Autoit Macro right now?

Regards, Rudi.

[ProgAndy]

You need to use Execute e.g.:

Func _IniReadMacro($fn,$sec,$key,$def)
    Local $return = IniRead($fn,$sec,$key,$def)
    If StringLeft($return,1) = "@" Then
        $return = Execute($return)
        If @error Then Return SetError(@error,0,$def)
    EndIf
    Return $return
EndFunc