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 !!!)
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.