Fonction Split

  • Article

Renvoie une base zéro à une matrice à une dimension contenant un nombre spécifié de sous-chaînes.

Syntaxe

Split(expression, [ delimiter, [ limit, [ compare ]]])

La syntaxe de la fonctionSplit comporte lesarguments nommés suivants :

Élément Description
expression Obligatoire. Expression de chaîne contenant des sous-chaînes et des séparateurs. Sil’ expression est un string("") nulleSplit renvoie une matrice vide, autrement dit, une matrice comportant aucune éléments et aucune donnée.
délimiteur Facultatif. Caractère de chaîne permettant d'identifier des limites de sous-chaînes. Si cet argument est omis, le caractère espace (« ») est supposé être égal au délimiteur. Si le délimiteur est une chaîne nulle, un tableau à élément unique contenant l’ensemble de la chaîne de l’expression est renvoyé.
limit Facultatif. Nombre de sous-chaînes à renvoyer : -1 indique que toutes les sous-chaînes sont renvoyées.
compare Facultatif. Valeur numérique indiquant le type de comparaison à utiliser lors de l'évaluation de sous-chaînes. Voir la section Paramètres pour les valeurs.

Paramètres

L’argumentcomparepeut avoir les valeurs suivantes :

Constante Valeur Description
vbUseCompareOption -1 Effectue une comparaison à l’aide du paramètre de l’optioninstruction Comparer.
vbBinaryCompare 0 Effectue une comparaison binaire.
vbTextCompare 1 Effectue une comparaison textuelle.
vbDatabaseCompare 2 Microsoft Access uniquement. Effectue une comparaison basée sur les informations dans votre base de données.

Exemple

Cet exemple montre comment utiliser la fonction Split .

Dim strFull As String
Dim arrSplitStrings1() As String
Dim arrSplitStrings2() As String
Dim strSingleString1 As String
Dim strSingleString2 As String
Dim strSingleString3 As String
Dim i As Long

strFull = "Dow - Fonseca - Graham - Kopke - Noval - Offley - Sandeman - Taylor - Warre"    ' String that will be used. 

arrSplitStrings1 = Split(strFull, "-")      ' arrSplitStrings1 will be an array from 0 To 8. 
                                            ' arrSplitStrings1(0) = "Dow " and arrSplitStrings1(1) = " Fonesca ". 
                                            ' The delimiter did not include spaces, so the spaces in strFull will be included in the returned array values. 

arrSplitStrings2 = Split(strFull, " - ")    ' arrSplitStrings2 will be an array from 0 To 8. 
                                            ' arrSplitStrings2(0) = "Dow" and arrSplitStrings2(1) = "Fonesca". 
                                            ' The delimiter includes the spaces, so the spaces will not be included in the returned array values. 

'Multiple examples of how to return the value "Kopke" (array position 3). 

strSingleString1 = arrSplitStrings2(3)      ' strSingleString1 = "Kopke". 

strSingleString2 = Split(strFull, " - ")(3) ' strSingleString2 = "Kopke".
                                            ' This syntax can be used if the entire array is not needed, and the position in the returned array for the desired value is known. 

For i = LBound(arrSplitStrings2, 1) To UBound(arrSplitStrings2, 1)
    If InStr(1, arrSplitStrings2(i), "Kopke", vbTextCompare) > 0 Then
        strSingleString3 = arrSplitStrings2(i)
        Exit For
    End If 
Next i

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.