1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'Этот пример иллюстрирует как скрипт может выполнять разные действия в зависимости
'от того, какие параметры ему были переданы при вызове из синтаксиса.
'Автор: Neila, 27.01.2000

'Следующий файл скрипта вызывается из синтаксиса, например, так:
'SCRIPT "c:\\temp\\scrpar.sbs" ("0").
'SCRIPT "c:\\temp\\scrpar.sbs" ("1").

'Файл скрипта SCRPAR.SBS
Public Sub Main ()
 Dim strParam As String
 strParam = objSpssApp.ScriptParameter(0)
 Select Case strParam
  Case "0"
   Call Sub0
  Case "1"
   Call Sub1
  '......
 End Select
End Sub

Private Sub Sub0()
 MsgBox "Выполняем процедуру 0"
End Sub

Private Sub Sub1()
 MsgBox "Выполняем процедуру 1"
End Sub