Menu File Replacement
Macro INC(''SDHC/file.mnu?find1=repl1&find2=repl2&...''); - v49.46
* Implemented functionality to include search/replace in included "mnu"
files.
* INC("SDHC/file.mnu?find1=repl1&find2=repl2&...");
* Code looks for $find1$ (case insensitive) and replaces with repl1 etc.
If test.mnu contains:
VAR(var$name1$1Txt,"",TXT);
VAR(var$name1$2Txt,"$val2$",TXT);
VAR(var$name1$3Txt,"$invalid1$",TXT);
VAR(var$NAME1$4Txt,"$invalid2",TXT);
PAGE(pg$NaMe1$Main,stPage)
{
POSN($x$,$y$); TEXT(txt$name1$1,var$name1$3Txt,stTxt);
POSN(+0,+32); TEXT(txt$name1$2,var$name1$4Txt,stTxt);
}
then INC("SDHC/test.mnu?name1=Alpha&val2=Beta&x=99&y=99");
creates:
VAR(varAlpha1Txt,"",TXT);
VAR(varAlpha2Txt,"Beta",TXT);
VAR(varAlpha3Txt,"$invalid1$",TXT);
VAR(varAlpha4Txt,"$invalid2",TXT);
PAGE(pgAlphaMain,stPage)
{
POSN(99,99); TEXT(txtAlpha1,varAlpha3Txt,stTxt);
POSN(+0,+32); TEXT(txtAlpha2,varAlpha4Txt,stTxt);
}
and calling it again with INC("SDHC/test.mnu?name1=Delta&val2=Hello&x=199&y=149");
creates:
VAR(varDelta1Txt,"",TXT);
VAR(varDelta2Txt,"Hello",TXT);
VAR(varDelta3Txt,"$invalid1$",TXT);
VAR(varDelta4Txt,"$invalid2",TXT);
PAGE(pgDeltaMain,stPage)
{
POSN(199,149); TEXT(txtDelta1,varDelta3Txt,stTxt);
POSN(+0,+32); TEXT(txtDelta2,varDelta4Txt,stTxt);
}