[решено] Поиск и замена в тексте (извлечение подстроки)

Drongo · Конфигурация компьютера

dima1981, Пример работает, но частично из-за специфики текстового файла иногда не так высчитывает как надо. Результат получается такой

результат

Код:

...
// Обрабатываем по нажатию на кнопку "Сортировать"------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int start, end, sub;
   TStringList *General = new TStringList();
   TStringList *list = new TStringList();

   if(RichEdit1->Lines->Text != ""){
      General->Text = RichEdit1->Text;
      for(int i = 0; i < General->Count; i++){
         if(General->Strings[i].LowerCase().Pos("href=\"") && General->Strings[i].LowerCase().Pos("http:") && General->Strings[i].LowerCase().Pos("windows")){
            start = General->Strings[i].LowerCase().Pos("href=\"") + String("href=\"").Length();
            end = General->Strings[i].LowerCase().LastDelimiter("\"");  // В этой строке причина неточного расчёта. LastDelimiter ищет последнее вхождение указаного символа...
            sub = end - start;
            list->Add(General->Strings[i].SubString(start, sub));
           }
        }
     }

    Memo2->Text = list->Text;
    General->Clear();
    list->Clear();
}
// Кнопка "Вставить текст"------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  RichEdit1->Clear();
  RichEdit1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
...

Если в вашей задаче нужно найти слово входящее в скобки. Например:

Цитата:

какой-то текст находящийся в файле и вот здесь [искомое слово], которое нам надо извлечь

То можно искать:

Код:

start = General->Strings[i].Pos("[");
end = General->Strings[i].Pos("]");
sub = end - start;
list->Add(General->Strings[i].SubString(start, sub));