Limitare le dimensioni di un file di testo.

[s693994]

Utilizzo questo write.asp per compilare un file di testo che si chiama guest.txt
<%
MyFile = Server.MapPath("/public")&"/guest.txt"
Response.Write (MyFile)
Set MyFileObj=Server.CreateObject("Scripting.FileSyste mObject")
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)
New_line = Request.Form("new_line")
New_line = Server.HTMLEncode(New_line)
'Adds the time and date it was posted
New_line = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)
MyOutStream.Close
Response.Redirect "http://www.gimeil.com/default.asp"
%>

E' possibile fare in modo che write.asp cancelli le righe più vecchie del file di testo (diciamo, che quando questo supera le 5 righe, l'ultima venga cancellata, in modo che non superi mai una certa dimensione le 5 righe).
Grazie!

[X_Gold*]

Originariamente inviato da s693994
Utilizzo questo write.asp per compilare un file di testo che si chiama guest.txt
<%
MyFile = Server.MapPath("/public")&"/guest.txt"
Response.Write (MyFile)
Set MyFileObj=Server.CreateObject("Scripting.FileSyste mObject")
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)
New_line = Request.Form("new_line")
New_line = Server.HTMLEncode(New_line)
'Adds the time and date it was posted
New_line = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)
MyOutStream.Close
Response.Redirect "http://www.gimeil.com/default.asp"
%>

E' possibile fare in modo che write.asp cancelli le righe più vecchie del file di testo (diciamo, che quando questo supera le 5 righe, l'ultima venga cancellata, in modo che non superi mai una certa dimensione le 5 righe).
Grazie!

<%
MyFile = Server.MapPath("/public")&"/guest.txt"
Response.Write (MyFile)
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)
do until MyOutStream.atendofstream
    arrcontenuto=arrcontenuto&","&MyOutStream.readline
loop
arrcontenuto=split(arrcontenuto,",")
Nrighe=Ubound(arrcontenuto)
if Nrighe > 5 then
  for i = Ubound(arrcontenuto)-5 to Ubound(arrcontenuto)
    MyOutStream.WriteLine(arrcontenuto(i))
  next
else
  for each Contenuto in arrcontenuto
    MyOutStream.WriteLine(Contenuto)
  next
end if
  New_line = Request.Form("new_line")
  New_line = Server.HTMLEncode(New_line)
  'Adds the time and date it was posted
  New_line = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)
MyOutStream.Close
Response.Redirect "http://www.gimeil.com/default.asp"
%>

buttata giu al volo e non testata

[s693994]

grazie della risposta!
Però mi da errore alla linea
do until MyOutStream.atendofstream

mi dice
D:\Inetpub\webs\gimeilcom\public/guest.txt
Microsoft VBScript runtime error '800a0036'

Bad file mode

/write.asp, line 6

[X_Gold*]

Originariamente inviato da s693994
grazie della risposta!
Però mi da errore alla linea
do until MyOutStream.atendofstream

mi dice
D:\Inetpub\webs\gimeilcom\public/guest.txt
Microsoft VBScript runtime error '800a0036'

Bad file mode

/write.asp, line 6

il problema era originario e non mi sono accorto mentre scrivevo...


MyFile = Server.MapPath("/public/guest.txt")

[s693994]

ho sostituito la linea, ma ancora non va....
ora mi dice:
D:\Inetpub\webs\gimeilcom\public/guest.txt
Microsoft VBScript runtime error '800a0036'

Bad file mode

/write.asp, line 6

che sia qualche particolarità del mio provider?

[X_Gold*]

Originariamente inviato da s693994
ho sostituito la linea, ma ancora non va....
ora mi dice:
D:\Inetpub\webs\gimeilcom\public/guest.txt
Microsoft VBScript runtime error '800a0036'

Bad file mode

/write.asp, line 6

che sia qualche particolarità del mio provider?

:master: ma quell'errore non dovrebbe piu' dartelo

l'errore che dice è perchè prima avevi messo
MyFile = Server.MapPath("/public")&"/guest.txt"
quindi Server.MapPath("/public") veniva tradotto in D:\Inetpub\webs\gimeilcom\public poi concatenavi /guest.txt con la barra inversa e quindi era un indirizzo incoerente, ma ora come l'ho messo io dovrebbe darti D:\Inetpub\webs\gimeilcom\public\guest.txt quindi non capisco :master:

prova cosi' :

MyFile = Server.MapPath("/public")&"\guest.txt" ma se dovesse funzionare vuol dire che gli alieni ti sono vicini :maLOL: