Sostituisci, nelle righe di assegnazione delle variabili strPathRead e strPathWrite, il nome del file dal quale si vogliono eliminare le righe vuote ad "alpha.txt", ed il nome che si vuol dare al file "risultato" a "beta.txt".
codice:
<%
Dim objFileToRead, objFileToWrite, objFSO, strPathRead, strPathWrite
strPathRead = Server.MapPath("alpha.txt")
strPathWrite = Server.MapPath("beta.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFileToRead = objFSO.OpenTextFile(strPathRead, 1)
Set objFileToWrite = objFSO.OpenTextFile(strPathWrite, 2, True)
Dim strTemp
Do While Not objFileToRead.AtEndOfStream
strTemp = objFileToRead.ReadLine
If strTemp <> "" Then
objFileToWrite.WriteLine(strTemp)
End If
Loop
objFileToRead.Close
objFileToWrite.Close
Set objFileToRead = Nothing
Set objFileToWrite = Nothing
Set objFSO = Nothing
Response.Write("finito")
%>