Подскажите алгоритм сжатия строки текста / Программирование

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Программирование [игнор отключен] [закрыт для гостей] / Подскажите алгоритм сжатия строки текста

32 сообщений из 32, показаны все 2 страниц

все

Подскажите алгоритм сжатия строки текста

#34052350

Кеус

Гость

Имеется поле, куда можно записать строку не длиннее 20 символов, а сама строка имеет длину 36 символов (это GUID). Может, существует алгоритм сжатия этого GUID хотя бы до 20 символов с последующим восстановлением к первоначальному виду?

...

Рейтинг:

0 / 0

13.10.2006, 07:41

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052358

aleks2

Участник

Сообщения: 12 453

Рейтинг: 0 / 0

КеусИмеется поле, куда можно записать строку не длиннее 20 символов, а сама строка имеет длину 36 символов (это GUID). Может, существует алгоритм сжатия этого GUID хотя бы до 20 символов с последующим восстановлением к первоначальному виду?

Если GUID типа
910023AC-56DC-48B5-BB86-55C1C9A21AC1
то его можно хранить в 16 байтах.

1) убираем "-"
2) преобразуем пару шестнадцетиричных символов "91" в байт;
3) преобразуем следующую пару
...
--------------------------
вообще-то GUID так и хранится в нормальных системах, а к 36-символьному виду приводится только для показа человеку.

...

Рейтинг:

0 / 0

13.10.2006, 07:50

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052363

Кеус

Гость

вообще-то GUID так и хранится в нормальных системах, а к 36-символьному виду приводится только для показа человеку.

К сожилению приходится использовать 1С, а в ней типы могут быть только "число", "строка", "Дата". Поэтому GUID может быть только строкой.

...

Рейтинг:

0 / 0

13.10.2006, 08:04

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052372

Кеус

Гость

Поэтому GUID может быть только строкой.

Потому и задумался, как строку сжать и разжать без потерь.

...

Рейтинг:

0 / 0

13.10.2006, 08:11

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052439

aleks2

Участник

Сообщения: 12 453

Рейтинг: 0 / 0

Кеус
вообще-то GUID так и хранится в нормальных системах, а к 36-символьному виду приводится только для показа человеку.

К сожилению приходится использовать 1С, а в ней типы могут быть только "число", "строка", "Дата". Поэтому GUID может быть только строкой.

Ну и что?
а) 1С вполне справляется со строками длиннее 20 символов...
б) Строка может содержать ЛЮБЫЕ значения байта как символ строки - выглядит канешна страшновато, но тебе ж на нее не любоваться? См. алгоритм выше.

...

Рейтинг:

0 / 0

13.10.2006, 09:00

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052524

Melkiades

Участник

Откуда: Москва

Сообщения: 1 459

Рейтинг: 0 / 0

1 Кеус: вы таким образом место на диске пытаетесь сэкономить?

...

Рейтинг:

0 / 0

13.10.2006, 09:31

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052536

Barlone

Участник

Сообщения: 1 506

Рейтинг: 0 / 0

При большом желании можно получить и 20 печатных символов (из диапазона кодов 33-126).

...

Рейтинг:

0 / 0

13.10.2006, 09:34

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052649

Кеус

Гость

Melkiades1 Кеус: вы таким образом место на диске пытаетесь сэкономить?

Нет. Просто в 1С по номеру документа самый быстрый способ поиска. А номер документа не может превышать 20 символов. За месяц в базе создается и передается в другие организации около 200 000 документов. Раньше идентификатор конкретного документа состоял из 10 символов, теперь вот из 36.

...

Рейтинг:

0 / 0

13.10.2006, 10:05

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052658

Кеус

Гость

а) 1С вполне справляется со строками длиннее 20 символов...

Номер документа не может.

б) Строка может содержать ЛЮБЫЕ значения байта как символ строки - выглядит канешна страшновато, но тебе ж на нее не любоваться? См. алгоритм выше.

А влезут ли они в 20 символов?

...

Рейтинг:

0 / 0

13.10.2006, 10:08

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34052685

Кеус

Гость

BarloneПри большом желании можно получить и 20 печатных символов (из диапазона кодов 33-126).

Можно поподробнее?

...

Рейтинг:

0 / 0

