CSV Base а-ля XBase
Разработка - Разработка внешних компонент
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
В основном актуально для тех, кто занимается клиент-банками. Может быть такая систуация, когда банк обновляет свою программу. И хорошо написанная обработка для 1С вдруг не катит. Причина: Вдруг банк начал принимать файлы не в *.dbf формате, а в *.csv формат. Что же делать? На выручку приходит OLE.
По сути. Данный скрипт имитирует хорошо известный XBase. (Ну почти... только самое необходимоя, и то для чтения... Пока... Может уважаемый читатель захочет добавить и запись... Тогда прошу смелее, ну или в новой версии будет...)
А именно:
ОткрытьФайл - как XBase
КодоваяСтраница - как XBase (типа "Оставлена для совместимости")
Первая - как XBase
Следующая - как XBase
вКонце - как XBase
ЗакрытьФайл - как XBase
Открыта - как XBase
КодОшибки - как XBase (тока: "Пишет строку исключения")
НомерЗаписи - как XBase (че то не пашет ззззз)
ЗаписьУдалена - как XBase (Пока заглушка)
Версия - Это новенькое от души
Поле - Ну не придумали еще Microsoft в своих скриптах динамическое формирование свойств. Что делать ума не приложу!!!
Пример кода (условно):
//ФайлБД = СоздатьОбъект("XBase"); типа для наглядности, как я заменил
ФайлБД = СоздатьОбъект("Crym69.CSVBase");
ФайлБД.ОткрытьФайл(Путь,,1);
ФайлБД.Открыта();
ФайлБД.КодоваяСтраница(2-Кодировка);
ФайлБД.Первая();
Пока (ФайлБД.вКонце() = 0) Цикл
Если ФайлБД.ЗаписьУдалена() = 1 Тогда
ФайлБД.Следующая();
Продолжить;
КонецЕсли;
ФайлБД.Поле("МФО банка"); // даже с пробелами и на русском понимает
ФайлБД.Следующая();
КонецЦикла;
ФайлБД.ЗакрытьФайл();
Ну, пожалуй, все...
С ув. Crym69...
Вступайте в нашу телеграмм-группу Инфостарт
