Tri sur tableau

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 21 mai 2006 à 14:19
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 22 mai 2006 à 06:26
 Bonjour à tous....

Dernièrement, sur le topic,
http://www.vbfrance.com/infomsg_TRANSLATION-TOPIC-720974-ASPX-VB6-VBS_721211.aspx#4


je triais un tableau par rapport à une date.


Ex:
Nom du Fichier              LastDateModified



fichier2            02/11/2006 
fichier3            02/12/2006
fichier0            02/10/2006



le résultat était:


fichier3            02/12/2006
fichier2            02/11/2006
fichier0            02/10/2006




Ma question:
Dans le tableau ci-dessous, est-il possible de faire un tri sur array(3):



member1 name_t bib_x PR12
member2 name_o bib_a II22
Member3 name_u bib_a Z12
member4 name_a bib_b MAR1


pour avoir en résultat:
member2 name_o bib_a II22
member4 name_a bib_b MAR1
member1 name_t bib_x PR12
Member3 name_u bib_a ZZ12




Merci pour vos suggestions (VB6 ou vbs).


Vu mes différents posts (ou sources), vous aurez compris que mes questions
portent sur l'extraction de données (fichiers ou bases) pour effectuer
du reporting auprès de "mes" clients (fiche JMO).
Donc,
- faire un tableau trié sur member?;               array(0)
- faire un tableau trié sur name_?;                array(1)
- faire un tableau trié sur xxxx (imprimante)      array(3)


jean-marc


 

1 réponse

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 27
22 mai 2006 à 06:26
 Bonjour à tous....

Pour trier sur imprimante, j'ai pensé à
var1 = Asc(Mid("TWDEST=PR12", 8, 1)) + Asc(Mid("TWDEST=PR12", 9, 1)) + Asc(Mid("TWDEST=PR12", 10, 1)) + Asc(Mid("TWDEST=PR12", 11, 1))

var2 = Asc(Mid("TWDEST=PR13", 8, 1)) + Asc(Mid("TWDEST=PR13", 9, 1)) + Asc(Mid("TWDEST=PR13", 10, 1)) + Asc(Mid("TWDEST=PR13", 11, 1))

MsgBox var1 &vbCrLf& var2

Est-ce la bonne solution ???

merci.
jean-marc
0
Rejoignez-nous