ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Сортировка (при различном типе индексов)
11 сообщений из 11, страница 1 из 1
Сортировка (при различном типе индексов)
    #33703520
М_а_й_к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
М_а_й_к
Гость
Имеется глобаль следующего вида:
^test(1)="A"
^test(1.1)="Б"
^test(1.2)="В"
^test(1.12)="Г"
^test(2)="Д"
^test(2.1)="Е"
^test(2.15)="Ж"
^test("1.10")="З"
^test("2.10")="И"

Как бы поизящнее отсортировать это, чтобы на выходе было:

^t2(1)="1~А"
^t2(2)="1.1~Б"
^t2(3)="1.2~В"
^t2(4)="1.10~З"
^t2(5)="1.12~Г"
^t2(6)="2~Д"
^t2(7)="2.1~Е"
^t2(8)="2.10~И"
^t2(9)="2.15~Ж"
...
Рейтинг: 0 / 0
03.05.2006, 11:26
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33703796
AlexanderYe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexanderYe
Гость
s gl=$na(^resr)
s ind=""
s newind=0
f s ind=$o(@gl@(ind)) q:ind="" d
.s newind=newind+1
.s ^t2(newind)=ind_"~"_$g(@gl@(ind))
q
...
Рейтинг: 0 / 0
03.05.2006, 12:58
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33703806
AlexanderYe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexanderYe
Гость
s gl=$na(^resr)
заменить на s gl=$na(^test)
тороплюсь..-(
...
Рейтинг: 0 / 0
03.05.2006, 13:01
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33704059
Sergei Obrastsov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergei Obrastsov
Участник
AlexanderYes gl=$na(^resr)
s ind=""
s newind=0
f s ind=$o(@gl@(ind)) q:ind="" d
.s newind=newind+1
.s ^t2(newind)=ind_"~"_$g(@gl@(ind))
q
а попроще никак нельзя? например:

s ind="" f i=1:1 s ind=$o(^test(ind)) q:ind="" s ^t2(i)=ind_"~"_^(ind)

это, конечно, с учетом цифровой сортировки. в случае строковой - надо
подумать.

С уважением. Сергей
...
Рейтинг: 0 / 0
03.05.2006, 13:57
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33704100
М_а_й_к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
М_а_й_к
Гость
Sergei Obrastsov[quot AlexanderYe]s gl=$na(^resr)
s ind="" f i=1:1 s ind=$o(^test(ind)) q:ind="" s ^t2(i)=ind_"~"_^(ind)

это, конечно, с учетом цифровой сортировки. в случае строковой - надо
подумать.

С уважением. Сергей

:)
Сергей, в этом и смысл получить как было в моем примере. т.е. за 1.1 должно идти 1.10.
...
Рейтинг: 0 / 0
03.05.2006, 14:07
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33704169
М_а_й_к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
М_а_й_к
Гость
AlexanderYes gl=$na(^resr)
заменить на s gl=$na(^test)
тороплюсь..-(

В Вашем примере получается в новой созданной глобали сортировка та же, что и первой, а смысл как раз был, чтобы строковые индексы встали куда следует, а не в конец глобали.
...
Рейтинг: 0 / 0
03.05.2006, 14:25
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33704251
Фотография ну я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ну я
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 s i="" f  s i=$o(^test(i)) q:i=""  d
 . ; строковые придут на вставку после числовых
 . s ^t1(+i,$i(^t1))=i_"~"_^test(i)
 ; проверяем что сортировки корректны
 zw ^t1
 ; формируем порядковый номер
 s i=$na(^t1) f  s i=$q(@i) q:i=""  d
 . s ^t2($i(^t2))=@i
 ; проверяем через порядковые номера
 zw ^t2
Получается вот что
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
^t2( 1 )="1~A"
^t2( 2 )="1.1~Б"
^t2( 3 )="1.10~З"
^t2( 4 )="1.12~Г"
^t2( 5 )="1.2~В"
^t2( 6 )="2~Д"
^t2( 7 )="2.1~Е"
^t2( 8 )="2.10~И"
^t2( 9 )="2.15~Ж"
В исходной задаче не понятно что означает
Код: plaintext
1.
2.
3.
4.
^t2( 2 )="1.1~Б"
^t2( 3 )="1.2~В"
^t2( 4 )="1.10~З"
^t2( 5 )="1.12~Г"
Может, опечатка?
...
Рейтинг: 0 / 0
03.05.2006, 14:49
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33704366
AlexanderYe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexanderYe
Гость
превращаю все индексы в строки

s gl=$na(^test)
k ^t3
s ind=""
f s ind=$o(@gl@(ind)) q:ind="" d
.s ^t3(ind_".0")=ind_"~"_$g(@gl@(ind))
q

значения узлов отсортированы
остатеся только поменять индексы на 1,2,3...
...
Рейтинг: 0 / 0
03.05.2006, 15:20
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33705635
М_а_й_к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
М_а_й_к
Гость
ну я
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 s i="" f  s i=$o(^test(i)) q:i=""  d
.................. 

В исходной задаче не понятно что означает
[src]^t2( 2 )="1.1~Б"
^t2( 3 )="1.2~В"
^t2( 4 )="1.10~З"
^t2( 5 )="1.12~Г"
Может, опечатка?

Как раз и не опечатка. Для наглядности представьте, что это номера разделов в документе. Т.е. именно так и нужно отсортировать:
1
1.1
1.2
1.10
1.12
...
Рейтинг: 0 / 0
04.05.2006, 08:39
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33705986
Фотография ну я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ну я
Участник
М_а_й_кКак раз и не опечатка. Для наглядности представьте, что это номера разделов в документе. Т.е. именно так и нужно отсортировать:
1
1.1
1.2
1.10
1.12
Тогда так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 s i="" f  s i=$o(^test(i)) q:i=""  d
 . s ^t1(i\ 1 ,+$p(i,".", 2 ))=i_"~"_^test(i)
 ; формируем порядковый номер
 zw ^t1
 s i=$na(^t1) f  s i=$q(@i) q:i=""  d
 . s ^t2($i(^t2))=@i
 ; проверяем через порядковые номера
 zw ^t2
^t2(1)="1~A"
^t2(2)="1.1~Б"
^t2(3)="1.2~В"
^t2(4)="1.10~З"
^t2(5)="1.12~Г"
^t2(6)="2~Д"
^t2(7)="2.1~Е"
^t2(8)="2.10~И"
^t2(9)="2.15~Ж"
...
Рейтинг: 0 / 0
04.05.2006, 10:35
| Ответить | Цитировать | Написать  
Сортировка (при различном типе индексов)
    #33713307
Фотография ну я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ну я
Участник
Есть еще вариант через приведение к строковой сортировке и учитывание что могут быть не одна точка.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 s i="" f  s i=$o(^test(i)) q:i=""  d
 . s sort=""
 . f n= 1 : 1 :$l(i,".") s sort=sort_$j($p(i,".",n), 6 )
 . s ^t1(sort)=i_"~"_^test(i)
 ; формируем порядковый номер
 zw ^t1
 s i=$na(^t1) f  s i=$q(@i) q:i=""  d
 . s ^t2($i(^t2))=@i
 ; проверяем через порядковые номера
 zw ^t2
...
Рейтинг: 0 / 0
06.05.2006, 15:08
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Сортировка (при различном типе индексов)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]