Problème sur tri d'un tableau

Résolu
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 13 sept. 2006 à 11:41
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 20 sept. 2006 à 13:35
 Bonjour à tous....

En vbs, à partir de plusieurs tables access, je crée un fichier .txt dans lequel, j'ai:

|X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|
|X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|II9X|1|
|X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|PR05|1|
|X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|IIZZ|1|
|X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|PR05|1|

Après avoir oté le 1er "|" (Separator), je crée un tableau :

Do While Not Fic_Entree.AtEndOfStream
   strtmp = Split(Replace(Fic_Entree.ReadAll,"|X","X"), vbCrLf)   'création tableau du fichier
   strtmp_count = UBound(strtmp)                'nombre de lignes du fichier
'|X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|
'X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|
   For i = LBound(strtmp) to Ubound(strtmp) 
       imax = 0
       Dim MyArray
       MyArray = Split(Trim(strtmp(i)), Separator, -1, 1) 'creation tableau de la ligne courante
'MsgBox MyArray(6) &vbCrLf& MyArray(0) &vbCrLf& MyArray(7)
'MsgBox strtmp(i) &vbCrLf& strtmp(i+1) &vbCrLf&_
'       "ubound de MyArray " & Ubound(MyArray) &vbCrLf&_
'       "array(1) : " & MyArray(1) &vbCrLf&_
'       "array(2) : " & MyArray(2) &vbCrLf& "array(3) : " & MyArray(3) &vbCrLf&_
'       "array(4) : " & MyArray(4) &vbCrLf& "array(5) : " & MyArray(5) &vbCrLf&_
'       "array(6) : " & MyArray(6) &vbCrLf& "array(7) : " & MyArray(7)
'MsgBox "ron" &vbCrLf& MyArray(7)
        imax = imax + 1
        ReDim Preserve Tableau(7, imax)
        Tableau(1, imax) = MyArray(6)        'MyArray(6) correspond à II9X
        Tableau(2, imax) = MyArray(3)        'MyArray(3) correspond à ALES860M
        Tableau(3, imax) = MyArray(1)        'MyArray(1) correspond à jj/mm/aaaa
        Tableau(4, imax) = MyArray(2)        'MyArray(2) correspond à 22h55    
        Tableau(5, imax) = MyArray(4)        'MyArray(4) correspond à B8062-ALES860M
        Tableau(6, imax) = MyArray(5)        'MyArray(5) correspond à IMSA.EDIMENS
        Tableau(7, imax) = MyArray(7)        'MyArray(7) correspond à 1 (nbre de copy)

Mon problème, je suis nul en tableau.
Je transforme en asc la valeur de Tableau(1, imax) = MyArray(6) pour pouvoir
comparer Tableau(1, imax) et Tableau(1, imax+1)

        var1 = Asc(Left(Tableau(1, imax), 1)) + Asc(Mid(Tableau(1, imax), 2, 1)) + Asc(Mid(Tableau(1, imax), 3, 1)) + Asc(Mid(Tableau(1, imax), 4, 1))
        var2 = Asc(Left(Tableau(1, imax + 1), 1)) + Asc(Mid(Tableau(1, imax + 1), 2, 1)) + Asc(Mid(Tableau(1, imax + 1), 3, 1)) + Asc(Mid(Tableau(1, imax + 1), 4, 1))

Bref, je n'arrive pas à m'en sortir avec mon tri à bulle.

Quelqu'un peut-il m'orienter !!!!

Pour résumé,
en sortie, j'aimerai que mon tableau soit trié sur MyArray(6), puis sur MyArray(3)
pour obtenir:

II9X|X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|1|
II9X|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|1|
IIZZ|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|1|
PR05|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|1|
PR05|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|1|

Vous noterez que je suis toujours autant brouillon dans mes explications.
Mais, je me comprends !!!

Merci,

jean-marc