13.10.2006, 10:16

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34053933

aleks2

Участник

Сообщения: 12 453

Рейтинг: 0 / 0

Кеус
а) 1С вполне справляется со строками длиннее 20 символов...

Номер документа не может.

б) Строка может содержать ЛЮБЫЕ значения байта как символ строки - выглядит канешна страшновато, но тебе ж на нее не любоваться? См. алгоритм выше.

А влезут ли они в 20 символов?

1символ=1байту. Учи матчасть.
-------------------------
исключение unicode-символы, дык в один unicode-символ можно аж два байта забабахать...

...

Рейтинг:

0 / 0

13.10.2006, 15:01

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34053986

Akh

Участник

Откуда: берутся баги?

Сообщения: 4 561

Рейтинг: 0 / 0

Элементарнейшая экономия, это компоновка бит. Если диапозон используемых симоволов 0-9, т.е. 10 симовлов, то для их сохранения достаточно 4 бита (имеет 16 значений). Таким образом в байт можно положить 2 символа. Если диапозон симовлов больше 16-ти, то количество бит прийдется увеличить.

...

Рейтинг:

0 / 0

13.10.2006, 15:17

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34053997

aleks2

Участник

Сообщения: 12 453

Рейтинг: 0 / 0

Кеус BarloneПри большом желании можно получить и 20 печатных символов (из диапазона кодов 33-126).

Можно поподробнее?

Ну изучай принцЫпы MIME-encoding... разные там методы есть.

Всего надо закодировать 16*8=128 бит

126-33+1=94 различных символов

Кодируем 128 битное число по основанию 94, используя символы как цифры разрядов.

log2(94)= 6.555 бит/символ

[128/6.(5)]=19.528 символа.
=================
=> можно.

...

Рейтинг:

0 / 0

13.10.2006, 15:19

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34054416

Палестинец

Участник

Сообщения: 8 299

Рейтинг: 0 / 0

КеусНет. Просто в 1С по номеру документа самый быстрый способ поиска. А номер документа не может превышать 20 символов. За месяц в базе создается и передается в другие организации около 200 000 документов. Раньше идентификатор конкретного документа состоял из 10 символов, теперь вот из 36.

1)строкой длиной в 20 символов из больших букв латинского алфавита можно занумеровать ~20^20 документов , чего хватит на 20^20 / 20000 месяцев работы проги что много больше времени предпологаемого существования солнечной системы.

Нужен ли тут именно GUID???
а может просто номер числовой??

зы. бедные юзери ищущие документ по гуид

...

Рейтинг:

0 / 0

13.10.2006, 17:16

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055015

Кеус

Гость

aleks2

Спасибо за разъяснение. Хранить символы в байтах и битах это конечно хорошо, но платформа 1С этого не позволяет. Я могу использовать только "Строка" или "Число". Т.е. мне надо строку из 36 символов превратить в строку (число) максимум в 20 символов, а потом без потерь восстановить в первоначальный вид.
Я просто не представляю, как записать байты в строковое или числовое поле. Если не трудно покажите, пожалуйста, как будут выглядеть в виде байтов несколько первых символов этой строки (910023AC-56DC-48B5-BB86-55C1C9A21AC1), а то без конкретного примера я не соображу, как это будет.

...

Рейтинг:

0 / 0

14.10.2006, 10:38

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055026

Кеус

Гость

Палестинец
1)строкой длиной в 20 символов из больших букв латинского алфавита можно занумеровать ~20^20 документов , чего хватит на 20^20 / 20000 месяцев работы проги что много больше времени предпологаемого существования солнечной системы.

Нужен ли тут именно GUID???
а может просто номер числовой??

Да нам и 10 символов хватало, но решили перейти на GUID в качестве идентификатора не мы, а Москва, при том по всей стране.

Палестинецзы. бедные юзери ищущие документ по гуид

У каждого документа есть серия и номер, который видят пользователи, но он может быть не уникальный. Идентификатор используется только для электронного обмена. Да и на уровне нашей организации ни кто не работает конкретно с каждым документом в ручную. Используют только общие данные, типа суммы выплаты вознаграждения по всем документам конкретного учреждения.

