Aprire Esplora risorse e passare alla cartella che contiene un file con righe vuote . Prendere nota del nome del file e la sua cartella . Ad esempio , se il percorso del file è " C : \\ myfiles \\ test1.txt " , ricorda che il percorso del file
2
Aprire il blocco note e incollare il seguente testo in un nuovo documento : .
' Linee 1-3 : definire gli oggetti di sistema
COSTANTE ForReading = 1
COSTANTE ForWriting = 2
Dim objFSObject , strLineBuffer
' Linee 4 -5 : file di input Assegna alla variabile
Dim strInputFile , strCurrentFile
strInputFile = " FILE_WITH_BLANK_LINES "
' Linee 6-7 : Impostazione del file oggetto di sistema e leggere il file di input
objFSOObject = CreateObject ( " Scripting.FileSystemObject " ) per
objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForReading ) per
'Elaborazione loop - negozio di righe non vuote in buffer temporaneo
Do Until objCurrentFile.AtEndOfStream
Templine = objCurrentFile.Readline
Templine = Trim ( Templine ) per
If Len ( Templine ) > 0 poi
strLineBuffer = strLineBuffer & Templine & "" & vbCrLf
End If loop
' Scrivi buffer per file di input
objCurrentFile.Close
objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForWriting ) per
objCurrentFile.Write strLineBuffer
sostituire " FILE_WITH_BLANK_LINES " con il percorso completo del file che ha righe vuote .
3
cliccare su " File" e selezionare "Salva ". Il " Salva con nome" si apre la finestra . Tipo " Remove_Blank_Lines.vbs " nella casella di testo "Nome" e premi "Salva ".
4
Aprire Esplora risorse e passare a quel file . Fare doppio clic su di esso. Lo script emetterà i comandi per rimuovere le righe vuote dal file . Aprire il file per verificare che non vi siano righe vuote .
software © www.354353.com