{"id":63743,"date":"2007-10-23T23:23:00","date_gmt":"2007-10-23T23:23:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2007\/10\/23\/hey-scripting-guy-how-can-i-extract-all-the-text-between-two-tags-in-a-text-file\/"},"modified":"2007-10-23T23:23:00","modified_gmt":"2007-10-23T23:23:00","slug":"hey-scripting-guy-how-can-i-extract-all-the-text-between-two-tags-in-a-text-file","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-how-can-i-extract-all-the-text-between-two-tags-in-a-text-file\/","title":{"rendered":"Hey, Scripting Guy! How Can I Extract All the Text Between Two Tags in a Text File?"},"content":{"rendered":"

\"Hey, <\/H2>\n

Hey, Scripting Guy! I have a whole bunch of text files in a folder. I need to open each of these files, extract everything between the <filecount><\/B> and <\/filecount><\/B> tags, and then write that information to a separate file. How can I do that?

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

Hey, RP. You know, the other day the Scripting Guy who writes this column and the Scripting Son were discussing the upcoming Scripting Guys\u2019 trip to Barcelona for TechEd IT Forum 2007<\/B><\/A>. \u201cI still don\u2019t get it,\u201d said the Scripting Son. \u201cWhy would anyone want to talk to you<\/I>?\u201d<\/P>\n

\u201cWell,\u201d said the Scripting Dad. \u201cI guess I\u2019m kind of famous.\u201d<\/P>\n

\u201cNo you\u2019re not,\u201d said the Scripting Son. \u201cIf you were famous, you\u2019d be in Wikipedia<\/B><\/A>.\u201d<\/P>\n

And you know what? The Scripting Son was right: if the Scripting Guys were famous they would<\/I> be in Wikipedia. And yet they aren\u2019t. So does that mean that maybe the Scripting Guys aren\u2019t anywhere near as famous and important as they think<\/I> they are?<\/P>\n

No, of course not; that just means the Scripting Guys, being the modest and unassuming types, haven\u2019t revealed enough about their lives to enable someone to write a Wikipedia entry. Admittedly, we could<\/I> go write such an entry ourselves; however, that doesn\u2019t seem very sporting. Therefore, if anyone out there is interested in creating a Wikipedia entry for the Scripting Guys, well, here are some choice anecdotes to get you started:<\/P>\n\n\n\n\n\n\n
\u2022<\/TD>\n\n

In 1949, Scripting Guy Jean Ross was third runner-up in the Miss Iowa beauty pageant. However, she was forced to abdicate her title several months later due to her role in the great Dairy Farm Scandal of 1950.<\/P><\/TD><\/TR>\n

\u2022<\/TD>\n\n

In February of 1606, Galileo Galilei mentioned to his young apprentice, Scripting Guy Peter Costantini, that he could \u201creally use a script that would help him monitor the processes on running on a computer.\u201d That very day Peter wrote his first column on how to monitor the processes running on a computer. Today, the Script Center boasts not only that first column<\/B><\/A>, but also the 347,286 follow-up columns that Peter has composed on the same subject.<\/P><\/TD><\/TR>\n

\u2022<\/TD>\n\n

In August, 2005 Scripting Guy Dean Tsaltas made himself a sandwich. \u201cIt was pretty good,\u201d Dean recalled. \u201cNot as good as you get at Subway or Quiznos. But still pretty good.\u201d<\/P><\/TD><\/TR>\n

\u2022<\/TD>\n\n

In October, 2007 Scripting Guy Greg Stemp was told, \u201cIf you were famous, you\u2019d be in Wikipedia.\u201d<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n

We assume that should be more than enough information to get a Scripting Guys entry accepted by Wikipedia\u2019s editorial board. If it\u2019s not, however, well, just wait until the folks at Wikipedia get a whiff of this<\/I>: a script that can extract the information found between two tags in a text file. Let\u2019s show you the code for performing this feat on a single file, then we\u2019ll show you a fancier script, one that can extract this information for each file in a folder.<\/P>\n

Here\u2019s the basic script:<\/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
strStartText = “<filecount>”\nstrEndText = “<\/filecount>”<\/p>\n
intStart = InStr(strContents, strStartText)\nintStart = intStart + Len(strStartText)<\/p>\n
intEnd = InStr(strContents, strEndText)<\/p>\n
intCharacters = intEnd – intStart<\/p>\n
strText = Mid(strContents, intStart, intCharacters)<\/p>\n
Wscript.Echo strText\n<\/PRE>\n
Actually we agree: this does<\/I> sort of look like gibberish, doesn\u2019t it? But don\u2019t worry: we promise to de-gibberish this before we call it a day.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. Yes, \u201cde-gibberish\u201d is a technical term, a technical term that only someone truly famous \u2013 and deserving of recognition in an online encyclopedia \u2013 would be able to use.<\/P>\n
And use correctly.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
To begin with, we define a constant named ForReading and set the value to 1; we\u2019ll use this constant when we go to open our text file. We next create an instance of the Scripting.FileSystemObject<\/B>, then use the OpenTextFile<\/B> method to open the file C:\\Scripts\\Test.txt for reading:<\/P>
Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nSet objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForReading)\n<\/PRE>\n
So what are we going to do with this file now that it\u2019s open? Well, to tell you the truth, not much: we\u2019re simply going to call the ReadAll<\/B> method to read the contents into a variable named strContents, then call the Close<\/B> method to immediately close the file.<\/P>\n
But don\u2019t worry; once the contents of the file are in memory we won\u2019t need the file anymore. Listen, you can trust us on that; have the Scripting Guys ever let you down before?<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. It would probably be best if all those times we let people down were left out<\/I> of our Wikipedia entry. After all, we assume that even Wikipedia imposes some<\/I> sort of maximum length on articles.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
As RP noted, he wants to extract all the text found between the <filecount><\/B> and <\/filecount><\/B> tags. We don\u2019t know for sure what RP\u2019s text files look like, so we\u2019re going to use the following as our sample file:<\/P>
<filename>Test.txt<\/filename>\n<filedate>10\/23\/2007<\/filedate>\n<filecount>786<\/filecount>\n<filelocation>C:\\Scripts<\/filelocation>\n<\/PRE>\n
We should point out that we\u2019re assuming that the two target tags appear only once in each file. Will this script work if those tags appear more<\/I> than once? No. But maybe in the near future we\u2019ll write a follow-up column of our own and show you how to do that.<\/P>\n
We should also add that one nice thing about this script is that it will work regardless of what the file looks like. Suppose the file looked like this:<\/P>
<filename>Test.txt<\/filename><filedate>10\/23\/2007\n<\/filedate><filecount>786<\/filecount><filelocation>\nC:\\Scripts<\/filelocation>\n<\/PRE>\n
No problem; the script will still be able to pick out the text between the target tags. That\u2019s true even if the text looked like this:<\/P>
<filename>Test.txt<\/filename><filedate>10\/23\/2007\n<\/filedate><filecount>786\n<\/filecount><filelocation>C:\\Scripts<\/filelocation>\n<\/PRE>\n
Or if it looked like \u2013 well, you get the idea.<\/P>\n
At any rate, our next step is to assign our two tags to a pair of variables, one named strStartText, the other named strEndText:<\/P>
strStartText = “<filecount>”\nstrEndText = “<\/filecount>”\n<\/PRE>\n
That brings us to this little block of code:<\/P>
intStart = InStr(strContents, strStartText)\nintStart = intStart + Len(strStartText)\n<\/PRE>\n
What\u2019s going on here? Well, in the first line we\u2019re using the InStr<\/B> function to determine the character position where the <filecount><\/I> tag begins; in our sample text file, that\u2019s going to be character position 65. In the second line, we\u2019re adding the length of the <filecount><\/I> tag (that is, the number of characters in the tag) to this value. The tag length is 11 which, when added to 65, makes the final value of intStart equal to 76. This also means that our target text is going to begin at character position 76. <\/P>\n
If you find that a bit confusing, take a peek at the following table. Here we\u2019ve mapped out character positions 65 through 75. As you can see, if <filecount><\/I> begins in character position 65 that means that it ends in character position 75:<\/P>\n\n<\/THEAD>\n\n\n\n
\n
65<\/B><\/P><\/TD>\n
\n
66<\/B><\/P><\/TD>\n
\n
67<\/B><\/P><\/TD>\n
\n
68<\/B><\/P><\/TD>\n
\n
69<\/B><\/P><\/TD>\n
\n
70<\/B><\/P><\/TD>\n
\n
71<\/B><\/P><\/TD>\n
\n
72<\/B><\/P><\/TD>\n
\n
73<\/B><\/P><\/TD>\n
\n
74<\/B><\/P><\/TD>\n
\n
75<\/B><\/P><\/TD><\/TR>\n
\n
<<\/P><\/TD>\n
\n
f<\/P><\/TD>\n
\n
i<\/P><\/TD>\n
\n
l<\/P><\/TD>\n
\n
e<\/P><\/TD>\n
\n
c<\/P><\/TD>\n
\n
o<\/P><\/TD>\n
\n
u<\/P><\/TD>\n
\n
n<\/P><\/TD>\n
\n
t<\/P><\/TD>\n
\n
><\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
And that means that the text we want to extract has to begin in character position 76.<\/P>\n
Next we use this<\/I> line of code to determine where the second tag (<\/filecount><\/I>) begins:<\/P>
intEnd = InStr(strContents, strEndText)\n<\/PRE>\n
In our sample script, that\u2019s character position 79.<\/P>\n
We\u2019re getting closer now. Our next step is to determine how many characters we need to extract. We can calculate that value by subtracting the starting position of our target text (76) from the starting position of our closing tag (<\/filecount><\/I>):<\/P>
intCharacters = intEnd – intStart\n<\/PRE>\n
What does that give us? That gives us 79 minus 76 which, in turn, gives us 3. And 3 just happens to be the number of characters between the two tags.<\/P>\n
Once we know that, we can then call the Mid<\/B> function and extract those characters:<\/P>
strText = Mid(strContents, intStart, intCharacters)\n<\/PRE>\n
All we\u2019re doing here is telling the script to take the value of strContents, start at character position 76 (intStart) and then count over 3 characters (intCharacters), scooping up each character along the way. And what exactly will we scoop up? This:<\/P>
786\n<\/PRE>\n
Pretty cool, huh?<\/P>\n
Now, without any additional explanation, here\u2019s a script that can perform this feat on all the text files in a folder, writing the retrieved file counts to a file named Totals.txt:<\/P>
Const ForReading = 1<\/p>\n
Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nstrComputer = “.”<\/p>\n
Set objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n
Set colFiles = objWMIService.ExecQuery _\n    (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Scripts’} Where ” _\n        & “ResultClass = CIM_DataFile”)<\/p>\n
For Each objFile In colFiles\n    Set objFile = objFSO.OpenTextFile(objFile.Name, ForReading)<\/p>\n
    strContents = objFile.ReadAll\n    objFile.Close<\/p>\n
    strStartText = “<filecount>”\n    strEndText = “<\/filecount>”<\/p>\n
    intStart = InStr(strContents, strStartText)\n    intStart = intStart + Len(strStartText)<\/p>\n
    intEnd = InStr(strContents, strEndText)<\/p>\n
    intCharacters = intEnd – intStart\n    strCount =  Mid(strContents, intStart, intCharacters)<\/p>\n
    strText = strtext & strCount & vbCrLf\nNext<\/p>\n
Set objFile = objFSO.CreateTextFile(“C:\\Scripts\\Totals.txt”)<\/p>\n
objFile.Write strText\nobjFile.Close\n<\/PRE>\n
Is that really going to work? Give it a try and see for yourself.<\/P>\n
If you\u2019re planning to rush out and create a new Wikipedia entry for the Scripting Guys, we should mention that Wikipedia prohibits \u201cpatent nonsense.\u201d According to Wikipedia\u2019s deletion guidelines<\/B><\/A>, patent nonsense includes:<\/P>\n\n\n\n\n
\n
1.<\/P><\/TD>\n
\n
Total nonsense, i.e., text or random characters that have no assignable meaning at all. This includes sequences such as “i9da7gy98sdygida%\u00a3U%ETDFHc8vda097tt{%\u00a3^O&\u00a3^IEUyrhgietysbvd}TYu{og;d”, in which keys of the keyboard have been pressed with no regard for what is typed, (or typed with the eyes closed.) <\/P><\/TD><\/TR>\n
\n
2.<\/P><\/TD>\n
\n
Content that, while apparently meaningful after a fashion, is so completely and irredeemably confused that no reasonable person can be expected to make any sense of it whatsoever.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
What does that mean to you? It means that you can go ahead and create a Scripting Guys entry; just don\u2019t try reprinting one of the Hey, Scripting Guy!<\/I> columns. <\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. In case you\u2019re wondering, the answer is no; the Scripting Guys have no plans to sue Wikipedia. That\u2019s true even though the phrase \u201cContent that, while apparently meaningful after a fashion, is so completely and irredeemably confused that no reasonable person can be expected to make any sense of it whatsoever\u201d was obviously taken directly from the Script Center Style Guide. On top of that, the Scripting Guy who writes this column holds the patent on creating columns by pressing keys on the keyboard with no regard for what is being typed.<\/P>\n
But that\u2019s OK; we\u2019ll let this one slide.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n\n<\/THEAD>\n\n\n
\n
Ed<\/B>itor\u2019s Note<\/B>. For the millions of faithful Hey, Scripting Guy!<\/I> fans who follow this column regularly (okay, maybe \u201cmillions\u201d is a bit of an exaggeration \u2013 but we know there are two or three of you out there), the Scripting Editor \u2013 who was nowhere near even being born yet in 1949 \u2013 thought we should tie up some loose ends.<\/P>\n
Last week<\/B><\/A>, the Scripting Guy who writes this column mentioned the Washington vs. Oregon football game. This week he didn\u2019t. Enough said.<\/P>\n
The Scripting Guy who writes this column predicted the winner of the World Series<\/B><\/A>. He also mentioned public ridicule\u2026Boston Red Sox fans, feel free to ridicule.<\/P><\/TD><\/TR><\/TBODY><\/TABLE><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I have a whole bunch of text files in a folder. I need to open each of these files, extract everything between the <filecount> and <\/filecount> tags, and then write that information to a separate file. How can I do that?— RP Hey, RP. You know, the other day the Scripting Guy […]<\/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-63743","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! I have a whole bunch of text files in a folder. I need to open each of these files, extract everything between the <filecount> and <\/filecount> tags, and then write that information to a separate file. How can I do that?— RP Hey, RP. You know, the other day the Scripting Guy […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63743","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=63743"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63743\/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=63743"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=63743"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=63743"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}