Découpage d'un string

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 045 fois - Téléchargée 49 fois

Contenu du snippet

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.

A voir également

Ajouter un commentaire

Commentaires

cs_zappy
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
-
En gros c'est la fonction split de vb.
cs_zappy
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
-
RELEASE 01/01/2002 : Un bug s'est infiltré malgrés moi ;)
ReDim TabParam(1) :: TabParam doit être initialisé avec un seul élément et devient donc :: ReDim TabParam(0)
J'ai corrigé la source.
l'interet est franchement limité
Rien a dire ?
C'est parfait ?
:)

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.