| |
>Menuに使いたいので [ $m1 ="Hello" ]と ゆう文字を別のファイルから読み込むよう
>に 出来ますか？( $me1 〜 $me40まで あります )
今日は、こうゆう事ですか ...
配列を使用する方法と、
// test1.mac
$tb[00]="data0 - halo ...";
$tb[01]="data1 - bye ...";
$tb[02]="data2 - \\";
#tb = 02 + 1;
//R mousemenuarray $tb, #tb;
menuarray $tb, #tb;
#menu1 = result -1;
if( #menu1 < 00 ){ endmacro; } // [Esc] etc.
newfile;
insert $tb[#menu1]+"\n";
endmacro;
// end of macro;
ファイルを利用して、
// test2.mac 作成 file = TEST3.INI
$INI_file = hidemarudir + "\\TEST3.INI";
openfile $INI_file;
selectall;delete;
insert "[Section1]\n";
insert "tb00=data0 - halo ...\n";
insert "tb01=data1 - bye ...\n";
insert "tb02=data2 - \\\n";
save;
endmacro;
// end of macro;
// test3.mac 読込み
$INI_file = hidemarudir + "\\TEST3.INI";
#tb = 00;
while(true){
$wk1 = "tb" + rightstr("00"+str(#tb),2);
//R message getinistr($INI_file,"Section1",$wk1);
$tb[#tb] = getinistr($INI_file,"Section1",$wk1);
if( $tb[#tb] == "" ){break;}
#tb = #tb + 1;
}
if( ! #tb ){ endmacro; }
menuarray $tb, #tb;
#menu1 = result -1;
if( #menu1 < 00 ){ endmacro; } // [Esc] etc.
newfile;
insert $tb[#menu1]+"\n";
endmacro;
// end of macro;
|
|