Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Mid, fonction

office 365 dev account|Dernière mise à jour: 04/10/2017
|
1 Contributeur

Retourne une valeur de type Variant ( String ) contenant un nombre indiqué de caractères extraits d'une chaîne de caractères.

Syntaxe

Mid ( string, start [, length ])

La syntaxe de la fonction Mid comprend les arguments nommés suivants :

ÉlémentDescription
stringObligatoire. Expression de chaîne dont sont extraits les caractères à retourner. Si l'argument string contient une valeur de type Null, Null est retourné.
startObligatoire. Donnée de type Long. Position du caractère dans l'argument string qui marque le début de la partie à extraire. Si la valeur de l'argument start est supérieure au nombre de caractères contenus dans l'argument string, la fonction Mid retourne une chaîne de longueur nulle ("").
lengthFacultatif. Donnée de type Variant ( Long ). Nombre de caractères à retourner. Si l'argument length ou que le nombre de caractères du texte (y compris le caractère qui occupe la position start ) est inférieur à la valeur de cet argument, tous les caractères à compter de la position start et jusqu'à la fin de la chaîne sont retournés.

Remarque

Pour déterminer le nombre de caractères contenus dans l'argument string, utilisez la fonction Len.

Remarque Utilisez la fonction MidB pour traiter sous forme d'octets les données relatives aux octets contenues dans une chaîne, comme dans les langages à jeux de caractères à octets doubles. Au lieu d'indiquer le nombre de caractères, les arguments indiquent le nombre d'octets. À des fins d'illustration du code utilisant la fonction MidB, reportez-vous au second exemple dans la section Exemple.

Exemple

Ce premier exemple utilise la fonction Mid pour retourner un nombre de caractères déterminé parmi ceux composant une chaîne.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"    ' Create text string.
FirstWord = Mid(MyString, 1, 3)    ' Returns "Mid".
LastWord = Mid(MyString, 14, 4)    ' Returns "Demo".
MidWords = Mid(MyString, 5)    ' Returns "Function Demo".

Ce second exemple utilise la fonction MidB et une fonction définie par l'utilisateur ( MidMbcs ) pour retourner également les caractères de la chaîne. La différence réside dans le fait que la chaîne en entrée est en format ANSI et que la longueur est en octets.

Function MidMbcs(ByVal str as String, start, length)
    MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function

Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"
© 2018 Microsoft