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 SelectCallSpt("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.