Stocker des données dans une chaine ou un tag

Commenter

Contenu du snippet

Cette fonction très simple à utiliser et très courte permet (après avoir placé des données dans une chaîne en les séparant par un délimiteur) de les récupérer en donnant simplement leur position dans la chaîne (ou le Tag d'un contrôle).

Source / Exemple : 


Private Function DataPos(Chaine As String, Position As Integer)
Dim Tableau() As String
'Dans cet exemple le délimiteur séparant les données est #
'On stocke les données dans le tableau
Tableau() = Split(Chaine, "#", -1)
'On récupère la donnée à la position demandée
DataPos = Tableau(Position)

'ex : si le TAG (ou la chaîne)contient :
'Ancien#24#128#Nouveau#254.21#13.75#
'Valeur4 = DataPos( Control.Tag , 3) retourne "Nouveau"
'Valeur5 = DataPos( Control.Tag , 4) retourne 254.21
End Function

Conclusion :


Utilise la fonction Split donc ne fonctionne qu'à partir de VB6

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.