The initial setting for blank lines is set at 1, so we don’t upset any paragraph breaks. ' The number of blank lines to include in the new file ' The text string to write the included lines to We’ll start by defining several variables and give them initial values. Now, we can read each line in the file but first we need to consider the code we need to discard the blank lines. The code for accessing the file system is the sort of procedure you might want to save in a code library for future reference.įilePath = ActiveWorkbook.path & "filesblanks.txt" Then, we’ll write the text string back into a new file.įirst, we’ll access the file system object (FSO) and open the file, which we’ve named “blanks.txt”. The logic of the code involves reading each line of the file, and saving the line into a text string if it meets our criteria.
This article will show you how to remove a set number of blank lines from a text file using some common sense VBA coding.
Part of the problem is that you don’t want to remove every blank line otherwise it might upset the formatting of the document. If you’ve ever worked with text files, you’ll know how frustrating it can be to remove empty lines.
0 kommentar(er)
