Fonction Mid

Renvoie la partie spécifiée d'une expression au format chaîne de caractères (Fonction Mid) ou remplace une partie d'une telle expression par une autre chaîne de caractères (sous-routine Mid).

Mid(string As String, Start As Long [, Length As Long]) As String
Mid([ByRef] string As String, Start As Long, [Length As Long], Text As String)

Chaîne de caractères (fonction Mid uniquement)

string : toute expression de chaîne que vous souhaitez extraire (fonction Mid). Tout nom de variable texte que vous souhaitez modifier (sous-routine Mid).

Start : Expression numérique indiquant la position du caractère dans la chaîne où commence la portion que vous souhaitez substituer ou restituer. La valeur minimale admise est 1. La valeur maximale admise est 2 147 483 648.

Length : Expression numérique donnant le nombre de caractères que vous souhaitez substituer ou renvoyer. La valeur maximale admise est 2 147 483 648.

En cas d'omission du paramètre Length dans la fonction Mid, tous les caractères de l'expression compris entre la position de début et la fin de la chaîne sont renvoyés.

Si le paramètre Length de l'sous-routine Mid est inférieur à la longueur du texte à remplacer, le texte est réduit à la longueur indiquée.

Text : La chaîne pour remplacer l'expression de chaîne (sous-routine Mid).

Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(texte, 13, 8) ' renvoie le mot « original »
  MsgBox text                                  ' le texte n'est pas modifié
stmt1:
  Mid(text, 13, 8, "new")
  MsgBox text                                  ' renvoie "This is the new Text"
func2:
  MsgBox Mid(start:=10, string:="The quick brown fox ..") ' affiche " brown fox .."
stmt2:
  Mid text, 9, 12, "a new Phrase"
  MsgBox text               ' renvoie "This is a new Phrase"
End Sub