Экспорт имён и меток переменных в .txt-файл для импорта в MS Access
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 | 'begin description ' Экспорт имен и меток переменных в текстовый файл для последующей загрузки в MS Access. ' (разделители полей - запятые) 'end description ' Условия : в редакторе данных должен быть открытый набор данных ' Результаты: создаётся текстовый файл, где для каждой переменной построчно сохраняются её имя и метка (разделитель - ","). ' Указания : выполните этот скрипт, после чего можете импортировать .txt-файл в MS Access. ' Автор: Raynald Levesque, 21.09.2000, rlevesque@videotron.ca ' Перевод: А. Балабанов, 15.11.2008 ' Проверено: SPSS 15.0.1.1. Option Explicit Sub Main Dim objSPSSInfo As ISpssInfo Dim NumVars As Long,I As Long,J As Long, VarName As String, VarLabel As String Set objSPSSInfo = objSpssApp.SpssInfo NumVars=objSPSSInfo.NumVariables-1 Open "c:\\temp\\variable label.txt" For Output As #1 For I=0 To NumVars VarName= objSPSSInfo.VariableAt(I) VarLabel= objSPSSInfo.VariableLabelAt(I) If Len(VarLabel)=0 Then VarLabel=VarName End If Print #1, VarName & "," & VarLabel Next I Close #1 End Sub |