Выгрузка справочник в текстовый документ txt

1С v8

, ,

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

v8: Преобразование csv в таблицу значений, продолжение
v8: v8:ИзСтрокиСРазделителями

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) ты наверное думаешь я не ищу, а сразу лезу на форум. Нет это не так.
Я не знаю что вы там пишите в гугле, что первая ссылка открывает то что нужно, у меня открывается все остальное, кроме нужного