Editare file txt dal web

Stanza237 · 28-10-2003, 22:20

e' un po' laborioso, ma non particolarmente difficile:
in una pagina metti il menu
<form action="writeagg.asp" method="post" name="lapsus" id="lapsus">
<table width="80%" align="center">
<tr>
<td valign="top"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Seleziona
il file da aggiornare</font> </td>
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<select name="txtedit" class="formtxt" id="txtedit">
<option selected>Seleziona il file</option>
<option value="appuntamenti.txt">Appuntamenti</option>
<option value="attivita.txt">Attività</option>
<option value="home.txt">Home</option>
<option value="chisiamo.txt">Chi Siamo</option>
</select></td></tr></table>

e nel file della action del form (in questo caso writeagg.asp)
invece di preimpostare un file sul quale intervenire metti:

txtmody = request.form("txtedit")

Set objTextFile = objFSO.CreateTextFile(Server.MapPath(txtmody))

Stanza237 · 28-10-2003, 22:34

dimenticavo...
un dono per te:

**eels** · 29-10-2003, 12:06

Grazie per tutto

Giusto per capire: nel primo file inserisco tutti i link dei file txt, ma il secondo passaggio non mi è chiaro perchè mettere mano al precedente file che mi hai mandato per me è ostico

Stanza237 · 29-10-2003, 15:32

Dimmi i nomi dei file e la parte che ti serve...
Cmq ricorda che devi avere ASP attivo nel tuo server...

**eels** · 29-10-2003, 15:37

I nomi dei file non li ho ancora con certezza, ma quelli li posso inserire io...
asp è attivo di questo ne sono certo, come anche tutti i permesse

merci

P.

Stanza237 · 29-10-2003, 15:40

...intendevo i file che ti ho mandato e che ti generano confusione...

**eels** · 29-10-2003, 15:49

ehm sorry, non avevo compreso...

writenews.asp soprattutto

Stanza237 · 29-10-2003, 23:23

allora:
la prima parte
strCorpo1 = request.form("corpo1")
strCorpo2 = request.form("corpo2")
riceve dal form della pagina precedente le modifiche

poi
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("newsfin.txt" ))
apre il file newsfin.txt [qui dovresti mettere il coice che ho precedentemente postato:
txtmody = request.form("txtedit")

Set objTextFile = objFSO.CreateTextFile(Server.MapPath(txtmody))]

in fine scrive all'interno del file le modifiche
objTextFile.WriteLine "num=3&titolo1=" & strTit1 & "&testo1=" & strCorpo1 & "&titolo2=" & strTit2 & "&testo2=" & strCorpo2 & "&titolo3=" & strTit3 & "&testo3=" & strCorpo3
questa riga la puoi modificare come vuoi affinche produca il file che ti serve: ad esempio se ti basta un
testo=Questo è il testo che mi serve
dovrai modificare così:
objTextFile.WriteLine "testo=" & strTit1

spero di essere stato chiaro

**eels** · 30-10-2003, 15:06

Ho provato a modificare il secondo file per avere solo un campo di testo, senza titolo ed è uscito questo:

<%
dim strCorpo, txtmody, objFSO, objTextFile

strCorpo1 = request.form("corpo1")

' scrivimerda = Response.Write(txtmody)
'Creazione dell'istanza FileSystem
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Apertura del file di testo
txtmody = request.form("txtedit")

Set objTextFile = objFSO.CreateTextFile(Server.MapPath(txtmody))

'Scrivo la prima riga di codice
objTextFile.WriteLine "num=3&titolo1=" & strTit1 & "&testo1=" & strCorpo1 & "&titolo2=" & strTit2 & "&testo2=" & strCorpo2 & "&titolo3=" & strTit3 & "&testo3=" & strCorpo3

'Chiudo il file e i vari oggetti/istanze
objTextFile.WriteLine "output=" & strCorpo1
Set objTextFile = Nothing
Set objFSO = Nothing
'Response.Redirect("eseguito.asp")%>
<title>Write</title>

<body text="#666666" link="#CCCCCC" vlink="#CCCCCC" alink="#3399FF">
<p align="center"><font size="3" face="Verdana, Arial, Helvetica, sans-serif">Visualizza
il Testo </font></p>
<p align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Se
corretto clicca su OK, altrimenti Torna alle modifiche</font></p>
<table width="60%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td nowrap><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Testo:</font></td>
<td width="100%"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Response.Write(strCorpo1)
%>
</font></td>
</tr>
</table>
<form name="form1" method="post" action="">
<div align="center">
<input type="button" name="Button" onclick="javascript:location.href('eseguito.asp')" value="OK">
<input type="button" name="Button" onclick="javascript:history.back()" value="Torna">
</div>
</form>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></p>

però non funzia bene

burzum-war · 30-10-2003, 17:40

ma tutto questo in flash nn si può?

Discussione: Editare file txt dal web

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio