Discussion :

[esse2016]

Bonjour au Forum,

je cherche à inverser l'ordre des enregistrements dans mon fichier logg.txt. Ceci dans le but d'avoir en première ligne les derniers utilisateurs enregistrés.

En mode ajout il ne le fait pas (il fait l'inverse). Comment contourner le pb, SVP ? (la méthode des tableaux existent mais peut-on faire autrement ?)

mon bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim oTXT As Scripting.TextStream
Dim oFSO As Scripting.FileSystemObject
 
Set oFSO = New Scripting.FileSystemObject
Set oTXT = oFSO.OpenTextFile(ThisWorkbook.Path & "\" & "logg.txt", ForAppending)
With oTXT
.WriteLine Environ("USERNAME") & " " & Now
.Close
End With

Merci d'avance pour votre aide.

[Invité]

Bonjour

Il faut stocker tes données dans un tableau et tout réecrire en partant bouclant à partir de la fin de ton tableau et d'un pas de -1 dans une boucle.

Tu ne peux actuellement qu'écrire à la fin.

Philippe

[Marc-L]

Bonjour !

En mode ajout il ne le fait pas

C'est normal !   Le mode "Ajout" ajoute donc une ligne à la fin du fichier comme décrit dans la documentation …

Tu peux lire le fichier dans une variable tableau puis réécrire entièrement le fichier texte en commençant
par l'insertion de la nouvelle ligne puis par le contenu de la variable tableau …

[esse2016]

bonjour merci à vous deux,

je vais m'orienter vers un tableau.
Par contre je dois compter le nombre de ligne de mon fichier txt pour dimensionner mon tableau.

Mais actuellement ma routine boucle à l'infini et le While Not .AtEndOfStream ne semble pas marcher. une idée ?

=> oublier ce message, j'avais oublié le .SkipLine (honte à moi)

[Marc-L]

En fait ce n'est qu'une question de pure logique ‼

Si tu tiens à utiliser FSO (pouvant être source de ralentissement et inutile en pur VBA ayant déjà tout le nécessaire !),
lire l'intégralité du fichier via ReadAll (aucune utilité de lire les lignes une par une !)
puis le recréer en commençant par la nouvelle ligne puis par l'ancien fichier en mémoire …

[Invité]

Bonjour,
Il faut voir la structure de ton fichier!

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Enum ConstAdo
adSmallInt = 2
     adInteger = 3
     adSingle = 4
     adDate = 7
     adBoolean = 11
     adDecimal = 14
     adNumeric = 131
     adVarChar = 200
End Enum
Enum ConsAdoCon
    adOpenKeyset = 1
    adLockPessimistic = 2
    adUseClient = 3
    adFldMayBeNull = 64
End Enum
Sub test()
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
 
 
Set oTXT = oFSO.OpenTextFile("C:\Users\dysorthographie\Desktop\Az.txt")
 ReadAllTextFile = oTXT.ReadAll
oTXT.Close
ReadAllTextFile = Split(ReadAllTextFile, vbCrLf)
 
 
 
 
Set rstADO = CreateObject("ADODB.Recordset")
With rstADO
   ' .Fields.Append "EmployeeID", adInteger, , adFldKeyColumn
    .Fields.Append "A", adVarChar, 10, adFldMayBeNull
    .Fields.Append "B", adVarChar, 10, adFldMayBeNull
    '.Fields.Append "LastName", adVarChar, 20, adFldMayBeNull
    '.Fields.Append "Email", adVarChar, 64, adFldMayBeNull
    '.Fields.Append "Include", adInteger, , adFldMayBeNull
    '.Fields.Append "Selected", adBoolean, , adFldMayBeNull
 
 
    .CursorType = adOpenKeyset
    .CursorLocation = adUseClient
    .LockType = adLockPessimistic
    .Open
End With
For i = 0 To UBound(ReadAllTextFile)
    rstADO.AddNew
    rstADO("a") = Split(ReadAllTextFile(i), ";")(0)
    rstADO("b") = Split(ReadAllTextFile(i), ";")(1)
     rstADO.Update
Next
 rstADO.AddNew
    rstADO("a") = Environ("Username")
 rstADO.Update
  rstADO.Sort = "a DESC"
 ReadAllTextFile = rstADO.GetString
End Sub

[Marc-L]

Salut Robert !

Il n'est pas nécessaire de découper le fichier en lignes individuelles !

Lecture du fichier dans une variable, création du nouveau fichier, écriture de la nouvelle ligne puis écriture de la variable …