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
Option Explicit

Sub Main
' Этот скрипт генерирует пустой файл данных с n строками'
' (n вводится пользователем в диалоговом окне)
' Размещено в новостной группе SPSS 10.04.2004. Автор: Raynald Levesque
'
' Файл создаётся не совсем пустым, а с переменной id - А.Б.

	Dim strCmd As String
	Dim vNbCases As Variant
	Dim lngNumCases As Long

	Do
		vNbCases =InputBox("Создать пустой файл? Сколько строк?", "Введите число строк","100")
		If vNbCases = "" Then Exit Sub
	Loop Until IsNumeric(vNbCases)

	strCmd = strCmd & "NEW FILE." & vbCrLf
	strCmd = strCmd & "INPUT PROGRAM." & vbCrLf
	strCmd = strCmd & "LOOP id=1 TO " & vNbCases & "." & vbCrLf
	strCmd = strCmd & "END CASE." & vbCrLf
	strCmd = strCmd & "END LOOP." & vbCrLf
	strCmd = strCmd & "END FILE." & vbCrLf
	strCmd = strCmd & "END INPUT PROGAM." & vbCrLf
	strCmd = strCmd & "FORMATS id (F8)." & vbCrLf
	strCmd = strCmd & "EXECUTE." & vbCrLf

	objSpssApp.ExecuteCommands (strCmd,False)
End Sub