Next we have this block of code: Do Until objFile.AtEndOfStream We then use these two lines of code to create an instance of the Scripting.FileSystemObject and then open the file C:\Scripts\Test.txt for reading: Set objFSO = CreateObject(“Scripting.FileSystemObject”) We start off by defining a pair of constants named ForReading and ForWriting we’ll use these constants to specify the appropriate mode when opening our text file. Now let’s walk through the script step-by-step.
The net result: we end up with a file that has no blank lines in it. (One of the vagaries of working with text files: you can read from a file or you can write to a file, but you can’t do both at the same time.) We then write the value of strNewContents to the file. When we’re done reading the file we close it, then immediately reopen it for writing. If it is, we discard it if it’s not, we add that line (along with any other non-blank lines) to a variable named strNewContents.
As we read each line we check to see if the line is blank. Because we can’t directly edit a text file we have to do this instead: First, we read in the text file line-by-line. As you probably know, manipulating text files often involves coming up with work-arounds. Let’s talk about the basic idea before we get into the nitty-gritty details of how the script works. Set objFile = objFSO.OpenTextFile(“C:\Scripts\Test.txt”, ForWriting) StrNewContents = strNewContents & strLine & vbCrLf Set objFile = objFSO.OpenTextFile(“C:\Scripts\Test.txt”, ForReading) Set objFSO = CreateObject(“Scripting.FileSystemObject”) What you’d like is for the text file to look like this: Line 1Ĭan you do that using a script? Of course you can: Const ForReading = 1 We’re assuming that you have a text file that looks something like this: Line 1 Not bad for a dead technology that nobody uses, huh? Yet sometimes you will need to do this manually or by hand.What’s the moral to all this? It’s now 2006, and the first question being tackled in the Hey, Scripting Guy! column is one dealing with text files.
Most of the programs can handle this automatically. Often in work we need to deal with numbering and bullet points. Notepad++ regular expression to replace numbering with bullet points You can this simple regular expression in order to update whole document (with hundreds of lines) and save your time. In this example you can see how to quickly prepare texts for Linux program Fortunes. Notepad++ regex add character on empty lines
0 kommentar(er)