У нас в области есть около 70 учреждений, где создаются каждый день куча документов, затем эти документы в электронном формате передаются нашей организации. Мы их заносим в базу и раз в месяц все эти документы выгружаем в один файл и отдаем в следующую организацию, а та в свою очередь еще в одну. Затем всё это возвращается назад по той же цепочке. При том один и тот же документ может месяцами ходить по этой цепочке. Каждый такой документ должен уникально идентифицироваться, раньше в качестве уникального номера использовался «код учреждения»+»порядковый номер документа» в этом учреждении. Затем в Москве решили перейти на единый формат обмена файлами и в качестве уникального идентификатора документа предписали использовать GUID (формат обмена действует для всей страны в рамках этого направления). От GUID отказаться нельзя, создать дополнительный реквизит для хранения GUID можно, но поиск по нему будет очень медленный и загрузка \ выгрузка данных затянется на сутки.

Хранение символов в байтах я понимаю, но как записать их в 1С не представляю.

...

Рейтинг:

0 / 0

14.10.2006, 11:12

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055077

DocAl

Участник

Откуда: Оккупирую западный берег

Сообщения: 9 935

Рейтинг: 0 / 0

...

Рейтинг:

0 / 0

14.10.2006, 12:52

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055219

Кеус

Гость

DocAlА разрядность "числа" у этой чудо-системы какая?

Длина числа может быть 20 знаков с точностью в 9.
Можно записать число Пи: 3.141592653

...

Рейтинг:

0 / 0

14.10.2006, 17:18

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055293

DocAl

Участник

Откуда: Оккупирую западный берег

Сообщения: 9 935

Рейтинг: 0 / 0

Кеус От GUID отказаться нельзя, создать дополнительный реквизит для хранения GUID можно, но поиск по нему будет очень медленный и загрузка \ выгрузка данных затянется на сутки.

Может, возможно нужный индекс в базе создать просто?

...

Рейтинг:

0 / 0

14.10.2006, 20:05

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055307

aleks2

Участник

Сообщения: 12 453

Рейтинг: 0 / 0

Кеус aleks2

Спасибо за разъяснение. Хранить символы в байтах и битах это конечно хорошо, но платформа 1С этого не позволяет. Я могу использовать только "Строка" или "Число". Т.е. мне надо строку из 36 символов превратить в строку (число) максимум в 20 символов, а потом без потерь восстановить в первоначальный вид.
Я просто не представляю, как записать байты в строковое или числовое поле. Если не трудно покажите, пожалуйста, как будут выглядеть в виде байтов несколько первых символов этой строки (910023AC-56DC-48B5-BB86-55C1C9A21AC1), а то без конкретного примера я не соображу, как это будет.

Я без Help-а програмиировать в 1C не могу - не помню имен функций наизусть... на VBA - пожалуйста

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Option Compare Database
Option Explicit

Private Const HEX As String = "0123456789ABCDEF"

Sub GuidToStr16(ByVal aGUID As String, ByRef aStr16 As String)
Dim i As Long
   aGUID = Mid(aGUID,  2 , Len(aGUID) -  2 )
   aGUID = Replace(aGUID, "-", "")
   aStr16 = ""
   For i =  1  To  32  Step  2 
     aStr16 = aStr16 + Chr(InStr(HEX, Mid(aGUID, i,  1 )) +  16  * InStr(HEX, Mid(aGUID, i +  1 ,  1 )))
   Next
End Sub

Sub tst()
  Dim g As String, s16 As String
  g = "(910023AC-56DC-48B5-BB86-55C1C9A21AC1)"
  GuidToStr16 g, s16
  MsgBox s16
End Sub

----------------------------------------------
Извиняй, но кодировать число по основанию 94 - учись сам.

...

Рейтинг:

0 / 0

14.10.2006, 20:21

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055542

Кеус

Гость

aleks2 на VBA - пожалуйста

Спасибо за пример. Понял Вашу мысль, вроде то, что мне может подойти.

...

Рейтинг:

0 / 0

15.10.2006, 11:28

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055550

Кеус

Гость

DocAlМожет, возможно нужный индекс в базе создать просто?

