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)