Имя: Пароль:
1C
 
конвертация xml в txt
0 SoHm
 
05.08.06
11:33
Обращаюсь с проблемой, приходящий програмист 1С сделал выгрузку из xml файла, который вначале преобразуется в txt. Занимает этот процесс очень много времени. Можете что либо посоветовать.

Процедура ПреобрИсхФайла()    
   Файл=СоздатьОбъект("Текст");
   ФайлТХТ=Лев(ИмяФайла,СтрДлина(ИмяФайла)-3)+"txt";
   Если ФС.СуществуетФайл(ФайлТХТ)=1 Тогда
       Файл.Открыть(ФайлТХТ);  
       Файл.Очистить();
   КонецЕсли;
   
   ИсхФайл=СоздатьОбъект("Текст");
   ИсхФайл.Открыть(ИмяФайла);  
   
   Для сч = 1 По ИсхФайл.КоличествоСтрок() Цикл
       ИсхТекст = ИсхТекст + ИсхФайл.ПолучитьСтроку(сч);
   КонецЦикла;                    
   
   Пока (СтрДлина(ИсхТекст)>0)    Цикл
       Состояние("Преобразование файла: " + СтрДлина(ИсхТекст));
       Кон=Найти(ИсхТекст,">");  //<?xml version="1.0"?>
       
       НовСтр=Лев(ИсхТекст,Кон);
       ИсхТекст= СокрЛП(Прав(ИсхТекст,СтрДлина(ИсхТекст)-Кон));
       
       СледНач=Найти(ИсхТекст,"<");
       Если СледНач=1 Тогда
            Файл.ДобавитьСтроку(НовСтр);
       Иначе                  
           Кон=Найти(ИсхТекст,">");
           НовСтр=НовСтр+Лев(ИсхТекст,Кон);
           ИсхТекст= Прав(ИсхТекст,СтрДлина(ИсхТекст)-Кон);  
           Файл.ДобавитьСтроку(НовСтр);
       КонецЕсли;
   КонецЦикла;
   Файл.Записать(ФайлТХТ);
КонецПроцедуры//ПреобрИсхФайла

вот такой код преобразования. Времени уходит очень много. Файл xml в 35 мегов преобразовывался 3 суток
Спасибо заранее
1 jurii
 
05.08.06
11:38
А резельтат сколько метров?
2 SoHm
 
05.08.06
11:56
в результате txt становится больше, на чуть-чуть, но больше
3 Jurii
 
05.08.06
12:34
А зачем вообще такой изврат нужен?
Не проще ли сразу загружать XML-файл?
4 WiFi 2
 
05.08.06
13:14
(0) денег на хорошего программера пожалели? :)
5 WiFi 2
 
05.08.06
13:14
+(4) он вам еще и не такого напишет ;)
6 SoHm
 
05.08.06
13:43
to jurii

незнаю может и проще, он в своей фирме взял эту обработку оказывается

to WiFi 2

стебаться легко, лучше посоветуйте что нибудь.
Програмист этот и так берет по 35 $/час
7 SoHm
 
05.08.06
13:45
Посоветуйть хоть что нибудь, или програмку для обработки xml в txt.
Нету возможности пока, вникать в 1С язык, просто нехватает времени
8 WiFi 2
 
05.08.06
14:08
(6) я не стебусь, просто вырвалось ;)
Все таки 3 дня работает обработка - это круто :)
Я сам нексолько раз такие обработки переделывал, ускорение в 100 раз - не предел.
А советывать... что тут советывать? Тут делать надо.
9 SoHm
 
05.08.06
14:21
просто понять хочется для начала, вообще нужно ли пережимать в txt формат.
Можно ли где посмотреть информацию как 1С работате с xml и txt. В чем разница
10 WiFi 2
 
05.08.06
14:32
(9) очевидно, что формат загрузки выбрал программист. Может ему с xml сложней работать или еще что.
(0) твоя обработка будет работать на два порядока быстрее, если использовать объект v7TextFile.
11 SoHm
 
05.08.06
14:41
А можно где почитать, про объект v7TextFile, примеры использования
Потомучто придется брать все это в свои руки, которые слава богу растут оттуда откуда надо. Только знаний пока нету...
12 WiFi 2
 
05.08.06
15:00
13 SoHm
 
05.08.06
15:54
спасибо, буду разбираться