Помогите описать программный код.
28.04.2012
16:41
#1
"Функция ПолучитьКаталог(ВыбФайл)
СтрКаталог = СокрЛП(ВыбФайл);
ИсхСтр = СокрЛП(ВыбФайл);
НовыйКаталог = """";
Если СтрЧислоВхождений(ИсхСтр, ".") = 0 Тогда
Возврат ИсхСтр;
КонецЕсли;
Если СтрЧислоВхождений(СтрКаталог, "\") > 0 Тогда
Поз = Найти(СтрКаталог, "\");
Пока Поз > 0 Цикл
СтрКаталог = Прав(СтрКаталог, СтрДлина(СтрКаталог) - Поз);
Поз2 = Найти(ИсхСтр, СтрКаталог);
НовыйКаталог = Лев(ИсхСтр, Поз2 - 1);
Поз = Найти(СтрКаталог, "\");
КонецЦикла;
КонецЕсли;
Возврат НовыйКаталог;
КонецФункции
//*******************************************
Функция ВыборФайла(ВыбФайл, СтрЗаголовок, СтрПриглашение)
Перем ПредстСпр;
НовыйФайл = """";
НовыйКаталог = ПолучитьКаталог(ВыбФайл);
Если НовыйКаталог = """" Тогда
НовыйКаталог = ФС.ТекКаталог()
КонецЕсли;
Если ФС.ВыбратьФайл(1, НовыйФайл, НовыйКаталог, СтрЗаголовок, "Текстовый файл (*.txt)|*.txt|", "txt") = 1 Тогда
ВыбФайл = НовыйКаталог + НовыйФайл;
Возврат 1;
КонецЕсли;
Возврат 0;
КонецФункции
//*******************************************
Процедура ВыборФайлаВыгрузки()
ВыборФайла(ВыбФайлВыгрузки, "Выберите файл для выгрузки.","Файл для выгрузки");
КонецПроцедуры"
СтрКаталог = СокрЛП(ВыбФайл);
ИсхСтр = СокрЛП(ВыбФайл);
НовыйКаталог = """";
Если СтрЧислоВхождений(ИсхСтр, ".") = 0 Тогда
Возврат ИсхСтр;
КонецЕсли;
Если СтрЧислоВхождений(СтрКаталог, "\") > 0 Тогда
Поз = Найти(СтрКаталог, "\");
Пока Поз > 0 Цикл
СтрКаталог = Прав(СтрКаталог, СтрДлина(СтрКаталог) - Поз);
Поз2 = Найти(ИсхСтр, СтрКаталог);
НовыйКаталог = Лев(ИсхСтр, Поз2 - 1);
Поз = Найти(СтрКаталог, "\");
КонецЦикла;
КонецЕсли;
Возврат НовыйКаталог;
КонецФункции
//*******************************************
Функция ВыборФайла(ВыбФайл, СтрЗаголовок, СтрПриглашение)
Перем ПредстСпр;
НовыйФайл = """";
НовыйКаталог = ПолучитьКаталог(ВыбФайл);
Если НовыйКаталог = """" Тогда
НовыйКаталог = ФС.ТекКаталог()
КонецЕсли;
Если ФС.ВыбратьФайл(1, НовыйФайл, НовыйКаталог, СтрЗаголовок, "Текстовый файл (*.txt)|*.txt|", "txt") = 1 Тогда
ВыбФайл = НовыйКаталог + НовыйФайл;
Возврат 1;
КонецЕсли;
Возврат 0;
КонецФункции
//*******************************************
Процедура ВыборФайлаВыгрузки()
ВыборФайла(ВыбФайлВыгрузки, "Выберите файл для выгрузки.","Файл для выгрузки");
КонецПроцедуры"
USB-ключ к программе, Восстановить бесплатно или за деньги?Перенос данных из 1С 7.7 Бухгалтерский учет (7.70.538) в 1С 8.2 БП 2.0 (2.0.34.11)
Читают тему
(гостей: 1)