Вставка имени переменной в начало её метки

 

Загрузить как .sbs Показать простым текстом

 

 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
34
35
36
37
38
'BEGIN DESCRIPTION
' Назначение: добавить имена переменных в начало меток переменной
' (рассчитано на "старый" предел длины имени переменной в 8 символов;
' при длине имени более 8 символов, при подставлении в метку переменной оно урезается - примеч. перев.)
' Если имя переменной занимает меньше 8 символов, заполняем остаток символами "_"
' Размещено в spss newsgroup 10.10.2003. Автор: Raynald Levesque
'END DESCRIPTION

' Перевод: А. Балабанов, 14.11.2008

Option Explicit

Sub Main()

	' Объявление переменных скрипта и получение списка переменных файла данных
	Dim objSpssInfo As ISpssInfo
	Dim var As String
	Set objSpssInfo = objSpssApp.SpssInfo

	Dim lngNumber As Long
	Dim i As Long
	Dim strCmd As String
	lngNumber = objSpssInfo.NumVariables
	strCmd = "VARIABLE LABELS "
	Debug.Clear

	With objSpssInfo
		For i = 0 To lngNumber - 1
			var=Left(.VariableAt(i) & "_______" , 8)
			strCmd = strCmd & " " & .VariableAt(i) & " '" & var & .VariableLabelAt(i) & "'/" & vbCrLf
			Debug.Print strCmd
			Next
	End With
	strCmd = strCmd + "." & vbCrLf

	objSpssApp.ExecuteCommands strCmd, False
	Set objSpssInfo = Nothing
End Sub
Related pages

...

Navigate from here