#398 - Rimuovere le righe vuote da un file di testo con FSO
Perchè questo script funzioni bisogna porre questo file nella cartella di esecuzione di IIS o PWS e copiare il file dal quale si vogliono eliminare le righe vuote nella stessa cartella.
Sostituire, nelle righe 16-17, 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".
<%
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")
%>Approfondimenti
Commenti
Esprimi il tuo giudizio su questo script:
Per procedere devi essere autenticato.
Per inserire un commento, devi registrarti alla nostra community.
Stampa 
Download 