1С не позволяет самому создавать индексы. Точнее, там есть несколько намертво записанных полей, по которым оптимизирован поиск и они присутствуют во всех документах. Можно создать свои поля (реквизиты) для поиска, но по ним поиск значительно медленней, чем по предопределенным в системе.
1С не удовлетворительно работает с задачей, для которой мы её используем. Как оказалось с большим объемом данных она не справляется. Если использовать дополнительные реквизиты для поиска, то мы не сможем уложиться в отведенные нам временные рамки. Вот и приходится через математику решать возникающие проблемы.

...

Рейтинг:

0 / 0

15.10.2006, 11:45

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34055787

DocAl

Участник

Откуда: Оккупирую западный берег

Сообщения: 9 935

Рейтинг: 0 / 0

Зато MS SQL вполне может позволить создать-таки нужный индекс. Хотя у вас, возможно, файл-серверная версия..

...

Рейтинг:

0 / 0

15.10.2006, 18:32

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34058696

RasimS

Участник

Откуда: SPB

Сообщения: 942

Рейтинг: 0 / 0

...

Рейтинг:

0 / 0

16.10.2006, 23:02

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34060314

Гавриленко Сергей Алексеевич

Участник

Откуда: Moscow

Сообщения: 37 171

Рейтинг: 0 / 0

DocAlХотя у вас, возможно, файл-серверная версия..
И документов 200000/мес?

...

Рейтинг:

0 / 0

17.10.2006, 14:46

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34062182

Кеус

Гость

Гавриленко Сергей Алексеевич DocAlХотя у вас, возможно, файл-серверная версия..
И документов 200000/мес?

1C у нас SQL версии. Сомневаюсь, что без вреда для самой 1С не из конфигуратора можно создавать индексы. Документов создается 200 000 в месяц, и от раза к разу их всё больше.

...

Рейтинг:

0 / 0

18.10.2006, 05:38

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34064875

DocAl

Участник

Откуда: Оккупирую западный берег

Сообщения: 9 935

Рейтинг: 0 / 0

Было б интересно узнать, о каком вреде идёт речь... Если, конечно, не о копеечном замедлении занесения данных в базу.)

...

Рейтинг:

0 / 0

18.10.2006, 19:22

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34065350

Кеус

Гость

DocAlБыло б интересно узнать, о каком вреде идёт речь... Если, конечно, не о копеечном замедлении занесения данных в базу.)

Имеется в виду, что разработчики 1С не рекомендуют что-то менять не посредственно в SQL базе. Конечно это не факт, что возникнут проблемы, но не хочется повредить такую большую базу. Можно делать прямые запросы в SQL базу и даже добавлять новые данные, но создавать индексы... 1С вроде сама создает и удаляет нужные индексы. Проблема не в SQL базе, а в среде 1С. Она сама по себе замедляет работу, прямой запрос к SQL базе выдает результат в 60 раз быстрее, чем тот же запрос в 1С, но это не наш вариант. Исключительно по административным причинам.

...

Рейтинг:

0 / 0

19.10.2006, 06:25

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34070038

Палестинец

Участник

Сообщения: 8 299

Рейтинг: 0 / 0

Создай в Документы->ОбщиеРеквизиты реквизит GUID. поставь галочку отбор.
И в экспорт импорт вместо номера подставляй этот реквизит. и всё.

...

Рейтинг:

0 / 0

20.10.2006, 14:45

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34072940

Кеус

Гость

ПалестинецСоздай в Документы->ОбщиеРеквизиты реквизит GUID. поставь галочку отбор.
И в экспорт импорт вместо номера подставляй этот реквизит. и всё.

В общем случае это хороший вариант. Такую возможность я знаю, мы её рассматривали, но поиск по общему реквизиту всё равно медленней, чем поиск по номеру документа. При небольшом объеме данных это не так заметно, а при нашем имеет значение каждый процент производительности.
Период поиска документа у нас год. Потому что дата документа может, изменится, с даты допустим текущего месяца, после исправления в учреждении стать датой прошлого или даже позапрошлого месяца. Такая возможность вероятна. Если бы период был месяц, то поиск по общему реквизиту нас бы устроил, но к сожалению это не так.

...

Рейтинг:

0 / 0

23.10.2006, 08:47

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34092969

ффф

Гость

aleks2

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Option Compare Database
Option Explicit

Private Const HEX As String = "0123456789ABCDEF"

