Attribuer la valeur d'une variable à un fichier txt,VBScript

Version imprimable

12/02/2008, 08h55
MartinezGarcia

Attribuer la valeur d'une variable à un fichier txt,VBScript

Bonjour !
J'ai un petit prob....
Je n'arrive pas à remplacer la valeur contenue dans un fichier txt par la valeur d'une de mes variable "cpt".

Voici le code :

function GetFile (FileName)
If FileName<>"" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemObject")
on error resume Next
Set FileStream = FS.OpenTextFile(FileName)
GetFile = FileStream.ReadAll
End If
End Function
function GetExtension (File)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetExtention = fso.GetExtensionName(File)
end function

'____________________________________________

Dim fso, f, f1, sf, fc, file, nomfichier, cpt, oFso, fo
Const ForReading = 1, ForWriting = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("M:\VBS\test")
Set fc = f.Files

Set f = fso.GetFolder(f)
Set fc = f.Files

Set oFso = CreateObject("Scripting.FileSystemObject")
Set fo = oFso.OpenTextFile("M:\VBS\cpt.txt", ForReading)
while Not fo.AtEndOfStream
wscript.echo fo.ReadLine
cpt= fo.ReadLine
Wend

For Each f2 in fc
file = f2
'lis un fichier txt
FileContents = GetFile(file)
if Len(month(now())) = 1 then
mois = "0" & month ((now()))
'wscript.echo "le jour du mois est inférieur à 10" 'test
else
mois = month((now()))
End if

datejour = cpt & "_" &year(now()) & mois & day(now()) & f2.name
f2.name = datejour
cpt = cpt+1
Next
wscript.echo "Terminé" ' test
wscript.echo cpt 'test

'fo.ReadLine = cpt :( !!!! ici est le problème je veux mettre la valeur de mon compteur dans le chiffre qui est dans le fichier txt
fo.Close

Merci d'avance :D
a++ (le ++ ne correspond pas à une incrémentation !! :mouarf: )
12/02/2008, 10h04
ced600

Citation:

Code:

'fo.ReadLine = cpt !!!! ici est le problème je veux mettre la valeur de mon compteur dans le chiffre qui est dans le fichier txt

Là c'est avant tout un problème de logique.
Lis ta ligne, traduis là en français, poste ce que tu as traduit, et dis moi si cela te parais logique.

Après avoir fait cela je pourrais t'aider, et seulement après.

Pendant qu'on y est, dis moi ce que tu penses qu'est FileSystemObject et ce qu'est ReadLine.

As tu lu une doc sur FileSystemObject ?

Compris Chef

Salut !
Tout d'abord merci...
J'ai résolu mon problème seul. :yaisse2:
Mon pti bout de code fonctionne mais j'imagine que sa doit être un peut le désordre !

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
function GetFile (FileName)
  If FileName<>"" Then
        Dim FS, FileStream
        Set FS = CreateObject("Scripting.FileSystemObject")
        on error resume Next
        Set FileStream = FS.OpenTextFile(FileName)
        GetFile = FileStream.ReadAll
  End If
        End Function
function GetExtension (File)
        Dim fso
        Set fso = CreateObject("Scripting.FileSystemObject")
        GetExtention = fso.GetExtensionName(File)
end function
 
'____________________________________________
 
 
 
Dim fso, f, f1, sf, fc, file, nomfichier, cpt, oFso, fo,AncienCpt, diffCpt
Const ForReading = 1, ForWriting = 2
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("M:\VBS\test")
Set fc = f.Files
 
Set  f = fso.GetFolder(f)
Set fc = f.Files
 
 
        Set oFso = CreateObject("Scripting.FileSystemObject")
        Set fo = oFso.OpenTextFile("M:\VBS\cpt.txt", ForReading)
        while Not fo.AtEndOfStream
                wscript.echo fo.ReadLine
                cpt= fo.ReadLine
                AncienCpt = cpt
                wscript.echo cpt ' affichage du cpt avant incrémentation
        Wend
           fo.Close ' je ferme le fichier et le reouvre en-bas
 
For Each f2 in fc
                file = f2
                'lis un fichier txt
                FileContents = GetFile(file)
        if Len(month(now())) = 1 then
                mois = "0" & month ((now()))
                'wscript.echo "le jour du mois est inférieur à 10"
        else
                mois = month((now()))
        End if
 
        datejour = cpt & "_" &year(now()) & mois & day(now()) & f2.name
        f2.name = datejour
        cpt = cpt+1
Next
   wscript.echo "Terminé"
   diffCpt = cpt - AncienCpt
   wscript.echo "la compteur a été incrémenté de : " & diffCpt & " points"
   wscript.echo "Il vaut actuellement : " & cpt & " points"
   '-------------------------------------------------------------
       'déclaration file system object
Dim x
 
'instanciation
Set x = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt =  x.createTextFile("M:\VBS\cpt.txt",true) 'true=ecrase
 
Ftxt.writeline ("Le compteur est à :")
Ftxt.writeline (cpt)
Ftxt.Close
 
   ' FIN
   ' le fichier texte attaché et le "cpt.txt"
'_________________________________________________________________

Merci
a+

12/02/2008, 10h18
ced600

C'est mieux d'utiliser le writeline en effet !!!!

Readline ne fait que lire.

Mais j'ai quand même l'impression qu'il te manque des bases, tu lires la FAQ VBS, cela t'aiderais je pense.
12/02/2008, 10h35
MartinezGarcia

Oui tu as raison !
merci
a+