Dall'archivio script > Classic ASP

Rimuovere le righe vuote da un file di testo con FSO

di Paolo De NictolisPaolo De Nictolis, in Classic ASP, UserScript, Files,

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")

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi