'(Вопрос) Возможно ли через синтаксис как-то указывать заголовки для процедуры CROSSTABS? ' Мне еженедельно приходится строить множество таблиц, и мне не очень удобно всякий раз вручную ' переписывать заголовки. '(Ответ) Я написал скрипт и макрос для модификации заголовков в выдаче. ' Скрипт называется 'title.sbs', а макрос - 'title.sps'. Оба файла должны находиться ' в одной и той же директории (). Вы можете получить нужное название с помощью ' следующего синтаксиса: include '\\title.sps'. CROSSTABS что-то BY что-то ещё. settitle Это нужный заголовок. dotitle. CROSSTABS blabla1 BY blabla2. settitle Это другой заголовок. dotitle. 'Размещено: http://www.spsstools.ru/Scripts/PivotTables/DefineCustomizedCrosstabTitles.txt (.sbs). 'Перевод: А. Балабанов, 30.12.2008. 'Проверено: SPSS 15.0.0. 'Скрипт рассчитан на то, что в настройках SPSS отключено эхо командного синтаксиса в окно результатов, т.е. 'подразумевается, что текстовый блок, следующий за построенной таблицей, содержит лишь желаемый заголовок, 'напечатанный командой PRINT. В SPSS 15.0.0. наблюдаются проблемы при попытке использования кириллических 'символов в заголовке (вместо кириллических символов вставляются пробелы) - примеч. перев. 'Скрипт подвержен проблемам, связанным с асинхронностью, так что полезно переписать его таким образом, чтобы 'он анализировал всё окно результатов, и запускать его после окончания всех расчётов - примеч. перев. Скрипт (сохраните как \\title.sbs): ============================================================== Sub Main() Dim objOutputDoc As ISpssOutputDoc Dim objItems As ISpssItems Dim objItem As ISpssItem Dim myindex As Long Dim lab As String Dim objSPSSText As ISpssrtf Dim mytitle As String Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc Set objItems = objOutputDoc.Items() myindex=objItems.Count Set objItem = objItems.GetItem(myindex-1) Set objSPSSText =objItem.ActivateText mytitle=objSPSSText.Text objItem.Deactivate Do myindex=myindex-1 Set objItem = objItems.GetItem(myindex) lab=objItem.Label Loop Until lab="Title" objItem.Label=mytitle Set objSPSSText =objItem.ActivateText objSPSSText.Text=mytitle objItem.Deactivate objItem.Selected=False Set objItem = objItems.GetItem(objItems.Count-1) objItem.Selected=True objOutputDoc.Remove End Sub ============================================================== Макрос (\\title.sps): ============================================================== define settitle (!POSITIONAL !CMDEND). Do If $CASENUM EQ 1. Print /!quote(!1). End If. Execute. !ENDDEFINE. define dotitle(). script '<укажите здесь путь к файлу>\\title.sbs' . !ENDDEFINE. ============================================================== Надеюсь, это поможет. Oliver Loch ---------------------------------------------------------------------------- Dipl. Stat. Oliver Loch German AIDS Study Group Phone: +49 89 5160 3457 Med. Poliklinik der LMU Fax: +49 89 5160 3593 Pettenkoferstr. 8a e-mail: loch@pk-i.med.uni-muenchen.de D-80336 Muenchen ----------------------------------------------------------------------------