![]() |
![]() |
![]() |
|
конвертация 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
|
спасибо, буду разбираться
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |