Имя: Пароль:
1C
 
Мозгокруты от 1С
0 H A D G E H O G s
 
17.01.11
23:33
Сделали рег отчетность на Текст. документе. Декларация №6 по алкоголю.
И 50 мегабайт долго и печально переразмещаются в оперативке 120000*16 раз.
А потом вываливается при попытке проверить - выгрузилось ли что нибудь

Если ТекТекст.ПолучитьТекст() = "" Тогда
КонецЕсли;

Феерично...

В то же время, благодаря кэшу прямая запись в файл
ЗаписьТекста
работает махом....

Счаст будем переписывать.
1 H A D G E H O G s
 
17.01.11
23:33
Печально
2 H A D G E H O G s
 
17.01.11
23:34
А хранить миллионы показателей в индексированной структуре.

Откуда они только вылупляются?
3 bazvan
 
17.01.11
23:36
дак это же вредое уже было за 9 месяцев кажется. в скуле вообще много много суток ковырялось
4 H A D G E H O G s
 
17.01.11
23:40
(3) Хрен бы с "много суток".
Там 3 мертвых места уже:
1) Вывод в табличный документ - 55000 строк и амба, out of memory (сделал поблочный вывод)
2) При записи - помещение в Структуру всех Показателей - out of memory (перевел на ТЗ)
3) При выгрузке в текстарь - накопление в таб доке - и формирование 3 часа (все медленней и медленней, таб док увеличивается, String из-за фрагментации памяти надо переразмещать при каждом увеличении) - счаст буду прямой в файл писать.
5 andrewks
 
17.01.11
23:40
у меня в 7.7 всё летает и не глючит (кроме печати канэш) :-)
6 H A D G E H O G s
 
17.01.11
23:41
Примитивненький тестик:

Процедура Кнопка1Нажатие(Элемент)
   Запись=Новый ЗаписьТекста("C:\readtext.txt");
   Текст="Проверка навигационных систем...Проверка навигационных систем...Проверка навигационных систем...Проверка навигационных систем...Проверка навигационных систем...";
   Для сч=1 по 100000 Цикл
       Запись.ЗаписатьСтроку(Текст);
       Если сч%1000=0 Тогда
           Сообщить(Строка(сч));
       КонецЕсли;
   КонецЦикла;
   Запись.Закрыть();
КонецПроцедуры

Процедура Кнопка2Нажатие(Элемент)
   Запись=Новый ТекстовыйДокумент();
   Текст="Проверка навигационных систем...Проверка навигационных систем...Проверка навигационных систем...Проверка навигационных систем...Проверка навигационных систем...";
   Для сч=1 по 100000 Цикл
       Запись.ДобавитьСтроку(Текст);
       Если сч%1000=0 Тогда
           Сообщить(Строка(сч));
       КонецЕсли;
   КонецЦикла;
   Запись.Записать("C:\textdoc.txt");
КонецПроцедуры
7 zmaximka
 
17.01.11
23:43
ну результат то тестика сообщии. не томи
8 bazvan
 
17.01.11
23:43
(4) а на счет 55 000 строк это не с 2003 екселем связано? нет?
чето мои алкоголики такое говорили.

Хотя свистеть не буду не очень в теме
9 H A D G E H O G s
 
17.01.11
23:45
(8) Нет.
(7) Там просто на окно сообщений надо смотреть.
10 andrewks
 
17.01.11
23:48
как насчёт
fso=СоздатьОбъект("Scripting.FileSystemObject");
textfile=fso.CreateTextFile(ИмяФайла, -1, 0);
11 H A D G E H O G s
 
17.01.11
23:50
(10) Какая разница?
12 andrewks
 
17.01.11
23:51
(11) разница между чем и чем? ЗаписьТекста или ТекстовыйДокумент?
13 H A D G E H O G s
 
17.01.11
23:55
ЗаписьТекста
и
fso=СоздатьОбъект("Scripting.FileSystemObject");
14 Один С
 
17.01.11
23:56
не узнаю Базвана. где знаменитое "все кругом тупые", "проблема в ДНК", "у меня 200 клиентов работает и никаких проблем"?
только глядя на уверенные сообщения Базвана, что в 1с все хорошо, я верил, что в 1с действительно все хорошо.
а теперь получается, что не все так радужно?
я начинаю терять веру в человечество...
15 bazvan
 
17.01.11
23:59
(14) У меня все хорошо, и вопросы решаются. Только я сам кодингом не занимаюсь, для этого есть отдел.

Проблема встречалась еще за 9 месяцев (пришла жаллба от клиента) вопрос был решен клиент доволен. Что там было сделано я к сожелению не ведую (только то что слышал уже спросил, сказали не то).
16 bazvan
 
18.01.11
00:00
(14) Радужно. у наших клиентов радужно. За это (что бы у них было все радужно) они мне платят не маленькие деньги.

Хорошо жить дорого стоит.
17 andrewks
 
18.01.11
00:00
(13) не взыщи, 8ру всего неделю ковыряю. этот объект пользую в 7-ке, проблем нет, а поскольку объект системный, счёл своим долгом предложить. раз ЗаписьТекста построен на этом же объекте - тихо уползаю.
18 Snovy
 
18.01.11
00:08
Не поленился...
Запись текста - 5 сек
Текстовый документ 229 сек
Платформа 8.1.15, домашний комп проц.D630 память 2Г.
19 Asmody
 
18.01.11
00:42
(0) муданты уппырнутые, руки от жопы, потому что жопа вместо головы, ну что с них взять?