| 先の例で私のやりたいことは 「外部ファイルによる変数作成」 です。 オリジナルのコマンドを使っています。
NeoGlobalコマンド
↓NeoGlobalコマンドここから--------------------------------------
NeoGlobal: Switch Args(2) Case Before Eval("$(Args(1))ナンバー") = Eval("$(Args(1))ナンバー") + 1 RemoveFile "Eve\NeoGlobal\$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(Eval("$(Args(1))ナンバー"),0000)))","")).eve" Open "Eve\NeoGlobal\$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(Eval("$(Args(1))ナンバー"),0000)))","")).eve" For 追加出力 As Eval("ネオグローバル$(Args(1))ファイル") Print Eval("ネオグローバル$(Args(1))ファイル") "ネオグローバル$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(Eval("$(Args(1))ナンバー"),0000)))","")):" Case Now Eval("$(Args(1))カウント") = Eval("$(Args(1))カウント") + 1 Print Eval("ネオグローバル$(Args(1))ファイル") "$(Args(3))[$(Args(4))] = "$(Args(5))"" If Args(6) <> 0 Then If (Abs(Eval("$(Args(1))カウント")) / (Args(6) - 2)) = Int(Abs(Eval("$(Args(1))カウント")) / (Args(6) - 2)) Then Print Eval("ネオグローバル$(Args(1))ファイル") "Return" Close Eval("ネオグローバル$(Args(1))ファイル") Eval("$(Args(1))ナンバー") = Eval("$(Args(1))ナンバー") + 1 RemoveFile "Eve\NeoGlobal\$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(Eval("$(Args(1))ナンバー"),0000)))","")).eve" Open "Eve\NeoGlobal\$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(Eval("$(Args(1))ナンバー"),0000)))","")).eve" For 追加出力 As Eval("ネオグローバル$(Args(1))ファイル") Print Eval("ネオグローバル$(Args(1))ファイル") "ネオグローバル$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(Eval("$(Args(1))ナンバー"),0000)))","")):" EndIf EndIf Case After Print Eval("ネオグローバル$(Args(1))ファイル") "Return" Close Eval("ネオグローバル$(Args(1))ファイル") Case Load For ネオグローバルナンバー = 1 To IIf((Args(6) <> 0),"$(Eval("$(Args(1))ナンバー"))",1) Wait 0 Require "Eve\NeoGlobal\$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(ネオグローバルナンバー,0000)))","")).eve" Eval("ネオグローバル$(Args(1))$(IIf((Args(6) <> 0),"No.$(Wide(Format(ネオグローバルナンバー,0000)))",""))") Next EndSw Return
↑NeoGlobalコマンドここまで--------------------------------------
次に使用例です。
↓使用例ここから--------------------------------------
NeoGlobal バケラッタ詳細データ Before "バケラッタ$(Var[2])" "$(Eval("$(Var[2])番号"))" Var[問題ファイル2] 3000 NeoGlobal バケラッタ詳細データ Now "バケラッタ$(Var[2])" "$(Eval("$(Var[2])番号"))" Var[問題ファイル2] 3000 NeoGlobal バケラッタ詳細データ After "バケラッタ$(Var[2])" "$(Eval("$(Var[2])番号"))" Var[問題ファイル2] 3000 NeoGlobal バケラッタ詳細データ Load "バケラッタ$(Var[2])" "$(Eval("$(Var[2])番号"))" Var[問題ファイル2] 3000
↑使用例ここまで--------------------------------------
読み方(?)は ・Args(1) = 一時ファイルの名前(区切り数を超える数の場合、番号が後ろに付く) ・Args(2) = 処理の指示(Before、Now、After、Loadの4つ) ・Args(3) = 作成される配列の名前 ・Args(4) = 作成される配列のインデックス ・Args(5) = 変数の中身 ・Args(6) = 区切りの数(一つのファイルの行数を指定する) ・こちらで指定した専用フォルダ(今はEve\NeoGlobal\)が必要になる。
と、ここまでやっても結局は 「変数の生成タイミングを変える」 ということしかできなかったようです。
「1つの変数を上書きして使い回す」 という方法もあるにはあるのですが、 今回の件には使えないと思います。
だからここで新しい方法を知りたいのです。 よろしくお願いします。
|