Написать функцию, возвращающую часть строки в скобках

@Brakses · Регистрация: 08.11.2015

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

Мне нужно, получая AnsiString просканировать его. И скопировать в возвращаемый AnsiString текст, который начинается с "[" и заканчивается на "]"

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
AnsiString FindINI (AnsiString peremen)
{
TLabel  *FindAnsistring1 = new TLabel(0);
 
TLabel *FindAnsistring2 = new TLabel(0);
AnsiString NewPeremen;
FindAnsistring2.Caption=peremen;
 
for (int i=0; i <250 ; i++)
                           {
                               if (FindAnsistring2.Caption[i]!="]") {FindAnsistring1[i]=FindAnsistring2.Caption[i]; }
                              else {FindAnsistring1.Caption[i]=FindAnsistring2[i];exit;}
                           }
 
 
NewPeremen=FindAnsistring1.Caption;
return NewPeremen;
 
 }

@D1973 · 30.01.2016, 07:28

C++
1
2
3
4
String FindINI(String peremen)
{
  return peremen.SubString(peremen.Pos("["), peremen.Pos("]") - peremen.Pos("[") + 1);
}

@Brakses · 30.01.2016, 13:59 **[ТС]**

Спасибо! А что... разницы нет между AnsiString и String? Дело в том,что у меня одни AnsiString в массиве данных... Все менять? или он так и AnsiString проглотит?

@D1973 · 30.01.2016, 14:05

проглотит... Просто в 6-м билдере String == AnsiString, так что разницы нет. Другое дело в RAD, там String == UnicodeString, так что если ты явно указываешь тип AnsiString, то со строками в юникодной кодировке могут возникнуть непонятки

@Brakses · 30.01.2016, 14:07 **[ТС]**

И всё же... мне нужно, что бы примерно такая же как у меня схема заработала... Т.к. у меня еще много планов, которые я должен реализовать с похожими схемами... Мне нужно сделать и поиск по ini файлу и добавление новых объектов в ini файл... Тут все выполнила за меня функция... Я не совсем понял, как она работает... Т.е. не представляю где я еще могу ее использовать, кроме как в этой узкой задаче... а вот если бы моя схема заработала... то меняя всего лишь if я смогу модернизировать эту функцию и превратить ее, скажем, в поиск...

Есть идеи как именно довести до ума мою схему, не предлагая взамен другую?
у меня RAD Builder XE

@Sluchayno · 30.01.2016, 14:47

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

И всё же... мне нужно, что бы примерно такая же как у меня схема заработала... Т.к. у меня еще много планов, которые я должен реализовать с похожими схемами... Мне нужно сделать и поиск по ini файлу и добавление новых объектов в ini файл... Тут все выполнила за меня функция... Я не совсем понял, как она работает... Т.е. не представляю где я еще могу ее использовать, кроме как в этой узкой задаче... а вот если бы моя схема заработала... то меняя всего лишь if я смогу модернизировать эту функцию и превратить ее, скажем, в поиск...
Есть идеи как именно довести до ума мою схему, не предлагая взамен другую?
у меня RAD Builder XE

Так тебе нужна работа с ini файлом?

@Brakses · 30.01.2016, 14:56 **[ТС]**

Верно... Но... я хочу дойти до этого. А не получить кучу сложный и не понятный готовых функций=) Иначе я не смогу их юзать на 100%. Сейчас я просто хочу научиться работать со строками и написать свои функции обрабатывалки=)

Мне нужно
копировать (по моему условию)
Искать (по моему условию)
Добавлять новые объекты (пока в мемо).

И все это нужно сделать получая в функцию или int или ansistring
А далее... я еже начну это все пробовать на файле...

Я еще учусь... И моей логики еще далеко до того, чтобы понять готовый чей-то код... мне нужно велики заного все построить, чтобы свободно в этом вариться...

Посему очень прошу помоч заставить мою схему работать=)

@nick42 · 30.01.2016, 16:44

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

прошу помоч заставить мою схему работать

Вот эта "аналогия" вашей схемы будет работать, но "за логику - я молчу..."__

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//---------------------------------------------------------------------------
 AnsiString FindINI(AnsiString peremen)
{
    TLabel *FindAnsistring1 = new TLabel(0);
    TLabel *FindAnsistring2 = new TLabel(0);
    AnsiString NewPeremen;
//    FindAnsistring2.Caption = peremen;
    FindAnsistring2->Caption = peremen;
    FindAnsistring1->Caption = "";
    for (int i=1;i <= FindAnsistring2->Caption.Length(); i++)  
    {
      if (FindAnsistring2->Caption[i] != ']') { // "]"
      //  FindAnsistring1[i] = FindAnsistring2->Caption[i];
        FindAnsistring1->Caption += FindAnsistring2->Caption[i];
      }
      else
      {
        FindAnsistring1->Caption += FindAnsistring2->Caption[i];
        exit;
      }
    }
    NewPeremen = FindAnsistring1->Caption;
    return NewPeremen;
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Label2->Caption = FindINI(Label2->Caption);
;
}

