 |
 |
 |
 |
|
|
 |
Home | Forum | Tutorials | Articoli | Tips&Tricks | Scripts | Newsletter | Autori | Store | Hosting | E-Corsi | Libri |  |
COMMUNITY -
Login
| Utenti on-line: 0 |
| Ospiti on-line: 5744 |
ASPCode.it - Store
Eliminare le righe vuote da un file
di Paolo De Nictolis
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".
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")
%>
AspIn.com
Utilità
Link
 |
Utenti connessi: 5744
|
 |
 |
|
 |
Copyright © 2001-2018 ASPCode.it
- Riproduzione vietata - v. 3.0
- Capitani Paolo - P.IVA: 03300740408
- Contact
|
 |