help modifica script

[rent]

Salve,
sto cercando di modificare uno script (in realta' piu' di uno) che
prende dei dati da un file di testo e ne crea un altro con i dati
estrapolati.

Lo riga che crea il nuovo file dovrebbe essere questa:
If oFSO.FileExists(sFile) Then
Set objFile = oFSO.CreateTextFile(WScript.Arguments.Item(1) &
"\volumi_test" & giorno & mese & Right(Year(Date),2) & ".dat")


io vorrei che il primo script crei il file volumi_test.dat e quelli
seguenti non sovrascrivano quello presente ma aggiungano i dati..


e' possibile farlo semplicemente modificando la riga che vi ho
postato?


considerate che non capisco nulla di programmazione quindi se la
spiegazione e' complicata lasciamo perdere...se non altro per non
farvi perdere tempo..


grazie
ciao
rent

[Fabrizio Gibilaro]

Post by rent
Salve,
sto cercando di modificare uno script (in realta' piu' di uno) che
prende dei dati da un file di testo e ne crea un altro con i dati
estrapolati.
If oFSO.FileExists(sFile) Then
  Set objFile = oFSO.CreateTextFile(WScript.Arguments.Item(1)  &
"\volumi_test" & giorno &  mese &  Right(Year(Date),2) & ".dat")
io vorrei che il primo script crei il file volumi_test.dat e quelli
seguenti non sovrascrivano quello presente ma aggiungano i dati..
e' possibile farlo semplicemente modificando la riga che vi ho
postato?
considerate che non capisco nulla di programmazione quindi se la
spiegazione e' complicata lasciamo perdere...se non altro per non
farvi perdere tempo..
grazie
ciao
rent

...

Ciao Rent,

Usando la funzione CreateTextFile dici a vb di ricreare da zero ogni
volta il file. Dovresti usare invece la funzione OpenTextFile, dove
puoi specificare se vuoi fare l'append dei dati.

La tua riga dovrebbe diventare:
Set objFile=objFso.OpenTextFile(WScript.Arguments.Item(1)  &
"\volumi_test" & giorno &  mese &  Right(Year(Date),2) & ".dat", 8)

La cosa importante è quel ",8" che vuol dire "forAppending"

Fabrizio

[rent]

Post by Fabrizio Gibilaro

Post by rent
Salve,
sto cercando di modificare uno script (in realta' piu' di uno) che
prende dei dati da un file di testo e ne crea un altro con i dati
estrapolati.
If oFSO.FileExists(sFile) Then
  Set objFile = oFSO.CreateTextFile(WScript.Arguments.Item(1)  &
"\volumi_test" & giorno &  mese &  Right(Year(Date),2) & ".dat")
io vorrei che il primo script crei il file volumi_test.dat e quelli
seguenti non sovrascrivano quello presente ma aggiungano i dati..
e' possibile farlo semplicemente modificando la riga che vi ho
postato?
considerate che non capisco nulla di programmazione quindi se la
spiegazione e' complicata lasciamo perdere...se non altro per non
farvi perdere tempo..
grazie
ciao
rent

Ciao Rent,
Usando la funzione CreateTextFile dici a vb di ricreare da zero ogni
volta il file. Dovresti usare invece la funzione OpenTextFile, dove
puoi specificare se vuoi fare l'append dei dati.
Set objFile=objFso.OpenTextFile(WScript.Arguments.Item(1)  &
"\volumi_test" & giorno &  mese &  Right(Year(Date),2) & ".dat", 8)
La cosa importante è quel ",8" che vuol dire "forAppending"

...

mille grazie... io immaginavo una cosa tipo, AppendTextFile.... ci ho
provato pure ma non ha funzionato, ora provo con questa modifica e
vedo se va.

grazie ancora

rent