Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Drongo

Будем жить, Маэстро...


Сообщения: 6694
Благодарности: 1393

Профиль | Сайт | Отправить PM | Цитировать


Simpler, Я написал, но по-дилетантски. Понадобятся компоненты: Edit, Button. Программа грузит файл Log.txt в список TStringList, дальше примитивно обрабатывает и сохраняет результат в файл Test.txt

Код: Выделить весь код
// Обрабатываем файл по нажатию кнопки---------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TStringList *lst = new TStringList; // Список, куда мы грузим "Log.txt"
   TStringList *lstReplace = new TStringList; // Временный список
   String str = "User"; // Слово которое мы ищем
   String tempStr; // Формируемая строка в которой найденое слово "User" + текст из Edit
   lst->LoadFromFile(ExtractFilePath(Application->ExeName) + "Log.txt"); // Загружаем файл

   for(int i = 0; i < lst->Count; i++){
      if(lst->Strings[i].Pos(str)){
         for(int j = 0; j < i; j++){
            lstReplace->Add(lst->Strings[j]);
           }
         tempStr = lst->Strings[i].SubString(1, lst->Strings[i].Pos(str) + str.Length());
         tempStr += " " + Edit1->Text;
         lstReplace->Add(tempStr);
         break;
        }
     }
   lstReplace->SaveToFile(ExtractFilePath(Application->ExeName) + "Test.txt");

   delete lst;
   delete lstReplace;
}
//---------------------------------------------------------------------------

-------
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]

http://tools.oszone.net/Drongo/Userbar/SafeZone_cc.gif

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:40, 15-11-2010 | #2