codice:
<html>
<head>
</head>
<body>
<script language="vbscript">
option explicit
dim actualpath, nome_file_inp, nome_file_out, fso, fdi, fdo, riga, output
actualpath = replace(left(replace(document.url, "file://", ""), instrrev(replace(document.url, "file://", ""), "\")), "%20", " ")
nome_file_inp = actualpath & "dati.txt"
nome_file_out = actualpath & "dati2.txt"
set fso = createobject("scripting.filesystemobject")
set fdi = fso.opentextfile(nome_file_inp, 1, false)
set fdo = fso.createtextfile(nome_file_out,true)
do while fdi.atendofstream <> true
riga = fdi.readline
if mid(riga,27,1) = 1 then
output = "e=e+" & cstr(int(mid(riga,35,2)))
fdo.writeline output
output = "e=e+" & cstr(int(mid(riga,38,2)))
fdo.writeline output
end if
if mid(riga,27,1) = 2 then
output = "d=d+" & cstr(int(mid(riga,35,2)))
fdo.writeline output
output = "d=d+" & cstr(int(mid(riga,38,2)))
fdo.writeline output
end if
if mid(riga,27,1) = 3 then
output = "c=c+" & cstr(int(mid(riga,35,2)))
fdo.writeline output
output = "c=c+" & cstr(int(mid(riga,38,2)))
fdo.writeline output
end if
if mid(riga,27,1) = 4 then
output = "b=b+" & cstr(int(mid(riga,35,2)))
fdo.writeline output
output = "b=b+" & cstr(int(mid(riga,38,2)))
fdo.writeline output
end if
if mid(riga,27,1) = 5 then
output = "a=a+" & cstr(int(mid(riga,35,2)))
fdo.writeline output
output = "a=a+" & cstr(int(mid(riga,38,2)))
fdo.writeline output
end if
loop
fdi.close
fdo.close
msgbox "fatto"
</script>
</body>
</html>