Stocker des données dans une chaine ou un tag

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 595 fois - Téléchargée 68 fois

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

Ajouter un commentaire Commentaires
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

très astucieux et intéressant ... cela dit mettre niveau 2 ... hum
interessant, ca risque de servir

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.