Discussion :

[skysool]

Bonjour,

quelqu'un sait comment réorganiser des données par ordre croissant ?

Exemple ci dessous :

1 = Poulpe
2 = Thon
3 =
4 = Sardine
5 = Huitre


J'aimerai que si un des chiffres = Néant alors on remonte les informations de cette façon :

1 = Poulpe
2 = Thon
3 = Sardine
4 = Huitre
5 =

Et ainsi des uite si une autre valeur venait à être supprimé ou ajouté.


J'ai pensé à la fonction FOR mais je n'ai aucune idée de comment faire en sorte qu'il comprenne les valeurs à remo :

Code :

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

1
2
3
4
5
6
7
dim cible as string
 
cible = GetVar(App.Path & "\Marchandises.txt", "POISSONERIE", i, Cible)
 
For i = 1 to 5
If VAL(GetVar(App.Path & "\Marchandises.txt", "POISSONERIE", i)) = Vbnullstring then Call PutVar(App.Path & "\Marchandises.txt", "POISSONERIE", cible)
next i

merci

[umfred]

procéder par étape:
1-récupérer les valeurs
2-les réorganiser
3-les réécrire

Je suppose que GetVar retourne la valeur correspondante à l'entrée cible d'une section "POISSONNERIE" dans un fichier de type ini

Je pense que j'utiliserai Trim (..) pour supprimer les espaces superflus et que je comparerai à une chaine vide "". Et si j'ai une chaine vide, je ne récupère pas l'info sinon je la stocke dans un tableau initialement "vide", comme ça la réorganisation se fait facilement.

Et enfin, je réécris les données en parcourant mon tableau

[skysool]

Yeah umfred je n'avais pas pensé à ça !

J'ai bidouiller un morceau de code, la création du nouveau fichier fonctionne bien mais ça ne me copie pas correctement les valeurs.
Je veux bien un coup de pouce

merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim NAMEQ1 As String
Dim NAMEQ2 As String
Dim cible As String
Dim z As Integer
Dim FileName As String
Dim J As Long
 
For i = 1 To 5
If GetVar(App.Path & "\Marchandises.txt", "POISSONERIE", i, cible) = vbNullString Then
z = FreeFile
FileName = (App.Path & "\Marchandises2.txt")
Open FileName For Output As #z
Print #z, "" 'créer le deuxieme fichier temporaire
Close #z
End If
Next i
 
For J = 1 To 5
NAMEQ1 = Trim$(GetVar(App.Path & "\Marchandises.txt", "POISSONERIE", J))
Call PutVar(App.Path & "\Marchandises2.txt", "POISSONERIE", J, NAMEQ1) 'je créer un nouveau fichier dans lequel je copie le nouveau classement
NAMEQ2 = Trim$(GetVar(App.Path & "\Marchandises2.txt", "POISSONERIE", J))
Call PutVar(App.Path & "\Marchandises.txt", "POISSONERIE", J, NAMEQ2) 'je copie dans mon fichier initiale le nouveau classement
Call Kill(App.Path & "\Marchandises2.txt") 'je supprime le nouveau fichier créée
 Next J

[skysool]

J'ai finalement réussi !
Je partage la solution si ça peut aider quelqu'un :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim NAMEQ1 As String
Dim NAMEQ2 As String
Dim Z As Integer
Dim FileName As String
Dim J As Long
Dim NUMQ As String
Dim CUMUL As Long
 
Z = FreeFile
FileName = (App.Path & "\Marchandises2.txt")
Open FileName For Output As #Z
Print #Z, "" 'créer le deuxieme fichier temporaire
Close #Z
CUMUL = 0
NUMQ = 0
 
For i = 1 To 5
NAMEQ1 = Trim$(GetVar(App.Path & "\Marchandises.txt", "POISSONERIE", 0 + i))
 
If NAMEQ1 <> vbNullString Then
If CUMUL = 0 Then NUMQ = i
If CUMUL > 0 Then NUMQ = i - CUMUL
Call PutVar(App.Path & "\Marchandises2.txt", "POISSONERIE"", NUMQ, NAMEQ1) 'je créer un nouveau fichier dans lequel je copie le nouveau classement
CUMUL = 0
Else
CUMUL = CUMUL + 1
End If
Next i
 
 
For J = 1 To 5
NAMEQ2 = Trim$(GetVar(App.Path & "\Marchandises2.txt", "POISSONERIE", 0 + J))
Call PutVar(App.Path & "\Marchandises.txt", "POISSONERIE", 0 + J, NAMEQ2) 'je copie dans mon fichier initiale le nouveau classement
Next J
 
 
Call Kill(App.Path & "\Marchandises2.txt", "POISSONERIE") 'je supprime le nouveau fichier créée

Testé et fonctionnel
Je reste à disposition si quelqu'un voit une autre optimisation possible

[ProgElecT]

Ligne 23

Code :

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

Call PutVar(App.Path & "\Marchandises2.txt", "POISSONERIE"", NUMQ, NAMEQ1) 'je créer un nouveau fichier dans lequel je copie le nouveau classement

.
Je dirai plutôt

Code :

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

Call PutVar(App.Path & "\Marchandises2.txt", "POISSONERIE", NUMQ, NAMEQ1) 'je créer un nouveau fichier dans lequel je copie le nouveau classement

Un " de trop