Souschaine

Commenter

Contenu du snippet

Ce code permet d'extraire une chaine de caracteres parmi une autre, on doit préciser le séparateur de chaine. Très utile pour ceux qui gèrent les fichiers CSV.

Source / Exemple : 


Public Function SousChaine(ByVal MaChaine As String, Sep As String, Pos As Integer) As String
'Fonction qui sert a extraire un champ à une position donnée
'dans un fichier TEXTE séparé par un séparateur (; pour les CSV)

'Erreur : si la colonne (Pos) demandée est trop grande on déclenche une erreur

On Error GoTo Erreur

Dim i As Integer
Dim PosDebut As Integer
Dim Longueur As Integer

i = 0
MaChaine = MaChaine & Sep
PosDebut = 1

Do While i < Pos
    Longueur = InStr(PosDebut, MaChaine, Sep) - PosDebut
    If Longueur >= 0 Then
        SousChaine = Mid(MaChaine, PosDebut, Longueur)
        PosDebut = InStr(PosDebut, MaChaine, Sep) + 1
        i = i + 1
    Else
        SousChaine = ""
        Exit Function
    End If
Loop
GoTo Fin

Erreur:
MsgBox err.number & " : " & err.description 
SousChaine = ""

Fin:

End Function

Conclusion :


Bientot du code VB sur http://www.clem2k.fr.st (mais venez faire un tour en attendant c'est plein de conneries !!!)

A voir également

S'inscrire maintenant

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.

Du même auteur (Clem2k)