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
29
30
31
32
33
' Скрипт запрашивает имя пользователя, затем записывает его в макрос !usrname.
' Затем скрипт печатает имя пользователя в лог-файле.
' Использование:
' После выполнения скрипта имя пользователя может быть при необходимости напечатано в окне результатов
' (Output) с помощью, например, следующего синтаксиса
' DO IF $CASENUM=1.
' Print /'*** Расчёт выполнил: ' !usrname.
' End If.
' EXECUTE.

' Можно сделать так, чтобы каждый раз в начале работы скрипт запрашивал имя пользователя
' см. "Automatically run a script or syntax when SPSS starts.SBS" в
' http://www.spsstools.net/SampleScripts.htm#Utils
' Автор: Raynald Levesque, 27.01.2002

Option Explicit

Sub Main
Dim username As String
Dim CmdStr As String
    username = InputBox$("Введите Ваше имя:","Input Box")
'   Debug.Print username
	CmdStr = "DEFINE !usrname()" & "'" & username & "'" & "!ENDDEFINE." & vbCr & "Execute." & vbCr
	CmdStr = CmdStr & "DO IF $CASENUM=1." & vbCr
	CmdStr = CmdStr & "STRING #tmpstr(A20)." & vbCr
	CmdStr = CmdStr & "COMPUTE #tmpstr=!usrname." & vbCr
	CmdStr = CmdStr & "PRINT /'*** Расчёт выполнил: ' #tmpstr." & vbCr
	CmdStr = CmdStr & "END IF." & vbCr
	CmdStr = CmdStr & "EXECUTE." & vbCr
	objSpssApp.ExecuteCommands CmdStr,True

'	objSpssApp.GetDesignatedOutputDoc.PrintOptions.FooterText = "Расчёт выполнил: " & username
End Sub