Discussion :

[megamario]

Bonjour,

Dans mon programme je récupère un temps, la clef (jour/mois/année heure:minute:seconde) et une donnée (mesure) associée à ce temps.

Je stock sa dans une collection mais on ne doit pas avoir la même clef, malheureusement cela peut arrivé (au changement d'heure par exemple).

Donc il faut que je contrôle sa et que j'ajoute une seconde à mon temps pour garder la données qui lui est associée mais sans dénaturer m'a courbe que je vais effectuer après.(les mesures étant effectuées toutes les 10 minutes au minimum).

Donc j'ai pensé au - For Each X in Coll , de comparer m'a key et d'ajouter éventuellement 1 secondes. Mais dans ce cas il faut que je recommence à vérifier que ma key n'existe pas depuis le début de la collection. Il faut que réinitialise le compteur du "for each".

Je pense aussi qu'il y a moyen de faire quelque chose avec la gestion des exceptions mais je maîtrise pas bien cette partie dans Vb6.

Pourriez vous m'aider.

[DarkVader]

Et en utilisant une donnée temps mesurée en ms ?
Sinon avec un Dictionary à la place de la collection il est facile de vérifier si une clé existe avec .Exists(key)

[megamario]

Et en utilisant une donnée temps mesurée en ms ?
Sinon avec un Dictionary à la place de la collection il est facile de vérifier si une clé existe avec .Exists(key)

Il y a des dictionary dans VB6 ? Je les connais en .net et c'est carrément plus pratique, mais je ne les ai pas vu en VB6. Je vais regardé plus attentivement.

Si non j'ai pallié au problème avec les évènement d'erreur mais bon j'aime mais sa utiliser les erreurs pour faire mon programme.

[DarkVader]

Il y a des dictionary dans VB6 ? .../...

Le même qu'avec .net : librairie Microsoft Scripting Runtime

[250rgv]

Ils ne sont pas en standard en v6. Il faut référencer le "Microsoft Scripting Runtime".

Sinon, même si c'est pas très propre (ce code n'est pas testé),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public function CleExiste(byref Coll as collection,byval Cle As Variant) As boolean
  'Renvoi l'objet dans la collection correspondant à Key.
  'Renvoi NOTHING si Key ne correspond à aucune fiche.
	dim o as object
	CleExiste=false
  On Error Resume Next  
  set o = Coll(Cle)
	CleExiste=( err.number=0)	
End function

edit : grillé par DarkVader, mis trop de temps à rédiger ma réponse

[megamario]

Ils ne sont pas en standard en v6. Il faut référencer le "Microsoft Scripting Runtime".

Sinon, même si c'est pas très propre (ce code n'est pas testé),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public function CleExiste(byref Coll as collection,byval Cle As Variant) As boolean
  'Renvoi l'objet dans la collection correspondant à Key.
  'Renvoi NOTHING si Key ne correspond à aucune fiche.
	dim o as object
	CleExiste=false
  On Error Resume Next  
  set o = Coll(Cle)
	CleExiste=( err.number=0)	
End function

edit : grillé par DarkVader, mis trop de temps à rédiger ma réponse

C'est exactement ce que j'ai fait (dans le principe), quand je parlais d'utilisé la gestion des erreurs.

Merci

Mais étant débutant, une question s'impose pour moi. Utiliser les erreurs pour réalisé un programme, moi, cela me choque un peut. Pour moi, dans ma petite tête, la gestion des erreurs doit justement être utilisé afin de prévenir un fonctionnement non prévu, par exemple la lecture d'un fichier qui n'existe pas. Mais je m’aperçois que l'on s'en sert quand même souvent pour facilité la programmation. Comme ici avec le code proposé.

Est-ce vraiment normale ou faudrait le plus possible ne pas s'en servir.

Je demande sa car je débute donc, et j'ai pas l'intention de rester dans ma boite actuelle et je voudrais savoir ce qui se pratique et ce qu'il convient de faire. Au lycée ont a très peut vu la gestion des erreurs et du coup ont essayaient par tout les moyens de ne pas s'en servir.

[250rgv]

Mais étant débutant, une question s'impose pour moi... Comme ici avec le code proposé.

Je pense comme toi mais comme la collection n'a pas de méthode keyexists (ou équivalent) ben, on fait comme on peut (enfin moi ).
D'autant plus que je n'ai découvert les dictionnaires (et le scripting runtime) que bien longtemps après avoir eu besoin de gérer ce type de fonctionnalité dans une collection.
Jamais compris pourquoi elle n'existe pas d'ailleurs A croire que les dev. VB n'ont jamais utilisé leur implémentation

edit : je viens de m'apercevoir que le commentaire de mon code n'est pas le bon
En fait, c'est :
'si la clef existe, on obtiendra l'item correspondantà la clef "cle", sinon, une erreur est levée. Donc, s'il n'y a pas d'erreur, la clef existe.

[megamario]

Je pense comme toi mais comme la collection n'a pas de méthode keyexists (ou équivalent) ben, on fait comme on peut (enfin moi ).
D'autant plus que je n'ai découvert les dictionnaires (et le scripting runtime) que bien longtemps après avoir eu besoin de gérer ce type de fonctionnalité dans une collection.
Jamais compris pourquoi elle n'existe pas d'ailleurs A croire que les dev. VB n'ont jamais utilisé leur implémentation

edit : je viens de m'apercevoir que le commentaire de mon code n'est pas le bon
En fait, c'est :
'si la clef existe, on obtiendra l'item correspondantà la clef "cle", sinon, une erreur est levée. Donc, s'il n'y a pas d'erreur, la clef existe.

Merci.

Pour le code, comme j'ai dit j'ai fait exactement pareil dans me principe