' Тема: экспорт данных в текстовый файл в свободном формате ' Ключевые слова: экспорт данных, текстовый файл, формат. ' Скрипт для экспорта данных в ASCII-файл "свободного" формата. ' Автор: Raynald Levesque, 31.03.2003 ' Мой сайт по программе SPSS: http://www.spsstools.ru ' Перевод: А. Балабанов, 09.11.2008 ' Проверено: SPSS 13.0 Option Explicit Sub Main Dim objDocuments As ISpssDocuments Dim objDataDoc As ISpssDataDoc Dim objSPSSInfo As ISpssInfo Dim strCmd As String Dim strOut As Variant Dim lngNOC As Long Dim intCnt As Integer Dim intVar As Integer Dim SpssTextData As Variant Dim numVars As Long On Error GoTo Oopps 'Задайте в следующей строке путь к файлу данных strCmd = "GET FILE='c:\\Program Files\\SPSS\\Employee data.sav'." objSpssApp.ExecuteCommands strCmd , True Set objSPSSInfo = objSpssApp.SpssInfo numVars=objSPSSInfo.NumVariables-1 Set objDocuments=objSpssApp.Documents Set objDataDoc = objDocuments.GetDataDoc(0) lngNOC = objDataDoc.GetNumberOfCases ' Задайте в следующей строке имя файла, в который будут сохраняться данные. Open "c:\\temp\\free format.txt" For Output As #1 SpssTextData = objDataDoc.GetTextData (objSPSSInfo.VariableAt(0), objSPSSInfo.VariableAt(numVars), 1, lngNOC) For intCnt =0 To lngNOC - 1 For intVar=0 To numVars strOut=strOut & " " & SpssTextData(intVar,intCnt) Debug.Print strOut Next Print #1, strOut strOut="" Next Close #1 Exit Sub Oopps: Debug.Print Err & " " & Err.Description Resume Next End Sub