Maintenant que vous comprenez le fonctionnement du VBS je vais vous apprendre les fonctions de base pour manier du texte dans un programme
I] Renvoyer une certaine partie de la variable texte
Admettons que vous vouliez renvoyer les 6 premières lettres d'une variable texte, nous allons employer la fonction « LEFT » qui a la syntaxe suivante :
LEFT(TEXTE,NB)
Texte est le texte ou la variable dans laquelle nous travaillons
NB est le nombre de lettre à partir de la gauche que nous gardons
La ligne suivante :
LEFT("J'aime le steak",6)
Renverra « J'aime » parce que cette fonction renverra les 6premières lettres du texte ou de la variable passé en argument
Une autre fonction du même type (qui d'ailleurs à la même syntaxe) permet de renvoyer NB caractères à partir de la droite de la variable Texte
RIGHT("J'aime le steak",5)
Renverra « steak »
Maintenant si vous ne voulez relevez que le mot « le » dans ce texte vous ne pouvez pas exploiter les deux fonctions précédentes donc vous devez utiliser la fonction Lid :
MID(TEXTE,NBS,NBL)
La fonction Mid renvoie les caractères du caractère NBS sur une longueur de NBL caractères
Pour renvoyer le mot « le » on utilisera la fonction comme ceci :
MID("J'aime le steak",7,2)
II] Apprendre à rechercher un bout de texte dans un autre bout de texte
C'est bien beau de savoir renvoyer une partie du texte en connaissant ça longueur et tout et tout. Mais faut faire mieux.
Exemple :
Dans votre programme vous allez devoir récupérer le nom qui se trouve avant le « @ » dans une adresse Email. Avec ce que l'on connaît pour le moment c'est impossible puisque la longueur de la chaîne de caractères variera tout le temps.
Solution :
Il suffit de connaître la position du « @ » comme ça on peut utiliser la fonction « LEFT ».
Pour rechercher une chaîne de caractère une fonction existe :
« INSTR »
La fonction à la syntaxe suivante :
INSTR([Start],STR1,STR2,[Comparaison])
Start(fa cultatif) : Position à laquelle débute la recherche
STR1 : La chaîne dans laquelle s'effectue la recherche
STR2 : La chaîne à rechercher
Comparaison : Le type de comparaison : Binaire (0), de Texte (1), de données issues d'une base de donnée (2)
<%
Dim APos
Apos=INSTR(1, « vbtom@free.fr », « @ »)
%>
Apos aura la valeur 6 pour cet exemple.
Maintenant que l'on connaît la position du « @ » on peut utiliser la fonction LEFT :
<%
Dim NameBeforeA
NameBeforeA=LEFT(APos)
%>
NameBefo reA aura la valeur "vbtom" pour cet exemple.
III] La casse dans une variable texte
Pour mettre en majuscule ou minuscule du texte on utilisera les fonctions UCASE (pour mettre en majuscule) et LCASE (pour mettre en minuscule)
UCASE(« thomas »)
Donnera « THOMAS »
IV] La longueur d'un chaîne de caratère
Pour renvoyer la longueur d'un chaîne de caratère on utilisera la fonction LEN
LEN(« thomas »)
Renverra « 6 »