Sub GuidToStr16(ByVal aGUID As String, ByRef aStr16 As String)
Dim i As Long
   aGUID = Mid(aGUID,  2 , Len(aGUID) -  2 )
   aGUID = Replace(aGUID, "-", "")
   aStr16 = ""
   For i =  1  To  32  Step  2 
     aStr16 = aStr16 + Chr(InStr(HEX, Mid(aGUID, i,  1 )) +  16  * InStr(HEX, Mid(aGUID, i +  1 ,  1 )))
   Next
End Sub

Sub tst()
  Dim g As String, s16 As String
  g = "(910023AC-56DC-48B5-BB86-55C1C9A21AC1)"
  GuidToStr16 g, s16
  MsgBox s16
End Sub

А как востановить тот ГУИД номер?

...

Рейтинг:

0 / 0

31.10.2006, 09:38

| Ответить | Цитировать | Написать

Подскажите алгоритм сжатия строки текста

#34121465

aleks2

Участник

Сообщения: 12 453

Рейтинг: 0 / 0

ффф aleks2

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Option Compare Database
Option Explicit

Private Const HEX As String = "0123456789ABCDEF"

Sub GuidToStr16(ByVal aGUID As String, ByRef aStr16 As String)
Dim i As Long
   aGUID = Mid(aGUID,  2 , Len(aGUID) -  2 )
   aGUID = Replace(aGUID, "-", "")
   aStr16 = ""
   For i =  1  To  32  Step  2 
     aStr16 = aStr16 + Chr(InStr(HEX, Mid(aGUID, i,  1 )) +  16  * InStr(HEX, Mid(aGUID, i +  1 ,  1 )))
   Next
End Sub

Sub tst()
  Dim g As String, s16 As String
  g = "(910023AC-56DC-48B5-BB86-55C1C9A21AC1)"
  GuidToStr16 g, s16
  MsgBox s16
End Sub

А как востановить тот ГУИД номер?

А подумать? Нет прЫвычки?

Код: plaintext

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.
34.

Option Compare Database
Option Explicit

Private Const HEX As String = "0123456789ABCDEF"

Sub GuidToStr16(ByVal aGUID As String, ByRef aStr16 As String)
Dim i As Long
   aGUID = Mid(aGUID,  2 , Len(aGUID) -  2 )
   aGUID = Replace(aGUID, "-", "")
   aStr16 = ""
   For i =  1  To  32  Step  2 
     aStr16 = aStr16 + Chr(InStr(HEX, Mid(aGUID, i,  1 )) -  1  +  16  * (InStr(HEX, Mid(aGUID, i +  1 ,  1 )) -  1 ))
   Next
End Sub

Function Str16ToGuid(ByVal aStr16 As String) As String
Dim i As Long, s As String, b As Byte
   s = ""
   For i =  1  To  16 
     b = Asc(Mid(aStr16, i,  1 ))
     s = s + Mid(HEX, (b And &HF) +  1 ,  1 )
     s = s + Mid(HEX, Int(b /  16 ) +  1 ,  1 )
   Next
   
   Str16ToGuid = "(" + Left(s,  8 ) + "-" + Mid(s,  9 ,  4 ) + "-" + Mid(s,  13 ,  4 ) _
                + "-" + Mid(s,  17 ,  4 ) + "-" + Right(s,  12 ) + ")"
End Function

Sub tst()
  Dim g As String, s16 As String
  g = "(910023AC-56DC-48B5-BB86-55C1C9A21AC1)"
  GuidToStr16 g, s16

  MsgBox Str16ToGuid(s16)
End Sub

...

Рейтинг:

0 / 0

11.11.2006, 21:13

| Ответить | Цитировать | Написать

32 сообщений из 32, показаны все 2 страниц

все

Форумы / Программирование [игнор отключен] [закрыт для гостей] / Подскажите алгоритм сжатия строки текста

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=Programmer+C%23&author_mode=last_topics&do_search=1]:	0ms
get settings:	5ms
get forum list:	10ms
get settings:	4ms
get forum list:	8ms
check forum access:	2ms
check topic access:	2ms
track hit:	44ms
get topic data:	6ms
get forum data:	1ms
get page messages:	33ms
get tp. blocked users:	1ms
others:	648ms

total:	764ms