//-----------------------------------------------------------------------------
Функция ПолучитьКаталог(ВыбФайл)
   СтрКаталог = СокрЛП(ВыбФайл);
   ИсхСтр = СокрЛП(ВыбФайл);
   НовыйКаталог = "";
   Если СтрЧислоВхождений(ИсхСтр, ".") = 0 Тогда
       Возврат ИсхСтр;
   КонецЕсли;
   Если СтрЧислоВхождений(СтрКаталог, "\") > 0 Тогда
       Поз = Найти(СтрКаталог, "\");
       Пока Поз > 0 Цикл
          СтрКаталог = Прав(СтрКаталог, СтрДлина(СтрКаталог)-Поз);
          Поз2 = Найти(ИсхСтр, СтрКаталог);
          НовыйКаталог = Лев(ИсхСтр, Поз2-1);
          Поз = Найти(СтрКаталог, "\");
       КонецЦикла;
   КонецЕсли;
   Возврат НовыйКаталог;
КонецФункции
//-----------------------------------------------------------------------------
// Выбор файла
Функция ВыборФайла(ВыбФайл, СтрЗаголовок, СтрПриглашение)
   Перем ПредстСпр;
   НовыйФайл = "";
   НовыйКаталог = ПолучитьКаталог(ВыбФайл);
   Если НовыйКаталог = "" Тогда
       НовыйКаталог = ФС.ТекКаталог()
   КонецЕсли;
   Если ФС.ВыбратьФайл(0, НовыйФайл, НовыйКаталог, СтрЗаголовок, СтрПриглашение+"(*.txt)|*.txt|Все файлы(*.*)|*.*", "txt") = 1 Тогда
       ВыбФайл = НовыйКаталог+НовыйФайл;
       Возврат 1;
   КонецЕсли;
   Возврат 0;
КонецФункции
//*******************************************
Функция РазбитьСтроку(всз,Стр,Разделитель)
   всз=СоздатьОбъект("СписокЗначений"); //Возвращаемый список значее
   //всз=СЗ;
   закончить=0;
   Пока закончить=0 Цикл
       поз=Найти(Стр,Разделитель);
       Если поз=0 Тогда
           всз.ДобавитьЗначение(Стр);
           закончить=1;
       Иначе
           всз.ДобавитьЗначение(лев(Стр,поз-1));
           Стр=Прав(Стр,СтрДлина(Стр)-поз-СтрДлина(Разделитель)+1);
       КонецЕсли;
   КонецЦикла;
   Возврат всз;
КонецФункции
//*******************************************
Процедура ОбработкаКонтрагента()

Перем всз,Контр;

Файл=СоздатьОбъект("Текст");
СпрЮр=СоздатьОбъект("Справочник.Юрлица");
СпрФиз=СоздатьОбъект("Справочник.ФизЛица");
СпрКонтр=СоздатьОбъект("Справочник.Контрагенты");
СпрДог=СоздатьОбъект("Справочник.Договоры");

Файл.КодоваяСтраница(0);                            
Файл.Открыть(ВыбФайлЗагрузки);
ВсегоЭлементовВФайле=Окр((Файл.КоличествоСтрок()),0,1);
ВсегоЭлементовВФайле=ВсегоЭлементовВФайле-1;
НачатьТранзакцию();
Для нн=2 По ВсегоЭлементовВФайле Цикл
                                             
// временный цикл для четырех элементов        
//Для нн=10 По 13 Цикл
   ДлИНН=0;
   Стр=Файл.ПолучитьСтроку(нн);
   РазбитьСтроку(всз,Стр,Разделитель);
   Код = Строка(всз.ПолучитьЗначение(1));
   ИНН=Строка(всз.ПолучитьЗначение(5));
   Наименование=Строка(всз.ПолучитьЗначение(10));
   ДлИНН = СтрДлина(ИНН);
   Если ((СпрЮр.НайтиПоКоду(Код,0)=0) и (ДлИНН=10)) или ((СпрЮр.НайтиПоКоду(Код,0)=0) и (ДлИНН=20)) Тогда
       Сообщить("Добавленно юрлицо "+Наименование);
       СпрЮр.Новый();
       СпрЮр.ИспользоватьДату(ТекущаяДата());
       СпрЮр.Код = Код;
       СпрЮр.Наименование = Наименование;
       СпрЮр.ПолнНаименование = Наименование;
       СпрЮр.ИНН = ИНН;
       СпрЮр.Записать();
       СпрКонтр.Новый();
       СпрКонтр.ИспользоватьДату(ТекущаяДата());
       СпрКонтр.Код = Код;
       СпрКонтр.Наименование = Наименование;
       СпрКонтр.ЮрФизЛицо = СпрЮр.ТекущийЭлемент();
       СпрКонтр.Записать();
       СпрДог.Новый();
       СпрДог.Владелец = СпрКонтр.ТекущийЭлемент();
       
       // Заполнение реквизитов слоя "ОсновнойДоговор".
       СпрДог.Наименование           = "Основной договор";
       СпрДог.ВалютаВзаиморасчетов   = Константа.ВалютаБухУчета;
       
       СпрДог.Записать();
       
       // Установка основного договора.
       СпрКонтр.ОсновнойДоговор = СпрДог.ТекущийЭлемент();
       СпрКонтр.Записать();        
   ИначеЕсли (СпрФиз.НайтиПоКоду(Код,0)=0) и (ДлИНН=12) Тогда
       Сообщить("Добавленно физлицо "+Наименование);
       СпрФиз.Новый();
       СпрФиз.ИспользоватьДату(ТекущаяДата());
       СпрФиз.Код = Код;
       СпрФиз.Наименование = Наименование;
       СпрФиз.ПолнНаименование = Наименование;
       СпрФиз.ИНН = ИНН;
       СпрФиз.Записать();
       СпрКонтр.Новый();
       СпрКонтр.ИспользоватьДату(ТекущаяДата());
       СпрКонтр.Код = Код;
       СпрКонтр.Наименование = Наименование;
       СпрКонтр.ЮрФизЛицо = СпрФиз.ТекущийЭлемент();
       СпрКонтр.Записать();
       СпрДог.Новый();
       СпрДог.Владелец = СпрКонтр.ТекущийЭлемент();
       
       // Заполнение реквизитов слоя "ОсновнойДоговор".
       СпрДог.Наименование           = "Основной договор";
       СпрДог.ВалютаВзаиморасчетов   = Константа.ВалютаБухУчета;
       
       СпрДог.Записать();
       
       // Установка основного договора.
       СпрКонтр.ОсновнойДоговор = СпрДог.ТекущийЭлемент();
       СпрКонтр.Записать();        


   Иначе
       Сообщить("Элемент справочника с кодом " + Код + " существует или неверно введен ИНН "+ИНН);
       Сообщить(Наименование);
       Продолжить;
   КонецЕсли;
   
   
   
КонецЦикла;
ЗафиксироватьТранзакцию();
КонецПроцедуры
//-----------------------------------------------------------------------------
Процедура ВыборФайлаЗагрузки()
   ВыборФайла(ВыбФайлЗагрузки, "Выберете файл для загрузки", "Файл для загрузки");
КонецПроцедуры

нужно переделать чтобы работала на 8но что то не получается

и зачем тут эти помои?

(1) 3000 р.

(2) Кэп в (1) как бы намекает - ну перепишите за меня все эти помои чтоб взлетело в снеговике

(3) ты не понимаешь, он бесплатно хочет и учиться не хочет

я разбирал но что то не фурычит на 8

так, стоп
Пол женский.
Автор, фото в личку, все разговоры потом!

"я разбирал ..."
отбой, ахтунг

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

(8) тьфу, точно

(0)Мало, давай весь код релиза.

тебе интим или простое?

(12) отбой ахтунг

это весь код  больше нету

Пожалуй демпенгану...  2995 рублей...

(14)Миста резиновая, все примет.

злые вы

(15) не надо только вот этого, а то опять до тарелки супа договоритесь

(17) нет, не злые, просто коммунизм как бы не взлетел

Автор - формируй темы правильно, информативно.
Правильно оформленная тема на порядки упрощает получение ответа.
В идеале - САМ автор должен ответить на свой вопрос.
Вот как в примере:
v8: Сериализация СпискаЗначений В XDTO. Где я не прав?

пишите лучше по делу

работу с каталогами/файлами сдери с какой-нить типовой обработки загрузки/выгрузки
С Текстом и Справочниками работать несложно. Ситаксис-помощник все скажет

мне нужно это переделать

(22) +500!
https://1cers.ru/users_photo/19975.jpg

вос сижу с утра её переписываю

с 7.7 ниразу не работал

(25) а мог бы 3000 рублей заплатить и все утро пить пиво смотря телек пока за тебя кто то работает...

куча сокращений не понятных

мне нужно разобратся!

просто опыта мало

Ну, так, никто пока вроде еще никто не запретил разбираться?

Сокращения тут:
https://1cers.ru/rules.php

(30) Ну так задай правильный вопрос.

а я где???

2900

можите описать действия модулей

(34) Просто сформулированный тобой вопрос в переводе на нормальный язык звучит так: "господа и дамы, вот тут у меня какой-то код, я понятия не имею как он работает, но мне надо чтобы он работал в 8ке, напишите за меня пожааалуйста и бесплатно"

писать не надо объясните код, а то я тут некоторые сокращения не понимаю

(38) Сокращения = имена переменных ?

(38) Ты хоть пиши, че конкретно не понимаешь, зачем простыни постить?

(38) сужай область вопроса :) Блин, мне вот влом объяснять весь этот код

+(40) Единственное объяснение - что ты ВООБЩЕ ни хрена не понимаешь.

(41) - СокрЛП тогда как объяснишь :)))

