* Тема: извлечение первой / первых двух цифр из числа. * Ключевые слова: число, знак, разряд, преобразование, извлечение, цифра. * Опубликован: 16.06.2008. * Автор: Raynald Levesque. * Перевод: А. Балабанов. * Размещение: http://www.spsstools.ru/Syntax/Transform/ExtractFistOrFirst2DigitsOfAnInteger.txt (.sps). * (Вопрос) Имеется числовая переменная, содержащая числа из трёх и более знаков. * Требуется извлечь в отдельную переменную первую цифру, если число состоит из 3 цифр, и первые 2 цифры в ином случае. * (Ответ) Размещён в SPSSX-L, автор: Raynald Levesque, 20.11.2003. DATA LIST LIST /asoc. BEGIN DATA 813 1314 99999 888888 7777777 45321547 9999999999 END DATA. VARIABLE WIDTH asoc(10). DO IF asoc<10000. - COMPUTE asoc2=TRUNC(asoc/100). ELSE. - COMPUTE #digits=TRUNC(LG10(asoc)). - COMPUTE asoc2=TRUNC(asoc/(10**(#digits-1))). END IF. EXECUTE.