Nécessité de ces traitements

Les données manipulées par un programme sont essentiellement de type numérique ou chaîne de caractères.

Si les types numériques sont très utilisés par les programmes scientifiques, le type chaîne est incontournable pour des étudiants en Lettres et Sciences Humaines.

Une variable chaîne de caractères se déclare de type String.

Exemple 1 :

Dim MotProposé As String

La variable contient alors une chaîne de longueur variable selon l’affectation qui suivra.

Exemple 2 :

Dim Lettre As String * 1

La variable contient alors une chaîne de longueur 1 c’est à dire un seul caractère.

Exemple 3 :

Dim Adresse As String * 30

La variable contient alors une chaîne de longueur 30. Si l’on n’affecte que 18 caractères dans une telle chaîne, le reste est rempli d’espaces. Si l’on affecte plus de 30 caractères le surplus est tronqué.

Comparaison des chaînes de caractères

Longueur d’une chaîne :

La longueur d’une chaîne est donnée par la fonction Len.

Exemple :

Phrase = "Alea jacta est."

La fonction Len(Phrase) retournera la valeur 15.

Il est évident que si deux chaînes de caractères n’ont pas la même longueur elles sont différentes. Par contre deux chaînes de même longueur ne sont pas forcément identiques.

Comparaison binaire :

On compare deux chaînes par la fonction StrComp.

Elle renvoie la valeur numérique 0 si les deux chaînes sont rigoureusement identiques et la valeur numérique 1 si les chaînes diffèrent même par un seul octet.

Exemple :

Phrase1 = "My tailor is rich."

Phrase2 = "My Tailor is rich."

Phrase3 = " My tailor is rich."

La fonction StrComp(Phrase1,Phrase2) retournera la valeur ...

La fonction StrComp(Phrase1,Phrase3) retournera la valeur ...

Recherche d’une chaîne de caractères

• La fonction InStr permet de rechercher si une chaîne de caractères existe à l’intérieur d’une autre chaîne de caractères. Cette fonction retourne la position de la première occurrence de la chaîne recherchée. Syntaxe :

InStr(Chaîne1, Chaîne2)

Chaîne1 est la chaîne de caractères à traiter (sur laquelle porte la recherche).

Chaîne2 est la chaîne de caractères recherchée dans Chaîne1.

Exemple :

Chaîne1 = "Sed lex dura lex" ’ Auteur inconnu

Chaîne2 = "lex"

Chaîne3 = "gex"

La fonction InStr(Chaîne1,Chaîne2) retournera la valeur ".........."

La fonction InStr(Chaîne1,Chaîne3) retournera la valeur 0.

• La fonction Ucase met tout le texte en majuscules et permet de rechercher indépendamment une lettre minuscule ou majuscule.

• La fonction Lcase met tout le texte en minuscules et permet...

  Extraction d’une chaîne de caractères

• La fonction Right donne la partie droite d’une chaîne de caractères. Le nombre de caractères de cette partie doit être précisé. Exemple :

Chaîne = "To be or not to be" ’Shakespeare

La fonction Right(Chaîne,5) retournera la valeur ".........."

• La fonction Left donne la partie gauche d’une chaîne de caractères. Le nombre de caractères de cette partie doit être précisé. Exemple :

Chaîne = "To do is to be" ’Platon

La fonction Left(Chaîne,5) retournera la valeur ".........."

• La fonction Mid extrait une partie d’une chaîne de caractères. Le nombre de caractères de cette partie doit être précisé ainsi que la position du premier caractère extrait.

Syntaxe :

Mid(Texte, Position, Nombre)

Texte est la chaîne de caractère à traiter.

Position est la position dans la chaîne à partir de laquelle il faut extraire des caractères.

Nombre est le nombre de caractères à extraire.

Exemple :

Chaîne = "Do bee do bee do" ’Frank Sinatra

La fonction Mid(Chaîne,4,2) retournera la valeur "...."

La fonction Mid(Chaîne,8,9) retournera la valeur "............"

  Applications

La plupart des problèmes sur les chaînes de caractères se traitent à l’aide des fonctions ci-dessus. Leur maniement est assez délicat et les résultats quelquefois difficiles à prévoir. Seule la pratique de leur programmation vous permettra d’en vérifier l’efficacité.

Exemple1 :

Que fait ce programme :

Dim Vers, Mot As String

Dim Position As Integer

Vers = "Pour qui sont ces serpents qui sifflent sur vos têtes ?"

Mot = InputBox("Taper le mot à rechercher")

Position = InStr(Vers, Mot)

If Position = 0 Then

MsgBox("Pas trouvé !")

Else

MsgBox("Trouvé à la position " & Position)

End If

Exemple2 :

Ce programme compte le nombre d’espaces dans une phrase.

Dim Phrase, Caractère As String

Dim Compteur, Longueur, i As Integer

Phrase = InputBox("Tapez votre phrase")

Longueur = Len (Phrase)

For i = 1 To Longueur

Caractère = Mid(Phrase, i, 1)

If Caractère = " " Then Compteur = Compteur + 1

Next i

MsgBox("Cette phrase contient " & Compteur & " espaces.")