Вставка Enter перед строкой

@74494 · Регистрация: 04.03.2014

Author24 — интернет-сервис помощи студентам

Добрый день!
Проблема вот в чем:
Имеется многострочный txt.
Нужно: чтобы перед каждой строкой, в которой есть слово "asdf" или "qwer" ставил Enter. Причем слова эти могут быть и не в начале строки.
Спасибо.

@Vyazan · 05.03.2015, 08:48

Гуглить совсем не умеете?
кидаешь на форму memo и загружаешь в memo txt файл.
В обработчике каком нибудь пишешь код

Delphi

var
  i:integer;
begin
  for I := 0 to memo1.Lines.Count do
  begin
    if (pos('asdf',memo1.Lines[i]) > 0) and (pos('qwer',memo1.Lines[i]) > 0) then
    begin
      memo1.Lines.Add(''); //Вставляем пустую строку
    end;
  end;
end;

@74494 · 05.03.2015, 14:28 **[ТС]**

А если без memo? чтобы он открыл файл, добавил строки, где надо, и сохранил в другом?

@Vyazan · 05.03.2015, 15:18

Сообщение от 74494

А если без memo? чтобы он открыл файл, добавил строки, где надо, и сохранил в другом?

То pos-ом ищешь не в memo, а там, где строка лежит.

@74494 0 / 0 / 0 Регистрация: 04.03.2014 Сообщений: 2
		1
	Вставка Enter перед строкой 04.03.2015, 16:52. Показов 878. Ответов 3 Метки нет (Все метки) Добрый день! Проблема вот в чем: Имеется многострочный txt. Нужно: чтобы перед каждой строкой, в которой есть слово "asdf" или "qwer" ставил Enter. Причем слова эти могут быть и не в начале строки. Спасибо. 0

@74494 0 / 0 / 0 Регистрация: 04.03.2014 Сообщений: 2
	05.03.2015, 14:28 [ТС]	3
	А если без memo? чтобы он открыл файл, добавил строки, где надо, и сохранил в другом? 0

@Vyazan 12 / 12 / 2 Регистрация: 19.03.2012 Сообщений: 175
	05.03.2015, 15:18	4
	Сообщение от 74494 А если без memo? чтобы он открыл файл, добавил строки, где надо, и сохранил в другом? То pos-ом ищешь не в memo, а там, где строка лежит. 1