[lxa85]

Starter1, И в чем проблема?
Рассмотрите варианты расстановки комментариев, определите логические условия определяющие начало и конец комментария. Точно также сделайте для слов в квадратных скобках.
Анализируйте текст с заданными условиями. Делов то.

[Starter1]

lxa85,

Делов то.

Алгоритм для меня не вопрос, такую программу я сделал на cmd. Но мне нужен хотя бы один рабочий образец чтобы делать программы на C++.

[Drongo]

Так пойдёт?

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for(int i = 0; i < Memo1->Lines->Count; i++){
      if(Memo1->Lines->Strings[i].Pos(";") )
         if(Memo1->Lines->Strings[i].Pos(";") == 1)
            continue; //Memo2->Lines->Add(Memo1->Lines->Strings[i]);
         else
            Memo2->Lines->Add(Memo1->Lines->Strings[i].SubString(1, Memo1->Lines->Strings[i].Pos(";")-1));
    }
}

[Starter1]

Drongo, Попробовал, странный вывод. Выводит не все строки, даже те в которых нет ";".
Немного переделал:

Код:

   TStringList *lst = new TStringList;
   TStringList *lstReplace = new TStringList;
   String str = ";";
   String tempStr;
   lst->LoadFromFile(ExtractFilePath(Application->ExeName) + "test.ltx");

        for(int j = 0; j < lst->Count; j++){
                if(lst->Strings[j].Pos(str)){
                lstReplace->Add(lst->Strings[j].SubString(1, lst->Strings[j].Pos(str)-1));
                }
                else lstReplace->Add(lst->Strings[j]);
        }
lstReplace->SaveToFile(ExtractFilePath(Application->ExeName) + "Test.txt");
delete lst;
delete lstReplace;
Close();

Замечательно, комментарии удаляет но остаются пустые строки. Теперь буду продолжать дальше ! Спасибо.

[Drongo]

Starter1, Я проверил на тексте, пример которого вы привели, там отработал, выводит только строки в которых нет ; или строку до ;

[Starter1]

Drongo, Наверное ошибка из-за того что я не использую Memo а использую List для вывода в файл. Ещё такой вопрос. Я так понял (1, lst->Strings[j].Pos(str)-1)) это обработка строки, 1 и -1 это отступы от краев, 1 сначала а -1 с того места где стоит ";", то есть с Pos(str). Можно ли сделать подобное только от ";" и до конца то есть оставлять сам комментарий?

[Drongo]

Drongo, Наверное ошибка из-за того что я не использую Memo а использую List для вывода в файл »

Да принципиальной разницы нет.

Можно ли сделать подобное только от ";" и до конца то есть оставлять сам комментарий? »

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for(int i = 0; i < Memo1->Lines->Count; i++)
      if(Memo1->Lines->Strings[i].Pos(";") )
         Memo2->Lines->Add(Memo1->Lines->Strings[i].SubString(Memo1->Lines->Strings[i].Pos(";")+1, Memo1->Lines->Strings[i].Length()));
}