Разбить строку с разделителем на подстроки

@xaochuk · Регистрация: 25.04.2019

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

Добрый день. Не могу понять как разбить строку на подстроки. Пример строки "08:00-09:35; 10:20-11:50; 13:00-14:25; ". За разделитель принять "; ". На форумах нашёл что многие делают это с помощью компонента StringList, но я в своей версии ПО такого не нашёл( И функцией strtok тоже ничего не вышло. Буду признателен за любые наводки на верный путь)

Добавлено через 18 минут
Есть необходимость вывести в Edit, 2 или 3 подстроку. Получается прочитать только первую подстроку

C++
1
2
3
char *time_char = time_to_change.c_str();
char * time_parsed = strtok(time_char,"; ");
Edit8->Text=time_parsed;

@nick42 · 24.07.2019, 20:39

В старых Билдерах приемлемо такое...

C++
1
2
3
4
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo2->Lines->CommaText = Memo1->Text; 
}

@nick42 · 24.07.2019, 20:53

... в новых (и так правильней в вашем случае) - используя delimited (delimiter - ';').

Добавлено через 6 минут
P.S.

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

многие делают это с помощью компонента StringList, но я в своей версии...

Это не привычный компонент, вернее - не графический, чтоб его найти в палитре. Просто пишете:
TStringList *List = new TStringList; в частности это аналог Memo (списочная структура). А после разделения исходного текста на строки выбираете нужную...
Edit1->Text = List->Strings[1] - для второй строки; соотв. List->Strings[2] для третьей.

@D1973 · 25.07.2019, 07:19

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

я в своей версии ПО такого не нашёл

1. А в какой это "в своей"? Мы сами угадать должны?
2. TStringList, как уже сказал nick42, не компонент из палитры, а класс, производное из класса TStrings, описанный в модуле Classes.
3. Свойство Lines визуального компонента TMemo и ТStringList имеют одного и того же предка - класс TStrings, поэтому гораздо практичнее работать именно с невизуальным СтрингЛист-ом, при необходимости отображая данные из него в компоненте Мемо.
4. При создании СтрингЛист-а при помощи оператора new - не забывайте уничтожать его с помощью delete. Но если работа со СтрингЛистом предполагается только в какой-то одной определенной области видимости - практичнее использовать "умный указатель", это избавит Вас от необходимости чистить память за собой...
5. В итоге, код для решения Вашей задачи может быть таким:

C++
1
2
3
4
5
6
7
8
#include <memory> //если Вы будете использовать "умный указатель"
...
sts::auto_ptr<TStringList> L (new TStringList); //создание экземпляра класса TStringList с помощью "умного указателя"
//TStringList *L = new TStringList; - создание экземпляра класса TStringList без "умного указателя"
L->Delimiter = ';'; //установка значения символа-разделителя
L->DelimitedText = Memo1->Text; //занесение данных из Мемо1 с одновременной построчной разбивкой по разделителю
Edit1->Text = L->Strings[1]; //добавление второй строки СтрингЛист-а в Эдит
//delete L; - удаление СтрингЛист-а при отсутствии "умного указателя"

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Разбить строку с разделителем на подстроки

Решение