J'aimerai trié mon tableau sur l'imprimante (

8 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
18 sept. 2006 à 08:32
salut,

beh çà sera un début au moins.....

Private Sub Form_Load() 
    Dim aArrayAll() As String, sTmp As String 

    Dim FF As Integer, i As Integer, j As Integer 

'   lecture du fichier en tableau
    FF =  FreeFile 
    i = 0 
    Debug.Print "-- AVANT --" 
    Open "C:\test.txt" For Input As #FF 
'       on lit tout sans ligne vide
        Do While Not EOF(FF) 
            Line Input #FF, sTmp 
            If LenB(sTmp) > 0 Then 
'               redim à la bonne taille
                ReDim Preserve aArrayAll(i) 
                aArrayAll(i) = sTmp 

                'trace
                Debug.Print sTmp 

                i = i + 1 
            End If 
        Loop 
    Close #FF 

'   tri sur (6)
    For i = UBound(aArrayAll) To 1 Step -1 
        For j = 0 To i - 1 
            If Split(aArrayAll(j), "|")(6) > Split(aArrayAll(j + 1), "|")(6) Then 
                sTmp = aArrayAll(j) 
                aArrayAll(j) = aArrayAll(j + 1) 
                aArrayAll(j + 1) = sTmp 
            End If 
        Next j 
    Next i 

'   trace
    Debug.Print vbCrLf & "-- APRèS --" 
    For i = 0 To UBound(aArrayAll) 
        Debug.Print aArrayAll(i) 
    Next i 

    Unload Me 
End Sub 
 

<small> Coloration
syntaxique automatique [AFCK] </small>
       

-- AVANT --
X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|II6X|1|
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|PR05|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|II9X|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|PR05|1|

-- APRèS --
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|II6X|1|
X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|II9X|1|
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|PR05|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|PR05|1|

++
PCPT   [AFCK]
<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
3
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
17 sept. 2006 à 22:45
salut,
pas besoin de répondre à mon MP...
rubrique corrigée (elles sont côte à côte.. bizarre...)

NB : topic à peine survolé, si tu veux de l'aide en VB6 pourquoi pas en en VBS (tu dois le savoir) je ne m'y connais pas des masses...
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
17 sept. 2006 à 23:08
 Bonsoir,
merci  PCPT,
Je ne pratique pas le VB6, je n'utilise que le vbs pour faire du reporting
(fichiers Aix, Gcos, ou Db vers présentation html ou autres) pour une partie
de mon job et pour mon dilettantisme.
Mais un exemple en vb6, j'arriverai, peut-être, à  comprendre sa logique, et,
à le translater en vbs.
J'arrive à trier, avec mes moyens archaiques (les miens), un tableau sur 1 ou 2 keys mais pas plus.

jean-marc
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
17 sept. 2006 à 23:30
re,
umm..."C:\test.txt" contient ce que tu as écris. (fini par "|", pas par un dernier retour chariot)

il t'attend patiemment... je ne comprends pas ce que tu veux réellement

en l'attente

ps : même sans l'utiliser mais si tu "comprends" VB (6 ou autre), tu peux le préciser en entête de topic. perso dès que je vois VBS ou DotNet je ne lis même pas alors que parfois une réponse en VB6 pourrait convenir...
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
17 sept. 2006 à 23:34
"ReDim Preserve Tableau(7, imax)"

PS : en VB6 tout au moins, on ne peut pas faire de redim PRESERVE avec un tableau miltidimentionnel
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
18 sept. 2006 à 06:46
 Bonjour ,

J'ai un fichier .txt qui contient les lignes suivantes:
X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|II6X|1|
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|PR05|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|II9X|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|PR05|1|

Mon délimitateur étant "|", j'aimerai trier (croissant ou décroissant) mon fichier sur MyArray(6), qui est le
nom des imprimantes, tout en gardant, évidemment, le contenu de la ligne.
MyArray(6) est toujours sur 4 caractères (2 lettres suivies de 2 caractères 'lettres ou chiffres').
Puis, le re-trier sur MyArray(4) quand MyArray(6) de la ligne courante = MyArray(6) de la ligne +1 (ou -1).

Résultat escompté dans un nouveau .txt :
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|II6X|1|
X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|II9X|1|
X2943|08/09/2006|23h02|ALES741M|B8224-ALES741M|IMSA.EDIMENS|PR05|1|
X2967|08/09/2006|23h19|PNEU741M|B8224-PNEU741M|IMSP.EDIMENS|PR05|1|

jean-marc
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
18 sept. 2006 à 10:07
 Bonjour à tous,

Merci PCPT.
Je vais testé ce soir at home.
Je n'ai jamais utilisé la synthaxe de comparaison de tableau:
'   tri sur (6)
    
For
 i = UBound(aArrayAll) To 1 Step -1 
        
For j = 0 To i - 1 
            
If Split(aArrayAll(j), "|")(6) > Split(aArrayAll(j + 1), "|")(6) Then 
                sTmp = aArrayAll(j) 
                aArrayAll(j) = aArrayAll(j + 1) 
                aArrayAll(j + 1) = sTmp 
            
End If 
        
Next j 
    
Next i 
A+.
jean-marc
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
20 sept. 2006 à 13:35
 Bonjour à tous....

Ci-dessous, la translation de vb6 en vbs du script que m'a proposé PCPT.
Il y a surement plus simple.
Je ne suis pas arrivé à comprendre et, donc, à manipuler, le "aArrayAll".
Ayant valider ce post ("Réponse acceptée"), les nouveaux échanges ne sont plus affichés
dans la rubrique "Derniers échanges", je posterai un nouvel topic pour un tri un peu plus "poussé".

Option Explicit


'Const ForReading 1, ForWriting 2, ForAppending = 8
Dim Path:         Path   = "D:\OxaJor"  
Dim Fichier:      Fichier  = "enumeration_DPRs.txt"
Dim Fic_Temp:     Fic_Temp = Left(Path & Fichier,Len(Path & Fichier)-4) & "_new.txt"


Dim Fso:          Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Fic_Entree:   Set Fic_Entree = Fso.OpenTextFile(Path & Fichier, 1, False)
Dim Fic_Sortie:   Set Fic_Sortie = Fso.OpenTextFile(Fic_Temp, 2, True)


Dim sTmp
Dim i: i = 0
Dim j: j = 0


Do While Not Fic_Entree.AtEndOfStream
   sTmp = Split(Replace(Fic_Entree.ReadAll,"|X","X"), vbCrLf)   'création tableau du fichier
'stmp(0) contient la ligne ci-dessous
'X2918|08/09/2006|22h55|ALES860M|B8062-ALES860M|IMSA.EDIMENS|II9X|1|


   For i = 0 To UBound(sTmp)
'       MsgBox "le plus grand indice disponible pour la dimension indiquée d'un tableau : " & UBound(sTmp) &vbCrLf&_
'              "le plus petit indice disponible pour la dimension indiquée d'un tableau :     " & LBound(sTmp) &vbCrLf&vbCrLf&_
'              "ligne courante : " &vbCrLf& sTmp(i) &vbCrLf&vbCrLf& "indice de la dimension du tableau : " & i,,_
'              "Vérification du tableau sTmp"
'
    'ReDim Preserve aArrayAll(i)
    'aArrayAll(i) = sTmp
    'MsgBox "verif sTmp(i):   " & sTmp(i) &vbCrLf& "verif UBound aArrayAll: "& UBound(aArrayAll)       
   Next
 i = i + 1   
Loop
Fic_Entree.Close


'
'Le fichier, de test, contient 10 lignes
'
'  MsgBox "i: " & i &vbCrLf&vbCrLf&"UBound aArrayAll: " & UBound(aArrayAll) &vbCrLf&"LBound aArrayAll: " & LBound(aArrayAll) &vbCrLf&_
'         "UBound sTmp: " & UBound(sTmp) &vbCrLf&"LBound sTmp: " & LBound(sTmp) &vbCrLf&vbCrLf&_
'         "sTmp(0) : " & sTmp(0) &vbCrLf& "sTmp(9) : " & sTmp(9)


'MsgBox Left(sTmp(0),4)
'
Dim cprovisoire, bpermute
bpermute = True                         'Il faut au moins parcourir une fois
Do While bpermute = True                'On tourne tant que l'on bouge des valeurs
    bpermute = False
    For i = UBound(sTmp) To 1 Step -1
        For j = 0 To i - 1
'MsgBox Split(sTmp(j), "|")(6)
            If Split(sTmp(j), "|")(6) < Split(sTmp(j + 1), "|")(6) Then
            'MsgBox "verif sTmp(j) " &vbCrLf& sTmp(j)
                'sTmp = aArrayAll(j)
                'aArrayAll(j) = aArrayAll(j + 1)
                'aArrayAll(j + 1) = sTmp
            cprovisoire = sTmp(j)     'On inverse les deux chaines
            sTmp(j) = sTmp(j + 1)   'bis
            sTmp(j + 1) = cprovisoire 'bis
            bpermute = True
            End If
        Next 
    Next 
Loop
Dim liste
    For i = 0 To UBound(sTmp)
        liste = sTmp(i) &vbCrLf& liste
    Next


Fic_Sortie.WriteLine liste
Fic_Sortie.Close


Set Fso = Nothing
Set Fic_Entree = Nothing
Set Fic_Sortie = Nothing 

Merci encore à PCPT.
 
jean-marc
0
Rejoignez-nous