Share via

Fonction Mid

  • Article

Renvoie une Variante (chaîne) contenant un nombre défini de caractères d’une chaîne.

Syntaxe

Mid(string, start, [ length ])

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

Élément Description
chaîne Obligatoire. Expression de chaîne de laquelle des caractères sont renvoyés. Si chaîne contient Null, Null est renvoyée.
start Obligatoire ; Long. Position du caractère dans chaîne au niveau duquel commence la partie à prendre. Si start est supérieur au nombre de caractères dans chaîne, Mid renvoie une chaîne de longueur nulle (« »).
length Facultatif ; Variante (Long). Nombre de caractères à renvoyer. Si cet argument est omis ou s’il existe moins de caractèreslength dans le texte (notamment le caractère destart), tous les caractères en partant de la position start à la fin de la chaîne sont renvoyés.

Remarques

Pour déterminer le nombre de caractères dans chaîne, utilisez la Len fonction.

Remarque

Utilisez la fonction MidB avec des données octets contenues dans une chaîne, comme dans les ensembles de langues à caractères sur deux octets. Au lieu de spécifier le nombre de caractères, lesarguments spécifient le nombre d’octets. Pour voir un exemple de code qui utilise MidB, voir le deuxième exemple dans la rubrique d’exemple.

Exemple

Le premier exemple utilise la fonctionSTXT pour renvoyer un nombre spécifié de caractères d’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".

Le deuxième exemple utilise MidB et une fonction définie par l’utilisateur (MidMbcs) pour également renvoyer des caractères de chaîne. Ici la différence est que la chaîne d’entrée est ANSI et 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"

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.