СокрЛП,СтрЧислоВхождений

мбугог

(43) Ctrl+F1 - контекстная справка

СокрЛП() объяснить???

(46) к (44)

(44) открываешь семерку, открываешь этот код, встаешь курсором на том что не понятно особенно если оно красненьким шрифтом  и нажимаешь сочетание клавиш Ctrl+F1

Нарожают дебилов...

(50) +100500 причем еще и ленивых ...

(44)Адинэсники сокращают не там где нужно, команда СокрЛП(ТекстСтроки), а если бы делали такую функцию то она была бы СократитьСтрокуСлеваИСправа(ТекстСтроки)

(44)

СтрЧислоВхождений

Строка Число Вхождений
Число вхождений строки в исходну строку

еще раз

Число вхождений строки в исходну строку ИсхСтр
той что ищешь "."

и напоследок
Число вхождений строки в исходну строку -
это сколько раз фрагмент точка встречается в исходном тексте
если 1 раз есть точка то 1, если нет точки то 0

(35) Фигасе... Сильно сбавил... Делай! :)

чё-то тут не бизнесмены, а ламеры какие-то :)
(0) 10000, половину тебе

фигня, прочел (0) с листа, сделаю за тарелку сУППа... с севрюгой...

(54) - :). Так потом можно больше выбить, если на абонентку подсадить. Сначала, вместо СокрЛП написать Прав, затем Лев, затем оптимизировать все это. В общем, можно намутить :). Ну а если клиент не жадный, то (55) рулит :)

(0) скопируй текст в буфер (Ctrl+C), сделай в 1С 7.7 Файл-Новый-Текстовый документ, вставь текст из буфера, сохрани файл как Модуль.v77, потом закрой 1С, найди этот файл, переименуй его в Модуль.v81, открой 1С 8.1 - и сможешь загрузить текст модуля из сохраненного файла (она при открытии спросит "Конвертировать в новую версию?").
К сожалению, сразу в 8.2 (если тебе нужно в 8.2) не получится - только через 8.1, а потом опять сохранить, переименовать в Модуль.v82 и открывать уже в 8.2.
Смотри внимательно - если перепутаешь, чем открывать или пересохранишь поверх созданного в более поздней версии - потом уже не откроешь, придется сначала начинать! Поэтому делай резервные копии или сохраняй в другую папку (я себе завел ExtForms77, ExtForms81 и ExtForms82).

2500

(0) ТС - пятничный бот?

(60) это гомосятина

1ё000