Выделить фрагмент текста в memo и скопировать

@Илья1302 · Регистрация: 06.05.2018

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

Например есть предложение: Пока свободою горим, пока сердца для чести живы, мой друг, Отчизне посвятим души прекрасные порывы.
Мне нужна только эта часть: Пока свободою горим
Как сделать чтобы выделить этот фрагмент текста и скопировать в другое memo.
Пока я на этой стадии
i:=pos('П',basestr);//в basestr хранится сам текст
t:=copy(basestr,i,18);
Я нашел позицию П и после него 18 знаков и получается целый фрагмент. Но мне нужен универсальный алгоритм. Вместо 18 мне нужен цикл while то есть пока не нашел какой-то символ (последний символ фрагмента) иди дальше, при этом считая сколько раз проходит этот цикл - это и будет конечное число. Длина текста

@volvo · 29.05.2018, 18:27

Просто s[позиция_символа]

@D1973 · 29.05.2018, 18:37

Сообщение от Илья1302

как теперь посчитать сколько их там?

Чума... Начальная позиция 5, конечная позиция 10, как узнать, сколько символов между этими позициями? Задача для 1-го класса средней школы...

@Илья1302 · 29.05.2018, 18:49 **[ТС]**

Еще раз повторяю: Мы не знаем количество этих чисел!!

@D1973 · 29.05.2018, 19:12

Илья1302, хватит уже тупить, отдохните сегодня, а завтра поймете, что если мы можем найти начальную и конечную позиции, которыми ограничен наш текст (функция Pos()), то банальным вычитанием мы получим и длину интересующей нас подстроки...

@Puporev · 29.05.2018, 19:29

Сообщение от Илья1302

Мы не знаем количество этих чисел!!

Оно равно позиция конца-позиция начала+1.

@Илья1302 · 30.05.2018, 14:52 **[ТС]**

Всё разобрался

Pascal
1
2
3
4
5
6
7
i:=pos('"si_coool">',basestr);
 while basestr[i]<> '</' do
  begin
  i:=i+1;
  r:=r+1;
  end;
  t:=copy(basestr,e+11,r-11);

Спасибо всем за терпение моей тупизны))

@D1973 · 30.05.2018, 17:51

Ну вот, утро вечера мудренее... Только чуть попроще можно...

Delphi
1
2
3
4
const sss: String = '"si_coll">';
...
i := Pos(sss, basestr) + Length(sss);
t := Copy(basestr, i, Pos('</', basestr) - i);

Новые блоги и статьи Все статьи Все блоги /
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026
Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .

Выделить фрагмент текста в memo и скопировать

Решение

Решение

@Илья1302 3 / 3 / 1 Регистрация: 06.05.2018 Сообщений: 95

	Выделить фрагмент текста в memo и скопировать 27.05.2018, 17:03. Показов 4108. Ответов 26 Метки lazarus, memo, pos, поиск в тексте, текст (Все метки) Например есть предложение: Пока свободою горим, пока сердца для чести живы, мой друг, Отчизне посвятим души прекрасные порывы. Мне нужна только эта часть: Пока свободою горим Как сделать чтобы выделить этот фрагмент текста и скопировать в другое memo. Пока я на этой стадии i:=pos('П',basestr);//в basestr хранится сам текст t:=copy(basestr,i,18); Я нашел позицию П и после него 18 знаков и получается целый фрагмент. Но мне нужен универсальный алгоритм. Вместо 18 мне нужен цикл while то есть пока не нашел какой-то символ (последний символ фрагмента) иди дальше, при этом считая сколько раз проходит этот цикл - это и будет конечное число. Длина текста 0

@volvo Супер-модератор 33467 / 21566 / 8249 Регистрация: 22.10.2011 Сообщений: 37,021 Записей в блоге: 12
	29.05.2018, 18:27
	Просто s[позиция_символа] 0

@Илья1302 3 / 3 / 1 Регистрация: 06.05.2018 Сообщений: 95
	29.05.2018, 18:49 [ТС]
	Еще раз повторяю: Мы не знаем количество этих чисел!! 0

@D1973 Модератор 9952 / 6487 / 2461 Регистрация: 21.01.2014 Сообщений: 27,488 Записей в блоге: 3
	29.05.2018, 19:12
	Сообщение было отмечено Илья1302 как решение Решение Илья1302, хватит уже тупить, отдохните сегодня, а завтра поймете, что если мы можем найти начальную и конечную позиции, которыми ограничен наш текст (функция Pos()), то банальным вычитанием мы получим и длину интересующей нас подстроки... 0

Опции темы