1
Abra el Explorador de Windows y navegue a la carpeta que contiene un archivo con las líneas en blanco . Anote el nombre del archivo y la carpeta. Por ejemplo, si la ruta de acceso es " C: \\ myFiles \\ test1.txt " , recuerda que la ruta del archivo
2
Abrir Bloc de notas y pegue el siguiente texto en un nuevo documento : .
< p > ' Líneas 1-3: Definir los objetos del sistema
CONST ForReading = 1
CONST ForWriting = 2
Dim objFSObject , strLineBuffer
' Lines 4 -5 : archivo de entrada Asignar a la variable
Dim strInputFile , strCurrentFile
strInputFile = " FILE_WITH_BLANK_LINES "
' Líneas 6-7: Configuración del archivo objeto del sistema y leer el archivo de entrada
Set objFSOObject = CreateObject ( " Scripting.FileSystemObject " )
Set objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForReading )
' Loop Processing - tienda las líneas no están en blanco en búfer temporal
¿ Hasta objCurrentFile.AtEndOfStream
tempLine = objCurrentFile.Readline
tempLine = Trim ( tempLIne )
Si Len ( tempLine ) > 0 Entonces
strLineBuffer = strLineBuffer y tempLine & "" & vbCrLf
End If
Loop
"Escribe buffer para el archivo de entrada
objCurrentFile.Close
Set objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForWriting )
objCurrentFile.Write strLineBuffer
Reemplazar " FILE_WITH_BLANK_LINES " con el nombre de ruta completo del archivo que tiene líneas en blanco .
3
Haga clic en " archivo" y seleccione " Guardar ". La opción "Guardar como " se abrirá. Escriba " Remove_Blank_Lines.vbs " en el cuadro de texto "Nombre" y haga clic en " Guardar ".
4
Abra el Explorador de Windows y navegue hasta el archivo . Haga doble clic en él. La secuencia de comandos ejecutar los comandos para eliminar las líneas en blanco del archivo. Abra el archivo para verificar que no existan líneas en blanco .