Modifica selettiva file *.txt

[gold]

Originariamente inviato da optime
k, non sapevo, segno.

[Leggero82]

Allora,
ho provato con questo codice:

<%
set sfs = server.createobject("scripting.filesystemobject")
set leg = sfs.opentextfile("conta.txt")
leg.atendofstream

'IN QUESTO CICLO CONTROLLO TUTTI I CARATTERI E PRENDO SOLO I NUMERICI
for i = 1 to len(leg.readline)
carattere=mid(leg.readline,i,1)
if isnumeric(carattere) then
numero=numero&carattere
end if
next
'FINE CICLO DI CONTROLLO

set sfs = server.createobject("scripting.filesystemobject")
set sfp = sfs.createtextfile("conta.txt")

sfp.writeline "visitatori=" & numero+1
sfp.close
%>


Ma al caricamento della pagina mi restituisce un errore in questa riga:
set leg = sfs.opentextfile("conta.txt")

"Microsoft VBScript runtime error '800a0035'
File not found"

come se il file conta.txt non esistesse ma in effetti c'è.

[gold]

prova con server.mapphat("conta.txt")

[Leggero82]

oh cavolo che errore


Microsoft VBScript runtime error '800a01a8'
Object required: '[string: "\\TEKKAMAN3\wwwroot$"]'
/index.asp, line 3



il codice che ho inserito è:

<%
set sfs = server.createobject("scripting.filesystemobject")
set leg = server.mappath("conta.txt")
leg.atendofstream
...

[gold]

percorso=server.mappath("conta.txt")
set leg = sfs.opentextfile(percorso)

[Leggero82]

forse un passo avanti

ho inserito:

<%
set sfs = server.createobject("scripting.filesystemobject")
set leg = sfs.opentextfile(server.mappath("conta.txt"))
leg.atendofstream

e settato i permessi in lettura e scrittura sul server per il file conta.txt

ora l'errore che mi viene restituito è

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'leg.atendofstream'
/index.asp, line 4

:master:

[gold]

Originariamente inviato da Leggero82
forse un passo avanti

ho inserito:

<%
set sfs = server.createobject("scripting.filesystemobject")
set leg = sfs.opentextfile(server.mappath("conta.txt"))
leg.atendofstream

e settato i permessi in lettura e scrittura sul server per il file conta.txt

ora l'errore che mi viene restituito è

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'leg.atendofstream'
/index.asp, line 4

:master:

prova con leg.readline al posto di leg.atendofstream

[Leggero82]

altro passo avanti


ora mi dice
"Input past end of file"

su questa riga:
for i=1 to len(leg.readline)


p.s.: dovrò venire in sardegna a pagarti una birra

[gold]

ma nel file di testo gli hai gia scritto visitatori=0 vero ?

se no chiaramente non legge un valore di partenza

[Leggero82]

sì certo, ho provato sia con
visitatori=0
che con
visitatori=400