aggiornare file di testo

[dydale]

Dovrei aggiornare un file di testo (aggiungendo una nuova riga), da una pagina asp.
Ho provato a cercare, ma ho trovato solo per creare un nuovo file.
Il codice che ho usato è:

<% 
Dim objFSO, objTextFile 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("file.txt")) 

objTextFile.WriteLine "Riga 1" 

objTextFile.Close 
Set objTextFile = Nothing 
Set objFSO = Nothing 
%>

Cosa devo cambiare?

Grazie

[ciucciatiilcalzino]

con questo script va a scivere nel file indicato

a te conviene eseguire prima la lettura del vecchio file
che metti in una variabile

e poi semplicemente concateni a questa variabile il tuo testo

testoNuovo= testoOld & "Riga 1"

dopo di che usi lo script tuo per riscrivere il file

objTextFile.WriteLine testoNuovo

[optime]

apri il file in append e scrivi la nuova riga

[dydale]

Prima di tutto grazie per le risposte, la soluzione più semplice mi sembra quella di optime (ma non ci capisco nulla, è solo un'impressione), ma come faccio ad aprire il file in append?

[santino83]

ta daaaaaa!

Metodo OpenTextFile
Apre un file specificato e restituisce un oggetto TextStream che è possibile utilizzare operazioni di lettura, scrittura e aggiunta nei file.

oggetto.OpenTextFile(nomefile[, modoIO[, crea[, formato]]])

Argomenti
oggetto

Obbligatorio. Nome di un oggetto FileSystemObject.

nomefile

Obbligatorio. Espressione stringa che identifica il file da aprire.

modoIO

Facoltativo. Indica la modalità di input/output e può corrispondere a una delle tre costanti ForReading, ForWriting e ForAppending.

crea

Facoltativo. Valore booleano che indica se è possibile creare un nuovo file se il nomefile specificato non esiste. Se viene creato un nuovo file, il valore sarà True; se non viene creato, sarà False. Il valore predefinito è False.

formato

Facoltativo. Uno dei tre valori Tristate utilizzati per indicare il formato del file aperto. Se viene omesso, il file verrà aperto in formato ASCII.

Impostazioni
Le possibili impostazioni dell'argomento modoIO sono:

Costante Valore Descrizione
ForReading 1 Apre un file in sola lettura. Non è possibile scrivere nel file.
ForWriting 2 Apre un file in sola scrittura, ovvero non è possibile leggere il file.
ForAppending 8 Apre un file e scrive alla fine del file.


Le possibili impostazioni dell'argomento formato sono:

Costante Valore Descrizione
TristateUseDefault -2 Apre il file utilizzando l'impostazione predefinita di sistema.
TristateTrue -1 Apre il file in formato Unicode.
TristateFalse 0 Apre il file in formato ASCII.


Osservazioni
Nel codice seguente viene illustrato l'utilizzo del metodo OpenTextFile per aprire un file per la scrittura:

Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\fileprova.txt", ForWriting,True)
f.Write "Salve gente!"
f.Close
End Sub

[dydale]

Grazie. Domani provo.

[dydale]

Non mi funziona. Ho copiato il codice (quello alla fine della spiegazione, cambiando il percorso del file), non mi dà messaggi d'errore ma non scrive nulla nel file. Cosa sto sbagliando?

[optime]

spetta un momento che prenda bene la carbonella, poi con la mia sfera di cristallo di boemia vengo a vedere quello che hai scritto nel tuo script, così faccio un po' di debug.

















dai, posta un po' di codice.....

[dydale]

Ho provato questo codice:

<%
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(ServerMapPath("file.txt"), ForWriting,True)
f.Write "Salve gente!"
f.Close
End Sub
%>

ma non fa nulla.

[optime]

quella è tutta la pagina? c'è una call a quella sub da qualche parte?