1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
'Вставка текста из скрипта в окно синтаксиса.

Sub Main
' Скрипт помещает текст, содержащийся в строковой переменной strSynCmd
' в конец окна назначения синтаксиса (Designated Syntax window).
' Автор: Raynald Levesque, 03.12.2002.

	Dim objSyntaxDoc As ISpssSyntaxDoc
	Dim strSynCmd As String
	Set objSyntaxDoc=objSpssApp.GetDesignatedSyntaxDoc

	strSynCmd =				"Строки синтаксиса (первая строка)" & Chr(13) & Chr(10)
	strSynCmd = strSynCmd & "вторая строка синтаксиса" & Chr(13) & Chr(10)
'	и т.д.
	strSynCmd = strSynCmd & "последняя строка синтаксиса" & Chr(13) & Chr(10)
'	Вставляем команды в конец текущего файла синтаксиса
	objSyntaxDoc.Text = objSyntaxDoc.Text & strSynCmd
End Sub