Алгоритм отсеивания текста
Добрый день
У меня есть текстовый файл со списком ip-адресов, там есть повторяющиеся слова в начале строки. Мне нужно в другой файл сохранить только уникальные строки.
Делаю как показан код ниже, но почему то, выводятся только 2 уникальных строки. Хотя в файле есть еще уникальные строки.
Подскажите где я что не так сделал. Спасибо.
У меня есть текстовый файл со списком ip-адресов, там есть повторяющиеся слова в начале строки. Мне нужно в другой файл сохранить только уникальные строки.
Делаю как показан код ниже, но почему то, выводятся только 2 уникальных строки. Хотя в файле есть еще уникальные строки.
Подскажите где я что не так сделал. Спасибо.
Код:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringList * InFile = new TStringList();
TStringList * OutFile = new TStringList();
InFile->LoadFromFile(Edit1->Text);
OutFile->Add(" ");
OutFile->Add(" ");
AnsiString str, Out, tempStr;
int it,tt;
for (int i = 0; i < InFile->Count; i++)
{
str = InFile->Strings[i];
it=0;
for(int i2 = 0; i2 < OutFile->Count; i2++){
if(OutFile->Strings[i2].Pos(str[8])){it++;}
else{if(i2==OutFile->Count-1&&it==0)OutFile->Add(str);}
}
}
OutFile->SaveToFile("01.txt");
}
{
TStringList * InFile = new TStringList();
TStringList * OutFile = new TStringList();
InFile->LoadFromFile(Edit1->Text);
OutFile->Add(" ");
OutFile->Add(" ");
AnsiString str, Out, tempStr;
int it,tt;
for (int i = 0; i < InFile->Count; i++)
{
str = InFile->Strings[i];
it=0;
for(int i2 = 0; i2 < OutFile->Count; i2++){
if(OutFile->Strings[i2].Pos(str[8])){it++;}
else{if(i2==OutFile->Count-1&&it==0)OutFile->Add(str);}
}
}
OutFile->SaveToFile("01.txt");
}
Здравствуйте дети, я ваш новый учитель)