String: découpage et position d'un point [Résolu]

Signaler
Messages postés
299
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
-
Messages postés
299
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
-
salut

j'ai une chaine de caractère du genre:

" je comprends votre situation. je comprends."

et je la découpe avec ceci, comme les messages box me le prouvent:


j = 1
For h = 1 To Len(Source(I)) "du début à la fin du texte
c = Mid$(Source(I), h, 1)
If c = "." Then
pospoint = InStr(1, Source(I), ".", 1) "position du point final
h = h + 1
sourceA = Mid$(LCase(Source(I)), j, h - j) "découpage en phrase
....
j = h
end if
next

Pour résumer, le texte est bien découpé en phrase, mais pospoint, la position du point final, est toujours égal à la position du premier point final, alors que je voudrais la position du point final de la deuxième phrase.

Merci à vous.

1 réponse

Messages postés
299
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
1
trouvé: sourceA à la place de source(I)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 110 internautes nous ont dit merci ce mois-ci