Изменить txt-файл

Форум Программирование Общие вопросы программирования (Dev)

1. Serg-007 17.11.22 20:48 Сейчас в теме

Всем привет!
Подскажите как в файл txt добавить строку, чтоб она была ПЕРВОЙ?

Вот такой код добавляет строку, но последнюю...

//читаем файл
ФайлТХТ = Новый ТекстовыйДокумент;
ФайлТХТ.Прочитать(ПутьКФайлу);	
	
//построчно заносим текст в массив
СтрокиТХТ = Новый Массив; 

//прочитаем первую строку файла ТХТ для проверки	
	Для Н = 1 По 1 Цикл
		
		//читаем текущую (первую) строку
		СтрокаТХТ = ФайлТХТ.ПолучитьСтроку(Н);
		
		Если СтрокаТХТ = "@файл обработан@" Тогда 
			Возврат;//дальше не пойдём
		Иначе
			Текст_ФайлОбработан = Новый ТекстовыйДокумент;
			Текст_ФайлОбработан.Прочитать(ПутьКФайлу);
			Текст_ФайлОбработан.ДобавитьСтроку("@файл обработан@");
			Текст_ФайлОбработан.Записать(ПутьКФайлу);			
		КонецЕсли;
		
	КонецЦикла;

Показать

Надо, чтоб строка "@файл обработан@" была первой в файле.

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Sashares 35 17.11.22 23:31 Сейчас в теме

(1)

Текст_ФайлОбработан.ДобавитьСтроку("@файл обработан@");

Вместо ДобавитьСтроку используй ВставитьСтроку.

ТекстовыйДокумент (TextDocument)
ВставитьСтроку (InsertLine)
Синтаксис:
ВставитьСтроку(<НомерСтроки>, <Строка>)
Параметры:
<НомерСтроки> (обязательный)
Тип: Число.
Номер вставляемой строки.
<Строка> (обязательный)
Тип: Строка.
Вставляемая строка.
Описание:
Вставляет в текстовый документ строку с указанным номером.
Доступность:
✓ тонкий клиент
✓ веб-клиент
мобильный клиент
✓ сервер
✓ толстый клиент
✓ внешнее соединение
мобильное приложение (клиент)
мобильное приложение (сервер)
мобильный автономный сервер
интеграция
Пример:
ТекстДок.ВставитьСтроку(23, "Новая строка");
Использование в версии:
Доступен, начиная с версии 8.0.
Методическая информация

Показать

3. ZergKRSK 130 18.11.22 03:56 Сейчас в теме

(1) создаешь новый текстовый файл, добавляешь нужную первую строку, потом зачитываешь свой файл и весь дописываешь в новый файл со второй строки.

Оставьте свое сообщение

E-mail: