codice

[GiacoXp]

avrei bisogno di un aiutino ho trovato questo codice

ù

<%
Dim fsoMyFile
Dim tsTextStream
Dim sTesto

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/miofile.txt"), 1)


'Legge tutto il contenuto di un file.
sTesto = tsTextStream.ReadAll

'Chiude il file.
tsTextStream.Close
%>

xro io inquanto principiante non capisco come importare dal sTesto al mio textbox potete aiutarmi ?

[varrilaro]

sul tuo text boc metti

<form>
ecc. ecc.
<textarea><%= sTesto%></textarea>
</form>

dove sTesto è la variabile asp in cui lo script inserisce il contenuto del file

[GiacoXp]

ok fatto ora ho un'altra cosa

come faccio a fargli fare l'input
cliccando un tasto di salvare nel file txt il contenuto
ho trovato questo script

<form action=ìì>
<textarea name="sTesto" rows="5" cols="40"><%= sTesto%>

</textarea>
</form>


<%
Dim fsoMyFile
Dim tsTextStream
Dim sTesto
'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in aggiunta dati (8), se non esiste lo crea (True).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/miofile.txt"), 8, True)

'Scrive una riga.
tsTextStream.Write (sTesto)



'Chiude il file.
tsTextStream.Close
%>

[varrilaro]

<form action=salva.asp method="post">
<textarea name="sTesto" rows="5" cols="40"><%= sTesto%>
</textarea>
<input type="submit" value="salva" name="salva">
</form>

pagina salva.asp

<%
Dim fsoMyFile
Dim tsTextStream
Dim sTesto
sTesto = request.form("sTesto")
'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in aggiunta dati (8), se non esiste lo crea (True).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/miofile.txt"), 8, True)

'Scrive una riga.
tsTextStream.Write (sTesto)



'Chiude il file.
tsTextStream.Close
%>

[GiacoXp]

scusa ma non ho capito ?

cosa devo fare con lo script che mi hai incollato

[GiacoXp]

ok ho capito grazie cmq

[GiacoXp]

come posso fare a fare in modo che nella pagina scrivi dove c'è il codice


<form action=salva.asp method="post">
<textarea name="sTesto" rows="5" cols="40"><%= sTesto%>
</textarea>
<input type="submit" value="salva" name="salva">
</form>

mi visualizzi il contenuto attuale del file txt e me lo faccia modificare ?
e poi quando salvo sostituisce tutto il contenuto del file txt come lo ho modificato ?

[varrilaro]

pagina scrivi.asp (legge il contenuto del file e lo inserisce nella textarea dove si può modificare)

<%
Dim fsoMyFile
Dim tsTextStream
Dim sTesto

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/miofile.txt"), 1)


'Legge tutto il contenuto di un file.
sTesto = tsTextStream.ReadAll

'Chiude il file.
tsTextStream.Close
%>
<form action=salva.asp method="post">
<textarea name="sTesto" rows="5" cols="40"><%= sTesto%>
</textarea>
<input type="submit" value="salva" name="salva">
</form>

pagina salva.asp (riceve i dati inviati dalla pagina scrivi.asp e li salva sul file)

<%
Dim fsoMyFile
Dim tsTextStream
Dim sTesto
sTesto = request.form("sTesto")
'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in aggiunta dati (8), se non esiste lo crea (True).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/miofile.txt"), 8, True)

'Scrive una riga.
tsTextStream.Write (sTesto)



'Chiude il file.
tsTextStream.Close

Response.Write ("Testo Modificato Con Successo")
%>