Редактирование файла file.htm лежащего на диске, добавление одной строки
Добрый день уважаемые форумчане !!!
Прошу помощи у гуру ... не нашел примера в интернете ... (((
Допустим есть файл file.htm который лежит локально на диске на машине. Этот файл я с помощью обычного текстового отредактировал таким образом-
После строчки - td { padding: 0px; padding-left: 2px; overflow:hidden; }
Добавил строчку - td div { height: auto !important; }
и получил файл file.htm такой который мне надо ...
Понимаю что похоже это делается объектом ДокументHTML или ЗаписьHTML ... но не допер как ... (((
Приведите пожалуйста пример кода чтобы в 1с можно было прочитать файл, найти определенную строку, и вставить после нее определенную строку ...
Ну или дайте пожалуйста ссылочку на материальчик где подробно разъяснено как редактировать локальные html файл ...
Заранее огромное спасибо !!!
Прошу помощи у гуру ... не нашел примера в интернете ... (((
Допустим есть файл file.htm который лежит локально на диске на машине. Этот файл я с помощью обычного текстового отредактировал таким образом-
После строчки - td { padding: 0px; padding-left: 2px; overflow:hidden; }
Добавил строчку - td div { height: auto !important; }
и получил файл file.htm такой который мне надо ...
Понимаю что похоже это делается объектом ДокументHTML или ЗаписьHTML ... но не допер как ... (((
Приведите пожалуйста пример кода чтобы в 1с можно было прочитать файл, найти определенную строку, и вставить после нее определенную строку ...
Ну или дайте пожалуйста ссылочку на материальчик где подробно разъяснено как редактировать локальные html файл ...
Заранее огромное спасибо !!!
Найденные решения
Ниже пример . Поправь в нем название переменных (называть переменные Строка - плохо) и кодировку.
Сделай через СтрЗаменить
т.е. находим строку и меняем её на две строки. Например, было А, а стало А +Б.
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ФайлДанных);
Для Номер = 1 По Текст.КоличествоСтрок() Цикл
Строка = Текст.ПолучитьСтроку(Номер);
Если Найти(Строка, "&")<>0 Тогда
СтрокаЗамены = СтрЗаменить(Строка, "&", "&");
Текст.ЗаменитьСтроку(Номер,СтрокаЗамены);
КонецЕсли;
КонецЦикла;
Текст.Записать(ФайлДанных);
ПоказатьТекст.Записать(ФайлДанных,КодировкаТекста.UTF8); // или ANSI
После строчки - td { padding: 0px; padding-left: 2px; overflow:hidden; }
Добавил строчку - td div { height: auto !important; }
Добавил строчку - td div { height: auto !important; }
Сделай через СтрЗаменить
т.е. находим строку и меняем её на две строки. Например, было А, а стало А +Б.
НаборСтрок = "Первая строка"+Символы.ПС+"Вторая строка"
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Ниже пример . Поправь в нем название переменных (называть переменные Строка - плохо) и кодировку.
Сделай через СтрЗаменить
т.е. находим строку и меняем её на две строки. Например, было А, а стало А +Б.
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ФайлДанных);
Для Номер = 1 По Текст.КоличествоСтрок() Цикл
Строка = Текст.ПолучитьСтроку(Номер);
Если Найти(Строка, "&")<>0 Тогда
СтрокаЗамены = СтрЗаменить(Строка, "&", "&");
Текст.ЗаменитьСтроку(Номер,СтрокаЗамены);
КонецЕсли;
КонецЦикла;
Текст.Записать(ФайлДанных);
ПоказатьТекст.Записать(ФайлДанных,КодировкаТекста.UTF8); // или ANSI
После строчки - td { padding: 0px; padding-left: 2px; overflow:hidden; }
Добавил строчку - td div { height: auto !important; }
Добавил строчку - td div { height: auto !important; }
Сделай через СтрЗаменить
т.е. находим строку и меняем её на две строки. Например, было А, а стало А +Б.
НаборСтрок = "Первая строка"+Символы.ПС+"Вторая строка"
Как-то так...
Файлисходный= Новый ЧтениеТекста(МойФайл.ПолноеИмя,КодировкаТекста.ANSI);
ИскомаяТекст="td { padding: 0px; padding-left: 2px; overflow:hidden; } ";
НужныйТекст=ИскомаяТекст+"
| td div { height: auto !important; } ";
ТекстФайла="";
СтрокаФайла = Файлисходный.ПрочитатьСтроку();
Если СтрокаФайла = Неопределено или СтрокаФайла = "" Тогда
СтрокаФайла = Файлисходный.ПрочитатьСтроку();
КонецЕсли;
Пока СтрокаФайла <> Неопределено Цикл
Если СтрНайти(СтрокаФайла ,ИскомаяСтрока) >0 Тогда
СтрокаФайла = СтрЗаменить(ИскомаяТекст,ИскомаяТекст,НужныйТекст);
ТекстФайла=ТекстФайла+"
|"+ СтрокаФайла ;
СтрокаФайла = Файлисходный.ПрочитатьСтроку();
КонецЦикла;
Файлисходный.Закрыть();
ФайлИзменение= Новый ЗаписьТекста;
ФайлИзменение.Открыть(МойФайл.ПолноеИмя);
ФайлИзменение.ЗаписатьСтроку(ТекстФайла);
ФайлИзменение.Закрыть();
Файлисходный= Новый ЧтениеТекста(МойФайл.ПолноеИмя,КодировкаТекста.ANSI);
ИскомаяТекст="td { padding: 0px; padding-left: 2px; overflow:hidden; } ";
НужныйТекст=ИскомаяТекст+"
| td div { height: auto !important; } ";
ТекстФайла="";
СтрокаФайла = Файлисходный.ПрочитатьСтроку();
Если СтрокаФайла = Неопределено или СтрокаФайла = "" Тогда
СтрокаФайла = Файлисходный.ПрочитатьСтроку();
КонецЕсли;
Пока СтрокаФайла <> Неопределено Цикл
Если СтрНайти(СтрокаФайла ,ИскомаяСтрока) >0 Тогда
СтрокаФайла = СтрЗаменить(ИскомаяТекст,ИскомаяТекст,НужныйТекст);
ТекстФайла=ТекстФайла+"
|"+ СтрокаФайла ;
СтрокаФайла = Файлисходный.ПрочитатьСтроку();
КонецЦикла;
Файлисходный.Закрыть();
ФайлИзменение= Новый ЗаписьТекста;
ФайлИзменение.Открыть(МойФайл.ПолноеИмя);
ФайлИзменение.ЗаписатьСтроку(ТекстФайла);
ФайлИзменение.Закрыть();
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот