{"id":65393,"date":"2007-03-03T01:08:00","date_gmt":"2007-03-03T01:08:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2007\/03\/03\/how-can-i-modify-a-text-file-and-then-extract-selected-lines-from-the-modified-contents\/"},"modified":"2007-03-03T01:08:00","modified_gmt":"2007-03-03T01:08:00","slug":"how-can-i-modify-a-text-file-and-then-extract-selected-lines-from-the-modified-contents","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-modify-a-text-file-and-then-extract-selected-lines-from-the-modified-contents\/","title":{"rendered":"How Can I Modify a Text File and Then Extract Selected Lines From the Modified Contents?"},"content":{"rendered":"

\"Hey, <\/H2>\n

Hey, Scripting Guy! How can I write a script that modifies the contents of a text file and then copies specified lines from the modified contents to a new file?

— EH<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, EH. There\u2019s no way to do that. Now go away and leave us alone.<\/P>\n

Wait, sorry; we didn\u2019t mean it. As it turns out, the Scripting Guy who writes this column is in a terrible mood this morning. Admittedly, he\u2019s in a terrible mood pretty much every<\/I> morning, but at least today he has good reason to be grumpy. He\u2019s writing this column on March 1, and when he awoke this morning his house and everything around it was covered with a good two inches of snow. Snow<\/I>, mind you, and on March 1st<\/SUP>! The Scripting Son has already started high school baseball practice and there are two inches of snow on the ground! The Scripting Guy who writes this column fully intends to sue someone over this. He just has to figure out who<\/I> he can sue over this.<\/P>\n

And yes, we know: people in, say, New York, who recently dealt with several feet<\/I> of snow, don\u2019t feel too sorry for Seattleites who have to deal with a few piddling inches of snow, snow that\u2019s already beginning to melt even as we speak. But that\u2019s OK. After all, we don\u2019t need anyone\u2019s pity; we have more than enough self-pity to go around. In the past few months we\u2019ve had ice storms; power failures (leaving the Scripting Guy who writes this column without electricity for 6 long, cold, and very dark days); more ice storms; and now snow on March 1st<\/SUP>. What did we ever do to deserve all that<\/I>?<\/P>\n

OK, we can\u2019t argue with you there. But surely the entire Seattle area shouldn\u2019t have to pay for the sins of one Scripting Guy.<\/P>\n

Oh, well. At any rate, we apologize for starting this column out on such a rude note. Tell you what, EH: is there some way we can make this up to you? What\u2019s that? Show you how to write a script that modifies the contents of a text file and then copies specified lines from the modified contents to a new file? Hmmm; we never would of have thought of that. OK, EH; here you go:<\/P>

Const ForReading = 1<\/p>\n
Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nSet objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForReading)<\/p>\n
strContents = objFile.ReadAll\nobjFile.Close<\/p>\n
strContents = Replace(strContents, “~”, “~” & vbCrLf)<\/p>\n
arrLines =Split(strContents, vbCrLf)<\/p>\n
For Each strLine in arrLines\n    If Left(strLine, 2) = “N9” or Left(strLine, 2) = “B4” Then\n        strNewFile = strNewFile & strLine & vbCrLf\n    End If\nNext<\/p>\n
Set objFile = objFSO.CreateTextFile(“C:\\Scripts\\Test2.txt”)\nobjFile.Write strNewFile\nobjFile.Close\n<\/PRE>\n
And now can we explain how the script works? How in the world are we<\/I> supposed to know how the script works?!? Now go away and leave us alone.<\/P>\n
Sorry; guess we aren\u2019t quite back to our usual jolly and carefree selves here. Sure, we can explain how this script works. As you can see, we start off by creating a constant named ForReading and setting the value to 1; we\u2019ll use this constant when we open our text file. In fact, we\u2019ll use this constant in the following block of code, code that creates an instance of the Scripting.FileSystemObject<\/B> and then uses the OpenTextFile<\/B> method to open the file C:\\Scripts\\Test.txt:<\/P>
Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nSet objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForReading)\n<\/PRE>\n
As you noted in your email, EH, you have a crazy text file that looks something like this, with everything on one big long line:<\/P>
*070219*1347*U*00401*000000852*0*P*>~GS*QO*CMACGM*USALTLANP*20070219*1347*85\n2*X*004010~ST*315*0001~B4***CT*20070219*0840*1703*CAXU*983290*L*4510~N9*BM*SZ2\n711711~N9*BN*SHZ438713~N9*SN*C4025491~Q2*9227027*****166***PX311E***L*CSCL\nDALIAN~R4*L*K*57078*YANTIAN~DTM*140*20070119*1200~R4*D*D*1703*SAVANNAH, GA~\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. It\u2019s probably none of our business, but are you a spy or something, EH? You\u2019re right; maybe it\u2019s best if we don\u2019t<\/I> know that.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
You\u2019d like to read in this text file and do two things. First, you\u2019d like to put a carriage return-linefeed after each tilde character (~); that will give you lines that look like this:<\/P>
*070219*1347*U*00401*000000852*0*P*>~\nGS*QO*CMACGM*USALTLANP*20070219*1347*852*X*004010~\nST*315*0001~\nB4***CT*20070219*0840*1703*CAXU*983290*L*4510~\nN9*BM*SZ2711711~\nN9*BN*SHZ438713~\nN9*SN*C4025491~\nQ2*9227027*****166***PX311E***L*CSCL DALIAN~\nR4*L*K*57078*YANTIAN~\nDTM*140*20070119*1200~\nR4*D*D*1703*SAVANNAH, GA~\n<\/PRE>\n
After that you\u2019d then like to identify any lines that begin with N9<\/B> or B4<\/B> and copy those lines to a separate text file. Sounds crazy, doesn\u2019t it? But if it\u2019s crazy you want, well, you came to the right place.<\/P>\n
To begin with, we use the ReadAll<\/B> method to read the entire file into memory and store the contents in a variable named strContents:<\/P>
strContents = objFile.ReadAll\n<\/PRE>\n
We then immediately close the file C:\\Scripts\\Test.txt. Why? Because we don\u2019t need it anymore; we\u2019ll do all our work with the variable strContents instead.<\/P>\n
For starters, let\u2019s put a carriage return-linefeed after each tilde in the file. How are we going to do that? Like this:<\/P>
strContents = Replace(strContents, “~”, “~” & vbCrLf)\n<\/PRE>\n
As you can see, we simply use the Replace<\/B> function to replace each tilde character with two<\/I> characters: a tilde and a carriage return-linefeed (as indicated by the VBScript constant vbCrLf<\/B>). The net effect: the tildes remain exactly where they are, only there\u2019s now a carriage return-linefeed after each one.<\/P>\n
Of course, something else has happened here as well: our text file (or at least the virtual copy of that file) now has multiple lines thanks to the carriage return-linefeed. And because it does<\/I> have multiple lines we can go ahead and extract all the lines that begin with N9 or B4.<\/P>\n
In order to do that we first use the Split<\/B> function to split the variable strContents on the carriage return-linefeed character:<\/P>
arrLines =Split(strContents, vbCrLf)\n<\/PRE>\n
That\u2019s going to result in an array (arrLines) in which each element represents a line in the text file. In turn, that means we can now \u201cread\u201d each line in the file simply by setting up a For Each loop that walks through all the items in the array:<\/P>
For Each strLine in arrLines\n<\/PRE>\n
So what are we going to do inside that loop? Well, for each array item we\u2019re going to check to see if the first two characters are either N9 or B4; that\u2019s what this line of code, and the Left<\/B> function, are for:<\/P>
If Left(strLine, 2) = “N9” or Left(strLine, 2) = “B4” Then\n<\/PRE>\n
Let\u2019s suppose we find one of the target lines. In that case, we simply take that value and append it (plus a carriage return-linefeed character) to a variable named strNewFile:<\/P>
strNewFile = strNewFile & strLine & vbCrLf\n<\/PRE>\n
And then we loop around and repeat this process with the next item in the array.<\/P>\n
Once we\u2019ve finished looping through the array we then execute this block of code:<\/P>
Set objFile = objFSO.CreateTextFile(“C:\\Scripts\\Test2.txt”)\nobjFile.Write strNewFile\nobjFile.Close\n<\/PRE>\n
All we\u2019re doing here is creating a new file named C:\\Scripts\\Test2.txt; that\u2019s what we do with the CreateTextFile<\/B> method. We use the Write<\/B> method to write the value of strNewFile to Test2.txt, then close the file and call it good. If we then open Test2.txt we should see this:<\/P>
B4***CT*20070219*0840*1703*CAXU*983290*L*4510~\nN9*BM*SZ2711711~\nN9*BN*SHZ438713~\nN9*SN*C4025491~\n<\/PRE>\n
Which, crazy as it might seem, is exactly what we wanted<\/I> to see.<\/P>\n
Now, if you\u2019ll excuse us, we\u2019re going to go back to being grumpy and feeling sorry for ourselves. Admittedly, right now the sun is peeking through the clouds, and the snow is rapidly melting. But we\u2019re not going to fall for that old trick; the sun coming out simply means that we\u2019ll have a nice clear view of the next disaster to strike the Seattle area. We\u2019re betting on frogs or locusts; it\u2019s been awhile since we\u2019ve had a plague of frogs or locusts around here. We\u2019ll let you know.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I write a script that modifies the contents of a text file and then copies specified lines from the modified contents to a new file?— EH Hey, EH. There\u2019s no way to do that. Now go away and leave us alone. Wait, sorry; we didn\u2019t mean it. As it turns […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[3,4,14,5],"class_list":["post-65393","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-scripting-guy","tag-scripting-techniques","tag-text-files","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I write a script that modifies the contents of a text file and then copies specified lines from the modified contents to a new file?— EH Hey, EH. There\u2019s no way to do that. Now go away and leave us alone. Wait, sorry; we didn\u2019t mean it. As it turns […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/65393","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=65393"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/65393\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=65393"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=65393"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=65393"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}