Support de cours Visual Basic avancé pour les nuls
Les string et Char
A- Une variable 'String' peut contenir une chaîne de caractères, des données alphanumériques.
Pour travailler avec les 'String', on peut:
1-Utiliser les membres de la Classe String.
2-Utiliser les méthodes du VisualBasic 3-Exemple
4-Comparaison de caractères
5- Unicode
B -Une variable 'Char' peut contenir un caractère.
A- STRING.
Il faut déclarer une variable avant de l’utiliser, pour cela on utilise l’instruction DIM
DIM STR As String
‘Déclare une variable nommée Str et qui peut contenir une chaîne de caractère.
Cette variable peut être utilisée pour conserver une chaîne de caractère.
STR= "TOTO"
'On met la chaîne de caractères "TOTO" dans la variable STR
Remarquons que pour définir une chaîne de caractères il faut utiliser des " " : Ce qui est entre " et " est la chaîne de caractères. On parle de chaîne littérale: (une représentation textuelle d'une valeur particulière)
Après avoir été créée, une String contient 'Nothing' c'est à dire rien (même pas une chaîne vide: ""); il faudra l'initialiser pour qu'elle contienne quelque chose.
DIM str As String 'str contient Nothing
(pas le texte "Nothing"!! cela signifie qu'elle ne pointe sur 'rien' str= "" 'str contient "" : chaîne vide de longueur 0 str= "TOTO" 'str contient "TOTO"
Notez bien l'importance des guillemets:
A est la variable A
"A" est une chaîne de caractères contenant le caractère "A"
Exemple:
Dim A As String= "Visual"
Dim B As String= "Basic"
= "A+B" affiche bêtement la chaîne « A+B »
= A+B affiche "VisualBasic" ‘on affiche les variables.
Notez enfin que " ", l‘espace est un caractère à part entière.
On peut initialiser la variable en même temps qu’on la déclare.
Dim Chaine as string = "Toto
On peut déclarer plusieurs variables d'un même type sur une même ligne.
Dim x, y, z As String 'Déclare 3 variables 'String'
On utilise GetType pour connaître le type d'une variable.
x.GetType.ToString
y.GetType.ToString
z.GetType.ToString
donne
System.String
System.String
System.String
Ce qui prouve que les 3 variables sont bien des Strings. (ce qui n'était pas le cas en VB6)
1- System.String est une Classe du Framework:
Le type System.String ou String (Chaîne de caractères) est une Classe qui a des méthodes.
Pas besoin de connaître toutes les méthodes, il suffit (Après déclaration de la String par DIM réponse AS String) de taper "." .Et vous voyez apparaître toutes les propriétés et méthodes :
Par exemple la méthode .ToUpper
Mettre en majuscules une chaîne de caractère str=str.ToUpper()
Si str contenait "abc" il contiendra "ABC"
.ToLower transforme par contre la chaîne en minuscule.
.Trim
Permet de supprimer des caractères en début et fin de chaîne.
Dim a As String = "#@Informatique@#"
Dim b As Char() = {"#", "@"} 'b est un tableau de Char contenant les caractères à supprimer.
(b) Donne a= "Informatique"
Attention : Bien utiliser Char() qui est un tableau de caractères pour définir les caractères à supprimer.
(Dim b As String= "#@" est déconseillé car produisant des résultats curieux.)
Pour enlever les espaces avant et après la chaîne (Cas le plus fréquent) : a=" Bonjour " (" ") 'donne a="Bonjour"
Il existe aussi TrimStart et TrimEnd pour agir seulement sur le début ou la fin de la chaîne.
Length : Taille d’une chaîne en nombre de caractère.
Afficher la taille de la chaîne « VB »
Dim s As String= "VB"
MsgBox(s.Length.ToString) ‘Affiche 2
Concat :
Concaténation de plusieurs chaînes : mise bout à bout : s=String.Concat(a,b)
Il est plus rapide de faire : s= a & b (s=a+b marche mais est déconseillé)
Insert :
Insère une chaîne dans une autre. Dim s As String= "VisualBasic" s= s.Insert(6," " ) ‘Donne s= "Visual Basic" Noter: le premier caractère a la position 0.
Remove :
Enlève des caractères à une certaine position dans une chaîne. Dim s As String= "VisualBasic" s= s.Remove(2,7 ) ‘Donne s= "Viic"
Replace :
Remplace dans une chaîne de départ, toutes les occurrences d'une chaîne par une autre.
Resultat=ChaineDépart.Replace(ChaîneARemplacer,ChaîneQuiRemplace) Dim s As String= "Visual_Basic" s= s.Replace("_"," " ) ‘Donne s= "Visual Basic"
Autre exemple:
L'utilisateur a tapé une date, mais avec comme séparateur des ".", comme on le verra plus loin, il est nécessaire d'utiliser plutôt les "/", pour cela on utilise Replace
Dim ladate as string= "12.02.1990" ladate= ladate.Replace(".","/" ) ‘Donne ladate= "12/02/1990"
Split :
Découpe en plusieurs sous chaînes une chaîne de départ, cela par rapport à un séparateur.
Exemple :
Je récupère dans un fichier une chaîne de mots ayant pour séparateur « ; », je veux mettre chaque mot dans un tableau.
‘Chaîne contenant les mots séparés par « ; »
Dim s As String= "Philippe;Jean ;Toto"
Dim separateur As Char = ";" Dim nom() As String nom=s.Split(separateur) Donne :
nom(0)= "Philippe" nom(1)= "Jean" nom(2)= "Toto"
Remarque: Quand on déclare le tableau nom(), on ne donne pas le nombre d'élément, c'est Split qui crée autant d'élément qu'il faut. En Framework 2, on peut utiliser plusieurs séparateurs différend:
nom=s.Split( New Char() {" "c, ","c, "."c }) ici on a 3 séparateurs: l'espace, la virgule et le point.
le c après chaque séparateur veut dire Char, car les séparateurs sont des caractères.
On peut ajouter 2 paramètres permettant d'indiquer le nombre de ligne maximum et forcer l'élimination des lignes vides.
Dim sep() As Char={" "c, ","c, "."c}
Dim nom() As String = S.Split ( sep, 100,
StringSplitOptions.RemoveEmptyEntries )
.Join
Concatène tous les éléments d'un tableau et peut ajouter des séparateurs.
Si myLines() est un tableau de String , je veux ajouter ces lignes bout à bout en les séparant d'un retour à la ligne.
Dim myText As String = ( , myLines)
.IndexOf .LastIndexOf
Indique le numéro du caractère, la position (la première occurrence) ou une chaîne à chercher est trouvée dans une autre. Recherche en commençant par la fin avec LastIndexOf
Dim a As String= ""
Dim r As Char()={"."}
a.IndexOf(r) retourne 3
Se souvenir : le premier caractère est en position 0 en .Net.
.LastIndexOf retourne la dernière occurrence.
.IndexOfAny .LastIndexOfAny (Framework 2)
Indique le numéro du caractère, la position (la première occurrence) ou une chaîne à chercher est trouvée dans une autre avec en plus possibilité d'indiqué la position de départ.
Dim a As String= ""
Dim r As Char()={"."}
a.IndexOfAny(r) recherche à partir du début de chaîne.
a.IndexOfAny(r,2) recherche à partir du deuxième caractère.
Autre exemple: On recherche ici plusieurs caractères (en fait un tableau de
Char)
Dim str As String ="gfdjzak;,vdqsygeak"
Dim start As Integer =2
Dim at As Integer
Dim count As Integer =5
Dim target As String = "ou" 'chaîne à chercher
Dim anyOf As Char() = target.ToCharArray() 'on transforme la chaîne en tableau de char
at = str.IndexOfAny(anyOf, start, count) 'on cherche le tableau de Char anyOf dans str à partir de la position start et sur count caractères.
.Compare
Compare 2 chaînes : Dim rep As Integer rep=String.Compare(a,b) Retourne un entier
Négatif si a
0 si a=b
Positif si a>b
On peut comparer des sous chaînes et indiquer la sensibilité à la casse (Framework 2):
rep= String.Compare(a, 2, b, 2, 10, True)
Ici on compare 10 caractères en commençant par le deuxième caractère de chaque chaîne en mode sensible à la casse (majusculesminuscule).
.Substring
Extrait une partie d’une chaîne.
Le premier paramètre indique la position de départ; le second, le nombre de caractères à extraire.
Dim a As String= "Informatique"
(a.Substring(2,3)) ‘Affiche for
Le premier paramètre indique la position du caractère où doit commencer la sous-chaîne, en commençant à la position 0. (les caractères sont comptés 0, 1, 2, 3 .
Le second paramètre la longueur de la sous-chaîne.
Exercice 1: comment obtenir les 4 caractères de droite:
Dim a As String= "Informatique"
(a.Substring(A.Length-4)) ‘Affiche ique
Ici on omet le second paramètre,la longueur de la sous-chaîne, va jusqu'a la fin de la chaîne.
Exercice 2: comment obtenir les 3 caractères de gauche:
Dim a As String= "Informatique"
(a.Substring(0, 3)) ‘Affiche inf
.Chars
Une chaîne peut être perçue comme un tableau de caractères (instances Char) ; vous pouvez extraire un caractère particulier en faisant référence à l'index de ce caractère par l'intermédiaire de la propriété Chars. Par exemple :
Dim maString As String = "ABCDE" Dim monChar As Char monChar = maString.Chars(3) ' monChar = "D" On peut créer des chaînes avec la Classe String:
myString = New String(" ", 15) 'Créer une chaîne de 15 espaces
.PadRight
Aligne les caractères de cette chaîne à gauche et remplit à droite en ajoutant un caractère Unicode spécifié pour une longueur totale spécifiée.
Dim str As String Dim pad As Char str = "Nom" pad = Convert.ToChar(".")
Console.WriteLine(str.PadRight(15, pad)) ' Affiche Nom
PadLeft fait l'inverse.
.StartsWith() et EndsWith()
Permettent de tester si une string commence ou se termine par une string, retourne True ou False.
Tester si la String s commence par "abc" et se termine par "xyz":
If s.StartWith ("abc") And s.EndWith ("xyz") then
2- On peut aussi utiliser les instructions 'Visual | |
Basic': |
Si vous débuter, laisser de coté ces instructions Visual
Basic: elle font double emploi avec la classe String, elle ne sont pas toujours cohérentes avec le reste et cela embrouille.
Utiliser uniquement la classe String.
Elles sont bien connues des 'anciens' et font partie intégrante de VisualBasic) et sont parfois plus simples. Mais elles ne fonctionnent pas comme des Objets mais comme des instructions.
Elle font partie de l'espace de nom Microsoft.VisualBasic, il est 'chargé' par défaut et il n'y a pas lieu de l'importer. Par contre quand certains 'mots' sont communs à plusieurs classes ou instructions, il peut y a avoir ambiguïté et il faut utiliser dans ce cas la syntaxe complète. Cela semble le cas pour left qui est un mot clé Vb mais aussi une propriété des
contrôles. Pour lever l'ambiguïté il faut écrire (C,i) par exemple.
Ces méthodes font souvent double emploi avec les méthodes de la classe String:
Attention : le premier caractère est en position 1 dans les instructions VB.
Mid:
Permet de récupérer une sous-chaîne.
MaString = "Mid Demonstration" a = Mid(MaString, 1, 3) ' Retourne "Mid".
Retourne 3 caractères à partir du premier
Le premier paramètre indique la position du caractère où doit commencer la sous-chaîne, en commençant à la position 1. (les caractères sont comptés 1, 2, 3 ; on rappelle qu'avec SubString la sous-chaîne, commence à la position 0.
a = Mid(MaString, 14) ' Retourne "tion": du 14ème à la fin (pas de 3ème argument)
Mid permet aussi de remplacer une string dans une string
Mid(MaString, 1, 3) = "Fin" => MaString="Fin Demonstration"
Left, Right (Pas d'équivalent dans le Framework)
Retourne x caractères de gauche ou de droite:
a=Right(MaString,2) 'a="on"
(MaString,2) 'a="Mi"
Notez bien que, pour lever toute ambiguïté avec les méthodes left d'autres classes, il faut indiquer .
Len.
Retourne la longueur de la chaîne:
MyLen = Len(MaString) ' Retourne 17.
LTrim, RTrim
Enlève les espaces à gauche ou à droite d'une chaîne.
a=LTrim(" RRRR") ' a="RRR"
InStr
Retourne un entier spécifiant la position de début de la première chaîne à l'intérieur d'une autre.
n=InStr(1,"aaaaRaa","R") 'retourne 5
Recherche à partir du premier caractère, à quelle position se trouve 'R' dans la chaîne "aaaaRaa"
Si la chaîne n'est pas trouvée , retourne 0
InStrRev
Recherche aussi une chaîne mais de droite à gauche. la position de départ est le 3ème argument.
InStrRev (Ch1, Ch2 , PosDépart)
StrComp Compare 2 chaînes.
Space
Retourne une chaîne d'espace: Space(10) retourne " "
StrDup
Retourne une chaîne de caractères par duplication d'un caractère dont on a spécifié le nombre. maString = StrDup(5, "P") ' Retourne "PPPPP"
Asc
Retourne le code de caractère du caractère entré. Il peut être compris entre 0 et 255 pour les valeurs du jeu de caractères codé sur un octet (SBCS) et entre -32 768 et 32 767 pour les valeurs du jeu de caractères codé sur deux octets (DBCS). La valeur retournée dépend de la page de codes
AscW retourne le code Unicode du caractère entré. Il peut être compris entre 0 et 65 535.
x=Asc("A") 'retourne 65 x=Asc("ABCD") 'retourne 65 : Seul le premier caractère est pris en compte
Chr et ChrW
Retourne le caractère associé au code de caractère.
Chr(65) retourne "A" 'cela dépend de la page de code.
On peut donner le numéro du caractère en hexadécimal, dans ce cas on le fait précéder de &H
Chr(&H20) est équivalent de Chr(32) et retourne un caractère " ".
ChrW retourne le caractère correspondant à l'Unicode
GetChar
Retourne le caractère d'une chaîne à une position donnée.
Dim maString As String = "AIDE"
Dim monChar As Char monChar = GetChar(maString, 3) ' monChar = "D"
LCase Ucase
Retourne la chaîne en minuscule ou majuscule:
Lowercase = LCase(UpperCase)
Lset Rset
Retourne une chaîne alignée à gauche avec un nombre de caractère.
Dim maString As String = "gauche" Dim r As String
r = LSet(maString, 2) ' Retourne "ga"
Si la chaîne de départ est plus courte que la longueur spécifiée, des espaces sont ajoutés. r= LSet(maString, 8) ' Retourne "gauche "
StrRevers
Retourne une chaîne ou les caractères ont été inversés:
Dim maString As String = "STRESSED"
Dim revString As String
revString = StrReverse(myString) ' Retourne "DESSERTS" Like:
Instruction hyper puissante: Like, elle compare une chaîne String avec un modèle (Pattern), elle permet de voir si la chaîne contient ou ne contient pas un ou des caractères, ou une plage de caractères. (c'est l'équivalent des expressions régulières du Framework) result = String Like Pattern
Si string correspond à pattern, la valeur de result est True ; s'il n'y a aucune correspondance, la valeur de result est False. Si string et pattern sont une chaîne vide, le résultat est True. Sinon, si string ou pattern est une chaîne vide, le résultat est False.
L'intérêt de Like est que l'on peut y mettre des caractères génériques:
? veut dire tout caractère unique * veut dire * ou plusieurs caractères.
# veut dire tout chiffre.
[caractères] veut dire tout caractères présent dans la liste.
[!caractères] veut dire tout caractères NON présent dans la liste.
- trait d'union permet de spécifier un début et une fin de plage.
Exemple:
Dim R As Boolean
R = "D" Like "D" ' Est ce que "D" est égal à "D"? => True.
R = "F" Like "f" ' Est ce que "F" est égal à "f"? => False.
R = "F" Like "FFF" ' Est ce que "F" est égal à "FFF"? => False.
R = "cBBBc" Like "c*c" ' Est ce que "cBBBc" répond au pattern (avoir un "c" au
'début, un "c" à la fin, et des caractères au milieu? Retourne True.
R = "J" Like "[A-Z]" ' Est ce que "J" est contenu dans les caractères allant de
' A à Z? Retourne True.
R = "I" Like "[!A-Z]" ' Est ce que "I" n'est PAS dans les caractères allant de
' A à Z? Retourne False.
R = "a4a" Like "a#a" ' Est ce que "a4a" commence et finie par un ' "a" et à un nombre entre les 2? Retourne True.
R = "bM6f" Like "b[L-P]#[!c-e]" ' Est ce que "bM6f"
'commence par "b",
'a des caractères entre L et P
'un nombre
'se termine par un caractère non compris entre c et e 'retourne True
3- Un exemple:
Combinaison de chaînes de caractères, de variables..
Souvent, on a besoin d'afficher une combinaison de chaînes littérales, le contenu de variables, des résultats de calcul; c'est possible.
Exemple :
Pour afficher dans un label le carré de X est X2, avec une valeur dans la variable x :
Dim X As Integer = 2
= "Le carré de " & X & " est " & X * X
Ce qui est entre guillemets est affiché tel quel. C'est le cas de "Le carré
de " et de " est "
Ce qui n’est pas entre guillemets est évalué, le résultat est affiché. C'est le cas de X et X*X
Pour ne faire qu'une chaîne on ajoute les bouts de chaînes avec l'opérateur '&'.
Notez l’usage d’espace en fin de chaîne pour que les mots et les chiffres ne se touchent pas.
Dim X As Integer
X=2
= "Le carré de " & X & " est " & X * X
Affiche dans le label : « Le carré de 2 est 4 »
Voir des exemples de code dans ve1-1
4- Comparaison de caractères et 'Option Compare'
On peut comparer 2 String
Dim s1 As String ="ABCD"
Dim s2 As String ="XYZ"
Dans ce cas s1
Par défaut (Option Compare Binary)
Les caractères sont classés dans un ordre croissant (l'ordre de leur code unicode)
Voyons l'ordre des certains caractères particuliers:
" " +,-./ 0123456789 :;ABCDEF abcdef èéê
On constate que l'ordre est espace puis quelques caractères spéciaux, les chiffres, les majuscules puis les minuscules, les accentués.(voir le tableau d'unicode)