Eliminare le righe vuote da un file di testo.

Questo script legge le righe del file prova.txt e se ne trova una vuota la elimina. Così scrive tutte le righe, tranne quelle vuote nel file prova2.txt. Createvi nella stessa cartella dove risiede la pagina asp due files, uno chiamatelo prova.asp e scriveteci qualcosa con delle righe vuote, poi create un file di nome prova2.txt senza inserirvi del testo. Una volta lanciato lo script vedrete che dentro il file prova2.txt ci saranno solo le righe piene del file prova.txt.

<%

Dim objFileToRead, objFileToWrite, objFSO, strPathRead, strPathWrite
strPathRead = Server.MapPath("prova.txt")
strPathWrite = Server.MapPath("prova2.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("Larovo finito!")

%>

programmazione, incidenti, scarica, cap, filmato, lamborghini, pele, freeware, van basten, download, shumacher, macchine sportive, del piero, animali, immagini, ferrari, bugatti, programmare, sorpassi, free