ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.х
 Процедура КнопкаВыполнитьНажатие(Элемент)
      
ТекстовыйФайл = Новый ТекстовыйДокумент();
ПутьКФайлу = "C:\Documents and Settings\Adm\Application Data\1C\1Cv8\v8ib.lst";
ТекстовыйФайл.Прочитать(ПутьКФайлу);
КС = ТекстовыйФайл.КоличествоСтрок();
Для Сч = 1 По КС Цикл
Строка = ТекстовыйФайл.ПолучитьСтроку(Сч-1);
Строка = СтрЗаменить(Строка, "NEW", "АБ:Фантастика 8.0");
ТекстовыйФайл.ЗаменитьСтроку(Сч-1, Строка);
КонецЦикла;
ТекстовыйФайл.Записать(ПутьКФайлу, КодировкаТекста.UTF8);
КонецПроцедуры


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.