Имя: Пароль:
1C
1С v8
Выгрузка справочник в текстовый документ txt
0 r2d24
 
14.11.13
15:08
Выгрузка справочник в текстовый документ txt
Написал код для выгрузки справочника "Валюты" из 1с 8.2 в txt. Код работает.
Текст = новый ТекстовыйДокумент;
    Выборка=Справочники.Валюты.Выбрать();
    Пока Выборка.Следующий() Цикл
        Стр=Строка(Выборка.Наименование);
        Стр2=Строка(Выборка.Код);
        Стр3=Строка(Выборка.Родитель);
        Текст.ДобавитьСтроку(Стр+"|"+Стр2+"|"+Стр3+"|");
    КонецЦикла;
    Текст.Записать("D:\123.txt");

Подскажите как выгрузить справочник из 1с 7.7
Заранее спасибо
1 Михаил Козлов
 
14.11.13
15:09
Примерно так же.
2 r2d24
 
14.11.13
15:11
(1) я знаю что языки на этих платформах похожи. Но в чем их различия я не знаю?
3 Михаил Козлов
 
14.11.13
15:13
(2) СП в 7-ке тоже есть.
4 r2d24
 
14.11.13
15:17
(3) что есть? я не понимаю?
5 Serginio1
 
14.11.13
15:20
6 mikecool
 
14.11.13
15:20
Текст = СоздатьОбъект("Текст");
остальное не меняется
7 r2d24
 
14.11.13
15:25
(6) не не работает, ругается на цикл и переменную справочник.
8 mikecool
 
14.11.13
15:27
(7) ну дальше подумать надо
9 r2d24
 
14.11.13
15:27
По пробовал по другому, теперь на ошибки не ругается,
Только текстовый файл очищает

Текст = СоздатьОбъект("Текст");      
Выборка=СоздатьОбъект("Справочник.Валюты");       
Пока Выборка=1 Цикл
    Стр=Строка(Выборка.Наименование);
    Стр2=Строка(Выборка.Код);
    Стр3=Строка(Выборка.Родитель);
    Текст.ДобавитьСтроку(Стр+"|"+Стр2+"|"+Стр3+"|");
КонецЦикла;
Текст.Записать("D:\123.txt");
10 kosts
 
14.11.13
15:27
(9) Пока Выборка ???? =1 Цикл
11 mikecool
 
14.11.13
15:28
(10) ну а чо? ошибку то не вызывает
12 r2d24
 
14.11.13
15:29
(10) Следующий() -не работает.
13 AllJoke
 
14.11.13
15:29
// Обход элементов справочника
Спр = СоздатьОбъект("Справочник.Материалы");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
     // Дальнейшие действия с Спр.ТекущийЭлемент()
сообщить("Наименование "+спр.Наименование+" Код "+спр.код);
КонецЦикла;

//А через запрос так:
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса ="
     |Период с Дата1 по Дата2;
     |Обрабатывать НеПомеченныеНаУдаление;
     |Спр = Справочник.Материалы.ТекущийЭлемент;
     |Группировка Спр упорядочить по Спр.Наименование;";
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
     Предупреждение("Запрос по элементам справочника не выполнился!");
     Возврат;
КонецЕсли;
// Теперь вся выборка находится в объекте "Запрос"
14 AllJoke
 
14.11.13
15:30
Я *уею от лентяев. гугл - первая ссылка.
15 r2d24
 
14.11.13
15:33
(14) ты наверное думаешь я не ищу, а сразу лезу на форум. Нет это не так.
Я не знаю что вы там пишите в гугле, что первая ссылка открывает то что нужно, у меня открывается все остальное, кроме нужного
AdBlock убивает бесплатный контент. 1Сергей