Выделить фрагмент текста в 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);

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

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

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

@volvo Супер-модератор 33466 / 21565 / 8249 Регистрация: 22.10.2011 Сообщений: 37,018 Записей в блоге: 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,485 Записей в блоге: 3
	29.05.2018, 19:12
	Сообщение было отмечено Илья1302 как решение Решение Илья1302, хватит уже тупить, отдохните сегодня, а завтра поймете, что если мы можем найти начальную и конечную позиции, которыми ограничен наш текст (функция Pos()), то банальным вычитанием мы получим и длину интересующей нас подстроки... 0

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

Решение

Решение