13.12.2018, 01:27 [+3 UTC]
в нашей команде: 3 219 чел. | участники онлайн: 4 (рекорд: 19)

:: РЕГИСТРАЦИЯ

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.58 (11.12.2018)

Общие новости:
01.12.2018, 22:30

Форум:
08.12.2018, 14:26

Последний вопрос:
12.12.2018, 18:21

Последний ответ:
12.12.2018, 10:25

Последняя рассылка:
12.12.2018, 23:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
08.05.2010, 12:17 »
Королев Олег Владимирович
Удовлетворил ответ спасибо. [вопрос № 178192, ответ № 261279]
16.08.2009, 18:01 »
Semiotic
Спасибо все спецам за их отзывчивость по любому поводу, за их ангельское терпение к безграмотным, ленивым и тупым вопросителям!
18.11.2010, 21:54 »
Sergey V. Gornostaev
Спасибо конечно, второе решение наверно оптимальней для кол-ва рабочих мест от 10 и выше, но только один сервер с ПО настолько выбивает из бюджета, что все таки принял решение взять отдельные ПК на базе Atom, с установкой Windows XP. [вопрос № 180830, ответ № 264175]

РАЗДЕЛ [неизвестная рассылка]

[администратор рассылки: [неизвестный]]

Лучшие эксперты в этом разделе


Перейти к консультации №:
 

Консультация онлайн # 140918
Раздел: [неизвестная рассылка]
Автор вопроса: Besker®
Отправлена: 28.07.2008, 19:58
Поступило ответов: 1

Здравствуйте Уважаемые эксперты! Вопрос по версии 8.
Подскажите (или подпраьте мой код) как корректно загрузить из текстового файла сотрудников.

Процедура КнопкаВыполнитьНажатие(Кнопка)
ТекстФайл=Новый ТекстовыйДокумент;
ТекстФайл.Прочитать("c:sotr.txt");

Для НомСтроки=1 По ТекстФайл.КоличествоСтрок() Цикл
Стр=ТекстФайл.ПолучитьСтроку(НомСтроки);
Позиция=Найти(Стр,Символ(34));
Код=Сред(Стр,1,Позиция-1);
Наименование=Сред(Стр,14,Позиция+50);

НовыйЭлемент=Справочники.ФизическиеЛица.СоздатьЭлемент();
НовыйЭлемент.Код=Код;
НовыйЭлемент.Наименование=Наименование;
НовыйЭлемент.Записать();
КонецЦикла;
КонецПроцедуры

Текст выглядит следующим образом:
"00005""Сидоров Петр Иванович"
"00006""Петров Федор Валентинович"

Сорри начинаю изучать версию восемь!

Состояние: Консультация закрыта

Ответ # 226904 от Sim_tm

Здравствуйте, Besker®!
На первый взгляд у вас все правильно.
я бы правда использовал "немного" другие объекты, в приложении мой вариан (как альтернатива).
ну и неплохо бы наверно было дать возможность пользователю выбрать файл в котором находятся данные. Для этого можно использовать диалог выбора файла.
А еще, возможно, Вам необходимо сделать поиск в справочнике на уже существующие элементы либо по коду, либо по наименованию, а то вдгур элементы с таким кодом или наименованиме уже кто-то ввел ручками или раньше загрузил.

Приложение:


Консультировал: Sim_tm
Дата отправки: 28.07.2008, 21:05

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.13699 сек.

© 2001-2018, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.58 от 11.12.2018