JP1/Script(Windows(R)用)
CallSpt ( SptFileName〔,Param1 ,Param2 , … ,Param31〕)
' スクリプトファイル"Environment.SPT"を実行し, ' プロセス環境変数を更新・参照する。 Dim Path01 rtn = CallSpt(_SCF_+"Environment.SPT", "Get", "Path01", _ Path01) : rtn = CallSpt(_SCF_+"Environment.SPT", "Set", "Path01", _ _TEMP_) ' Environment.SPTの処理 Select Case %1 Case "Set" SetEnv(ProcessEnv, %2, %3) Case "Get" %3 = GetEnv(ProcessEnv, %2) End Select
CallSpt("A.spt", "B", "", "D")
Parm1 = %1 ' "B" Parm2 = %2 ' "D" Parm3 = %3 ' 空文字""
Dim C_Parm If ・・・ Then C_Parm="C" Else C_Parm="***NOTPARAMETA***" End If CallSpt("A.spt", "B", C_Parm, "D") :
If %2 <> "***NOTPARAMETA***" Then Parm1 = %1 ' "B" Parm2 = %2 ' "C" Parm3 = %3 ' "D" Else Parm1 = %1 ' "B" Parm2 = "" ' 空文字"" Parm3 = %3 ' "D" End If
CallSpt("A.spt", "My Documents", "Files")
CallSpt("A.spt", """My Documents""", "Files") :
Dim Parm1 Dim Path1 Parm1= Mid (%1, 2, Len (%1) - 2) Path1 = Parm1 + "\" + %2 :
' スクリプトファイル"SampleB.SPT"を呼び出す。 CallSpt(_SCF_+"SampleB.SPT") : ' SampleC.EXEの終了を待たないでスクリプトを終了する。 Exit(0,Skip)
' 実行ファイル"SampleC.EXE"を終了待ちをしない指定で呼び出す。 Exec(_SCF_+"SampleC.EXE",False)
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.