Discussion :

[moijhd]

Bonjour,

Je voudrais savoir d'abord comment ajouter une ligne à un fichier texte (à la fin)

Ensuite, comment lire le fichier ou récupérer la première ligne, puis la supprimer et que la seconde devienne la première

Mon but est de faire une sorte de liste d'attente, une liste de taches...avec un Timer je lis à interval de temps régulier la première ligne et m'exécute

Je suis débutant en VBS et j'accepte tous les tutaux ;=)

Merci !

[SfJ5Rpw8]

ben voir la ...http://vb.developpez.com/faqvbs/

En gros tu devrai

1. Renommer le fichier en ".bak" grâce à la propriété name
2. lire ligne à ligne le fichier .bak
3. Traiter la 1° ligne lu
4. Ecrire les autres lignes dans fichier modifier

[moijhd]

Avec ça, je récupére la première ligne...et l'ensemble du document sur une ligne, alors que je veux conserver les lignes

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
 
Dim OFS, oLigne
 
Set OFS = CreateObject("Scripting.FileSystemObject") 
Set oLigne = oFS.OpenTextFile("c:\fichier1.txt", 1)
 
i=0
reste=""
 
Do While Not oLigne.AtEndOfStream
 
sLigne = oLigne.ReadLine
 
if i=0 Then
' Recupère première ligne
afficher_message(sLigne)
i=1
Else
' Récupère les autres lignes
reste = reste & sLigne
End if
 
Loop
 
' on enregistre....

[SfJ5Rpw8]

et avec cela : Comment écrire dans un fichier texte ?

tu peu écrire les autres lignes dans un nouveau fichier texte...

[moijhd]

Qu'est ce qu'un fichier .bak et pourquoi l'utiliser ?

[moijhd]

et avec cela : Comment écrire dans un fichier texte ?

tu peu écrire les autres lignes dans un nouveau fichier texte...

Dans ce cas, il faut que préalablement, j'enregistre dans un Array toutes mes lignes, puis après avec une boucle je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
i=0
Do While condition pour lire un tableau entierement...
   f.writeLine(Mon_tableau(i))
 
i++
Loop

ou quelque chose comme ça ?

[SfJ5Rpw8]

pas besoin de stocker les lignes tu peu les écrire directement...:

Par exemple:

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
 
Dim OFS, oLigne
Dim bLigne1lue 
Dim sLigne 
Const ForReading = 1, ForWriting = 2 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFlu = oFSO.OpenTextFile("fichier1.txt", ForReading) 
Set oFec = oFSO.OpenTextFile("fichier2.txt", ForWriting,true)
bLigne1lue = False
 
Do While Not oFlu.AtEndOfStream
  sLigne = oFlu.ReadLine
  if not bLigne1lue then
    Msgbox "1° ligne : " & sLigne
    bLigne1lue=True 'ça c'est FAIT
  else    
    ' Récupère les autres lignes
    oFec.WriteLine (sLigne)
  end if
Loop
oFlu.close
oFec.close

[moijhd]

Et avec tout çà on peux aussi éviter de changer de fichier :
garder toujours 1

Ou alors à la fin, fichier2 devient fichier1
parce en fait, je réalise ce script avec un Timer, donc si je veux afficher les lignes suivantes, j'ai besoin qu'elleq se trouvent dans le fichier 1, et pas dans le fichier 2...