'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