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
|
// matching des clusters.
int RowCount; AnsiString ligne ;
TStringList *fichier = new TStringList();
fichier->LoadFromFile(File_name ) ;
RowCount = fichier->Count ;
ShowMessage(String(RowCount));//nbre lignes
for( int j=0; j< RowCount; j++ )
{ ligne=fichier->Strings[j];
TStringList *tocken=new TStringList();
tocken->Text= StringReplace( ligne,'\t', "\n",TReplaceFlags()<<rfReplaceAll);
AnsiString result="";
ShowMessage( tocken->Count);//nbre mot dans la ligne j
int i=0;
while(i< tocken->Count){
result=tocken->Strings[i];
result.Trim();
ShowMessage(result);//tocker i
// ----ici je vais implémenter une fonction matching
}// while
delete tocken;
}
delete fichier ;
ShowMessage("Mattching"); |