asp - asp.net - aspcode.it

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 11138
ASPCode.it - Store

  > > Tips

Eliminare le righe vuote da un file
di Paolo De Nictolis

Data di pubblicazione: 29/09/2002        Voto della community: 0,00 (Votanti: 0)

La script che segue Ŕ una comoda utility che elimina le righe vuote da un file sul server
Porre questo file nella cartella di esecuzione di IIS o PWS, e porre il file dal quale si vogliono eliminare le righe vuote nella stessa cartella. Sostituire, 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".

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




Utenti connessi: 11138