Bonjour,
J'ai un petit problème
Je souhaite récupérer les mots séparés par des espace dans une chaîne.
Voici mon algo :
Code :
Line : Wide_String(1..2024); Last : Natural := 0; Top, Bot : Positive := 1;
|
Code :
for I in 1..Last loop if Line(I) = Wide_Character'Val(32) then Bot := I-1; begin if not Exist(line(Top..Bot)) then begin Add(Line(Top..Bot), Count); Count := Count + 1; exception when others => null; end; end if; sentence(sentence_Last + 1) := Keyword(line(Top..Bot)); sentence_Last := sentence_Last + 1; Top := Bot+2; exception when others => Put_Line(Line(Top..Bot)); end; end if; end loop;
|
Au second appel l'appel du premier "exist" j'ai une fonction de comparaison de chaines "<" qui me dit "index check failed" donc, j'en déduit qu'une chaine est de longueur zéro.
L'échantillon de texte est celui ci "1 Au commencement, Dieu créa les cieux et la terre."
j'y suis depuis 20 minutes et je ne trouve mon l'erreur .
Merci pour votre aide.
Message édité par Profil supprimé le 04-04-2010 à 19:01:48