Eliminare una riga da un file txt

[erin]

Ho un problemino devo eliminare una riga da un file txt(in realtà è una OTP del sistema Banca sella dal file .ris)
Ho provato con uno script di questo tipo:

<SCRIPT language="vbscript" runat="server">

Const RisName = "L:\Mio sito\otp\42342__2005_11_67_47.ris"

Sub RimuoviOTP( OTP)
Dim Strings(10000)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(RisName, 1, FALSE)
i = 0
Do While Not a.AtEndOfStream
aLine = a.ReadLine
If aLine <> OTP Then
Strings(i) = aLine
i = i+1
End If
Loop

a.Close

Set a = fs.CreateTextFile(RisName, True)
For n = 0 To i-1
a.WriteLine( Strings(n))
Next
a.Close

Set fs = Nothing
End Sub

</script>

Ho incluso tale script nella pagina ASP caricata, io ho una variabile PAY1_OTP che contiene la riga per esteso da eliminare , ma non so dove metterla.
Qualcuno sa aiutarmi?

GRAZIE IN ANTICIPO

[br1]

<SCRIPT language="vbscript" runat="server">

--> ASP

[cavicchiandrea]

Originariamente inviato da erin
Ho un problemino devo eliminare una riga da un file txt(in realtà è una OTP del sistema Banca sella dal file .ris)
Ho provato con uno script di questo tipo:

<SCRIPT language="vbscript" runat="server">

Const RisName = "L:\Mio sito\otp\42342__2005_11_67_47.ris"

Sub RimuoviOTP( OTP)
Dim Strings(10000)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(RisName, 1, FALSE)
i = 0
Do While Not a.AtEndOfStream
aLine = a.ReadLine
If aLine <> OTP Then
Strings(i) = aLine
i = i+1
End If
Loop

a.Close

Set a = fs.CreateTextFile(RisName, True)
For n = 0 To i-1
a.WriteLine( Strings(n))
Next
a.Close

Set fs = Nothing
End Sub

</script>

Ho incluso tale script nella pagina ASP caricata, io ho una variabile PAY1_OTP che contiene la riga per esteso da eliminare , ma non so dove metterla.
Qualcuno sa aiutarmi?

GRAZIE IN ANTICIPO

Lo script postato assomiglia + aspx che a javascript difficilemnte troverai rsposte in questo forum ti conviene farti spostare.

[Roby_72]

Usa solo questo:

Sub RimuoviOTP(OTP) 
RisName = "L:\Mio sito\otp\42342__2005_11_67_47.ris" 
Dim Strings(10000) 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set a = fs.OpenTextFile(RisName, 1, FALSE) 
i = 0 
Do While Not a.AtEndOfStream 
aLine = a.ReadLine 
If aLine <> OTP Then 
Strings(i) = aLine 
i = i+1 
End If 
Loop 

a.Close 

Set a = fs.CreateTextFile(RisName, True) 
For n = 0 To i-1 
a.WriteLine( Strings(n)) 
Next 
a.Close 

Set fs = Nothing 
End Sub 

RimuoviOTP(OTP)

Roby

[erin]

Scusa Roby, inannzitutto grazie per la risposta, ma ho provato e non mi cancella la OTP che è inserita nella variabile PAY1_OTP.
Tale Variabile non la vedo citata nello script, puo' esere quello il problema?
GRAZIE

[Roby_72]

Quando richiami la sub:

call RimuoviOTP(PAY1_OTP)

Roby

[erin]

OK funziona ora funziona, grazie mille per l'aiuto
CIAO