@Brakses · 30.01.2016, 16:59 **[ТС]**

Спасибо!!!

@Sluchayno · 30.01.2016, 17:27

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

Верно... Но... я хочу дойти до этого. А не получить кучу сложный и не понятный готовых функций=) Иначе я не смогу их юзать на 100%. Сейчас я просто хочу научиться работать со строками и написать свои функции обрабатывалки=)
Мне нужно
копировать (по моему условию)
Искать (по моему условию)
Добавлять новые объекты (пока в мемо).
И все это нужно сделать получая в функцию или int или ansistring
А далее... я еже начну это все пробовать на файле...
Я еще учусь... И моей логики еще далеко до того, чтобы понять готовый чей-то код... мне нужно велики заного все построить, чтобы свободно в этом вариться...
Посему очень прошу помоч заставить мою схему работать=)

А что сложного в чтении и записи в ini файл? Не нужно знать кучу функций и т.д

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include IniFiles.hpp;
 
AnsiString FileName = ExtractFilePath( Application->ExeName ) + "test.ini";
TIniFile *Ini = new TIniFile(FileName);
 
//------------------------запись в ini---------------------------------------------------
 
void __fastcall TGeneral::Button1Click(TObject *Sender)
{
    Ini->WriteString("Test","test1",Edit1->Text);
    Ini->WriteString("Test","test2",Edit2->Text);
}
//------------------------чтение из ini--------------------------------------------------
 
void __fastcall TGeneral::Button2Click(TObject *Sender)
{
    Edit1->Text = Ini->ReadString("Test","test1","Def");
    Edit2->Text = Ini->ReadString("Test","test2","Def");
}

@Brakses · 30.01.2016, 19:04 **[ТС]**

Сделал так. Работает...

Спасибо всем кто помогал!

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 AnsiString FindINI(AnsiString peremen)
{
    AnsiString FindAnsistring1 = "";
    AnsiString FindAnsistring2 = "";
    AnsiString NewPeremen;
//    FindAnsistring2.Caption = peremen;
    FindAnsistring2 = peremen;
 
    for (int i=1;i <= FindAnsistring2.Length(); i++)
    {
      if (FindAnsistring2[i] != ']') {FindAnsistring1 += FindAnsistring2[i]; }
      else {FindAnsistring1 += FindAnsistring2[i]; break;}
    }
    NewPeremen = FindAnsistring1;
    return NewPeremen;
 }

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@Brakses 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 65
	30.01.2016, 13:59 [ТС]
	Спасибо! А что... разницы нет между AnsiString и String? Дело в том,что у меня одни AnsiString в массиве данных... Все менять? или он так и AnsiString проглотит? 0

@D1973 Модератор 9910 / 6447 / 2455 Регистрация: 21.01.2014 Сообщений: 27,365 Записей в блоге: 3
	30.01.2016, 14:05
	проглотит... Просто в 6-м билдере String == AnsiString, так что разницы нет. Другое дело в RAD, там String == UnicodeString, так что если ты явно указываешь тип AnsiString, то со строками в юникодной кодировке могут возникнуть непонятки 1

@Brakses 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 65
	30.01.2016, 14:07 [ТС]
	И всё же... мне нужно, что бы примерно такая же как у меня схема заработала... Т.к. у меня еще много планов, которые я должен реализовать с похожими схемами... Мне нужно сделать и поиск по ini файлу и добавление новых объектов в ini файл... Тут все выполнила за меня функция... Я не совсем понял, как она работает... Т.е. не представляю где я еще могу ее использовать, кроме как в этой узкой задаче... а вот если бы моя схема заработала... то меняя всего лишь if я смогу модернизировать эту функцию и превратить ее, скажем, в поиск... Есть идеи как именно довести до ума мою схему, не предлагая взамен другую? у меня RAD Builder XE 0

@Brakses 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 65
	30.01.2016, 14:56 [ТС]
	Верно... Но... я хочу дойти до этого. А не получить кучу сложный и не понятный готовых функций=) Иначе я не смогу их юзать на 100%. Сейчас я просто хочу научиться работать со строками и написать свои функции обрабатывалки=) Мне нужно копировать (по моему условию) Искать (по моему условию) Добавлять новые объекты (пока в мемо). И все это нужно сделать получая в функцию или int или ansistring А далее... я еже начну это все пробовать на файле... Я еще учусь... И моей логики еще далеко до того, чтобы понять готовый чей-то код... мне нужно велики заного все построить, чтобы свободно в этом вариться... Посему очень прошу помоч заставить мою схему работать=) 0

@Brakses 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 65
	30.01.2016, 16:59 [ТС]
	Спасибо!!! 0

Написать функцию, возвращающую часть строки в скобках

Решение