Назначение переменным меток, совпадающих с их именами

'Решение SPSS AnswerNet, ID:  100007812
'Продукт:  SPSS Tables

'Заголовок: При создании таблицы не высвечивается ИМЯ переменной

'Описание:
'Вопрос:
'Я использую SPSS 8.0.2 (или более позднюю версию). Я создаю таблицу с помощью SPSS Tables
'Я хочу, чтобы в таблице отображались имена переменных, но этого не происходит.
'В настройках Options->Output Labels я заказал отображение Names (имена) в списке "Variables
'In Labels Shown As". Но это не помогает. Что не так?

'Ответ:
'Есть такая проблема в модуле Tables в SPSS 8.0.2 для Windows и в последующих версиях,
'но она может быть легко решена силами пользователя. Достаточно просто назначить переменной
'метку ,совпадающую с её именем. Например (через синтаксис):
'VARIABLE LABELS race "Race" gender "Gender".

'Тогда при использовании SPSS Tables в таблицах будет отображаться (как бы) ИМЯ переменной.

'(по крайней мере, в SPSS 15 проблема ещё сохраняется,
' но для команды CTABLES, например, решается путём простого удаления метки,
' тогда SPSS не будет оставлять вместо метки пустое место, а
' подставит туда имя переменной. Но для команд TABLES проблему можно решить
' только подставив в качестве метки имя переменной - примеч. перев.)

'Если в вашем файле данных много переменных, у которых нет меток,
'назначение меток может занять много времени. Вот пример скрипта, который вы можете вставить в новое
'окно скриптов в SPSS и сохранить его в той папке, где у вас хранятся скрипты для SPSS
'(убедитесь, что файл имеет расширение .sbs).
'Тогда при запуске этого скрипта SPSS назначит метки, тем переменным,
'у которых НЕТ меток так, что метки будут совпадать с именами переменных.

Option Explicit 

Sub Main 

' Скрипт следует выполнить перед запуском команд модуля SPSS Tables.
' Скрипт пройдёт по файлу данных в поисках переменных, не имеющих меток, и для
' этих переменных запустит команду VARIABLE LABELS, которой передадут метки,
' совпадающие с именами этих переменных.


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

' Получение числа переменных в файле:
Dim lngNumber As Long 
Dim i As Long 
Dim rotulo, comando As String 
lngNumber = objSpssInfo.NumVariables 

comando = "VARIABLE LABELS " 
For i = 0 To lngNumber - 1 
rotulo=objSpssInfo.VariableLabelAt(i) 
If rotulo = "" Then comando = comando + objSpssInfo.VariableAt(i)+ " '" + objSpssInfo.VariableAt(i)+ "' /" 
Next 

comando = comando + "." 

objSpssApp.ExecuteCommands comando, True 

End Sub