Fichier : lire, écrire, modifier

Version imprimable

25/03/2007, 10h13
moijhd

Fichier : lire, écrire, modifier

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 !
25/03/2007, 10h54
SfJ5Rpw8
ben voir la :faq: ...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
;)

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:

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....

25/03/2007, 11h03
SfJ5Rpw8

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

tu peu écrire les autres lignes dans un nouveau fichier texte...
25/03/2007, 11h03
moijhd

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

Citation:

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:

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 ?

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

Par exemple:

Code:

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

25/03/2007, 11h19
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...:?

Pourquoi cela ne fonctionne t il pas ? :

Code:

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
 
 
Sub script_scTimer_Timer()
 
tableau = array(100)
 
Dim OFS
Dim sLigne 
Const ForReading = 1
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFlu = oFSO.OpenTextFile("c:/fichier1.txt", ForReading) 
 
i=0
 
Do While Not oFlu.AtEndOfStream
 
	sLigne = oFlu.ReadLine
 
	tableau(i)=sLigne
	i=i+1
 
Loop
 
oFlu.close
 
End Sub

25/03/2007, 18h36
SfJ5Rpw8

Citation:

Envoyé par moijhd

Pourquoi cela ne fonctionne t il pas ? :

:koi: ? c:\ et pas c:/ peu-être....
25/03/2007, 19h27
moijhd

Non, c'est au niveau du tableu que ça me met l'erreur, j'ai l'impression de ne pas pouvoir ajouter tableau(i) pour i=1

Code:

Error Number: 9 Description: Indice en dehors de la plage
25/03/2007, 19h56
AlainTech

Si je ne me trompe, en écrivant

Code:

tableau = array(100)

tu crées un tableau n'ayant qu'une valeur (100) dans son index 0.
Il est donc logique que l'index 1 soit en dehors de la plage.
25/03/2007, 19h58
moijhd
C'est ce dont je me rend compte à l'instant : j'allais le marquer lol !
Je vais essayer donc :
Code:

1 2 tableau = array()
puisque le nombre d'éléments sera variable
25/03/2007, 20h05
AlainTech

Tu peux essayer un

Code:

Dim Tableau(100)

Ca t'évitera de devoir redimensionner.
25/03/2007, 21h03
moijhd

Code:

Dim Tableau(100)

Cela me crée un tableau de 100 éléments vides ?

Voila finalement mon code qui supprime la première ligne d'un fichier texte... :

Code:

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
 
 
tableau = array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
 
' ou Dim Tableau(100) ??
 
i=0
 
Dim OFS, oLigne
Dim bLigne1lue 
Dim sLigne 
Const ForReading = 1, ForWriting = 2 
 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFlu = oFSO.OpenTextFile("c:/fichier1.txt", ForReading) 
 
bLigne1lue = False
 
Do While Not oFlu.AtEndOfStream
 
  sLigne = oFlu.ReadLine
 
If not sLigne="0" then
 
  if not bLigne1lue then
 
    envoie_message(sLigne)
    bLigne1lue=True
 
  else    
 
    ' Récupère les autres lignes
	tableau(i)=sLigne
	i=i+1
 
  end if
Else
tableau(0)=""
End If
 
Loop
 
oFlu.close
 
Set oFec = oFSO.OpenTextFile("c:/fichier1.txt", ForWriting,true)
 
for a=0 to i
oFec.WriteLine (tableau(a))
next
 
 
 
oFec.close

Comment l'améliorer ? ^^