Pour les unixiens :
semblable a un cut -d"Ce_que l'on veut" placant le texte dans un tableau donné en reference.
Source / Exemple :
Public Sub Hachage(ByVal vParametre As String, ByRef TabParam() As String, Optional ByVal Separateur As String = ",")
'Decoupe une string dans un tableau
On Error GoTo erreur
Dim Position As Integer
Dim buff_Position As Integer
Dim Taille_Sep As Integer
Dim i As Integer
Taille_Sep = Len(Separateur)
Position = 1
ReDim TabParam(0)
Do
buff_Position = Position
Position = InStr(Position, vParametre, Separateur) + Taille_Sep
If Position = Taille_Sep Then
TabParam(i) = Right(vParametre, Len(vParametre) - buff_Position + 1)
Exit Do
Else
TabParam(i) = Mid(vParametre, buff_Position, Position - buff_Position - Taille_Sep)
End If
i = i + 1
ReDim Preserve TabParam(i)
Loop While Position
Exit Sub
erreur:
Msgbox "Erreur (" & trim(str(err.number)) & "):" & vbcrlf & err.description, "Découpage d'une string"
Err.Clear
Resume Next
End Sub
Conclusion :
On peut surement faire plus simple ou plus performant. Je suis friant de commentaire si l'on peut ameliorer la fonction.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.