1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| //list est ta TStringList qui contient des phrases ;
AnsiString s1, s2, s3 ;
AnsiString tmp = list->Strings[i] ; // récupération de la ligne 'i' de ta StringList
//"1000 /// sensory perception of sound /// infered from electronic annotation"
AnsiString separator = " /// " ; // affectation du séparateur
int sepaLength = separator.Length() ; //longueur (en caractère) du séparateur
int pos2, pos ;
pos = tmp.Pos( separator ); //recherche de la position du premier séparateur dans la chaine
s1 = tmp.SubString(1,pos); // recupération de la sous-chaine allant du début à pos
pos2 = tmp.SubString(pos+sepaLength,tmp.Length()).Pos( separator );
s2 = tmp.SubString(pos+sepaLength, pos2-pos+sepaLength );
s3 = tmp.SubString(pos2+sepaLength+pos+s1.Length()-1, tmp.Length() );
//Le chaîne s1, s2, et s3 contiennent respectivement les 3 chaîne de ton message
ShowMessage( s1 );
ShowMessage( s2 );
ShowMessage( s3 ); |
Partager