{"id":56243,"date":"2008-02-08T22:45:00","date_gmt":"2008-02-08T22:45:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2008\/02\/08\/hey-scripting-guy-how-can-i-select-text-in-a-hta-and-then-append-that-text-to-a-file\/"},"modified":"2008-02-08T22:45:00","modified_gmt":"2008-02-08T22:45:00","slug":"hey-scripting-guy-how-can-i-select-text-in-a-hta-and-then-append-that-text-to-a-file","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-how-can-i-select-text-in-a-hta-and-then-append-that-text-to-a-file\/","title":{"rendered":"Hey, Scripting Guy! How Can I Select Text in a HTA and Then Append That Text to a File?"},"content":{"rendered":"

\"Hey, <\/p>\n

Hey, Scripting Guy! I read your column<\/strong><\/a> about the HTA that could load and then display all the files in a folder. That was pretty useful, but I had an idea to make it even better. When looking at a log file I often see portions of the log that I’d like to copy and save to a separate text file. Is there any way to highlight text in an HTA and then append just the highlighted text to another file?<\/p>\n

— KF<\/p>\n

\"Spacer\"\"Hey,\"Script<\/a><\/p>\n

Hey, KF. Well, today is Friday, February 8th<\/sup>, which means that the 2008 Winter Scripting Games<\/strong><\/a> are just one week away. As exciting as that is to most of us, however, we realize that some people aren’t interested in the Scripting Games. (Now, now; remember, it takes all kinds to make a world.) Therefore, we thought we’d talk about something different today.<\/p>\n

So let’s see, what can we talk about? Well, politics are definitely in the news these says, especially here in the US. And as far as the Scripting Guys are concerned, Americans would be far better off if – well, never mind. Microsoft doesn’t really like us to talk about politics. (Actually Microsoft doesn’t really like the Scripting Guys to talk about anything<\/i>. But that’s a different story.)<\/p>\n

So what else? Well, there’s always religion, although, come to think of it, we’re not supposed to talk about religion, either.<\/p>\n\n<\/thead>\n\n\n
\n

True story<\/strong>. In a recent magazine article, we weren’t even allowed to say the word “devil.” Which was a bit of a problem seeing as how we had just returned from the Devil’s Punch Bowl and were dying <\/i>to have some deviled eggs and a piece of Devil’s food cake. Needless to say, that also played havoc with our proposed tribute column to everyone’s favorite hockey player, Miroslav Satan.<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

<\/div>\n

Anyway, religion is out. Sports? Well, to tell you the truth, the Scripting Guy who writes this column is going through a bit of a dry spell as far as his favorite teams are concerned; none of them are doing very well at the moment. (Well, the New Jersey Devils and the Arizona State Sun Devils are doing all right, but we can’t talk about them.) In other words, he doesn’t want to talk about sports. OK, then how about the weather? Well, today in Seattle it’s cold and rainy; tomorrow is also supposed to be cold and rainy. And the day after that is also<\/i> supposed to be cold and rainy. And – well, let’s not talk about the weather, either. OK? <\/p>\n

In fact, why don’t we dispense with the small talk and just show you code for an HTML Application (HTA) that allows you to select text in a textarea and then append the selected information to a text file:<\/p>\n

<SCRIPT Language=\"VBScript\">    <\/span><\/pre>\n
Sub Window_Onload        <\/span><\/pre>\n
strComputer = \".\"        <\/span><\/pre>\n
Set objWMIService = GetObject(\"winmgmts:\\\\\" & strComputer & \"\\root\\cimv2\")        <\/span><\/pre>\n
Set colFiles = objWMIService.ExecQuery _            <\/span><\/pre>\n
(\"ASSOCIATORS OF {Win32_Directory.Name='C:\\Scripts'} Where \" _                <\/span><\/pre>\n
& \"ResultClass = CIM_DataFile\")       <\/span><\/pre>\n
 For Each objFile In colFiles            <\/span><\/pre>\n
Set objOption = Document.createElement(\"OPTION\")            <\/span><\/pre>\n
objOption.Text = objFile.FileName            <\/span><\/pre>\n
objOption.Value = objFile.Name           <\/span><\/pre>\n
LogFiles.Add(objOption)        <\/span><\/pre>\n
Next    <\/span><\/pre>\n
End Sub    <\/span><\/pre>\n
Sub ReadFile        <\/span><\/pre>\n
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")        <\/span><\/pre>\n
Set objFile = objFSO.OpenTextFile(LogFiles.Value)       <\/span><\/pre>\n
 strContents = objFile.ReadAll        <\/span><\/pre>\n
objFile.Close        <\/span><\/pre>\n
BasicTextArea.Value = strContents    <\/span><\/pre>\n
End Sub        <\/span><\/pre>\n
Sub SaveSelection        <\/span><\/pre>\n
Set objSelection = Document.Selection.CreateRange()        <\/span><\/pre>\n
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")        <\/span><\/pre>\n
Set objFile = objFSO.OpenTextFile(FileNameBox.Value, 8)        <\/span><\/pre>\n
objFile.WriteLine        <\/span><\/pre>\n
objFile.WriteLine (LogFiles.Value)        <\/span><\/pre>\n
objFile.WriteLine objSelection.Text        <\/span><\/pre>\n
objFile.Close    End Sub<\/SCRIPT><\/span><\/pre>\n
<body>    <\/span><\/pre>\n
<table width=\"100%\">        <\/span><\/pre>\n
<tr>            <\/span><\/pre>\n
<td width=\"25%\" valign=\"top\">               <\/span><\/pre>\n
<select size=\"35\" name=\"LogFiles\" onChange=\"ReadFile\" style=\"width:150px\">                    <\/span><\/pre>\n
<\/select>            <\/span><\/pre>\n
<\/td>           <\/span><\/pre>\n
<td width=\"75%\" valign=\"top\">               <\/span><\/pre>\n
<textarea name=\"BasicTextArea\" rows=\"35\" cols=\"100\"><\/textarea>           <\/span><\/pre>\n
<\/td>        <\/span><\/pre>\n
<\/tr>        <\/span><\/pre>\n
<tr>            <\/span><\/pre>\n
<td width=\"25%\" valign=\"top\">               <\/span><\/pre>\n
File name: <input type=\"text\" size=\"25\" name=\"FileNameBox\" value=\"C:\\Scripts\\Test.txt\">             <\/span><\/pre>\n
<\/td>           <\/span><\/pre>\n
<td width=\"75%\" valign=\"top\">               <\/span><\/pre>\n
<br><input type=\"button\" value=\"Append Data\" onClick=\"SaveSelection\">          <\/span><\/pre>\n
<\/td>        <\/span><\/pre>\n
<\/tr>    <\/span><\/pre>\n
<\/table><\/body><\/span><\/pre>\n
Wow, that is<\/i> quite a bit of code, at least for a Hey, Scripting Guy!<\/i> column. But don’t worry; we aren’t going to walk through each and every line today. Instead, we’ll refer you to our previous column<\/strong><\/a> to explain how the HTA loads all the files in a folder into a list box, then displays the contents of any file you select from that list box. All we’ll talk about today is the code that we added to our original HTA, code that enables you to select text in the HTA’s textarea, then append that selection to a separate text file.<\/p>\n
With that in mind, let’s start by taking a look at the all-new second row in our table. (The first row in the table contains the list box and the textarea.) Here’s the HTML tagging for row 2 in the table:<\/p>\n
<tr>    <\/pre>\n
<td width=\"25%\" valign=\"top\">        <\/pre>\n
File name: <input type=\"text\" size=\"25\" name=\"FileNameBox\" value=\"C:\\Scripts\\Test.txt\">    <\/pre>\n
 <\/td>    <\/pre>\n
<td width=\"75%\" valign=\"top\">        <\/pre>\n
<br><\/pre>\n
<input type=\"button\" value=\"Append Data\" onClick=\"SaveSelection\">    <\/pre>\n
<\/td><\/pre>\n
<\/tr><\/pre>\n
In the first cell in this table we’re adding a text box named FileNameBox, and setting the default value<\/strong> of this text box to C:\\Scripts\\Test.txt. That’s what this little bit of HTML is for:<\/p>\n
<input type=\"text\" size=\"25\" name=\"FileNameBox\" value=\"C:\\Scripts\\Test.txt\"><\/pre>\n
Why did we add a text box here? Well, this gives us a place where we can type the path to the file where the selected text is supposed to be added. We give it a default value of C:\\Scripts\\Test.txt because we’re assuming that this is the file where we typically want to append information. However, it’s easy enough to redirect that data to a different file; all we have to do is type a different file path in our text box.<\/p>\n
In the second cell in the row we use the following HTML tagging to add a button labeled Append Data<\/strong>:<\/p>\n
<input type=\"button\" value=\"Append Data\" onClick=\"SaveSelection\"><\/pre>\n
As you can see, each time the button is clicked the script runs a subroutine named SaveSelection. Now, try to guess what’s going to happen when the SaveSelection subroutine runs?<\/p>\n
Oh, well, you’re right: we are<\/i> going to save the selected text to a text file. We thought we might be able to stump you with that particular question. Apparently we were wrong.<\/p>\n
Well, even though you already know what the SaveSelection subroutine does, let’s take a moment to talk about how<\/i> it does this. The first thing we do inside this subroutine is create a new TextRange<\/strong> object; that’s done by calling the CreateRange()<\/strong> method, which happens to be part of the Document.Selection<\/strong> object: <\/p>\n
Set objSelection = Document.Selection.CreateRange()<\/pre>\n
After creating the TextRange object (which automatically encompasses all the selected text in the HTA) we use these two lines of code to create an instance of the Scripting.FileSystemObject<\/strong> and then open a text file for appending (that’s what the second parameter, the 8<\/strong>, is for):<\/p>\n
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")<\/pre>\n
Set objFile = objFSO.OpenTextFile(FileNameBox.Value, 8)<\/pre>\n
What’s that? Which<\/i> text file are we opening? Why, we’re opening the file whose path is listed in the FileNameBox text box; as you might have guessed, the syntax FileNameBox.Value<\/strong> returns the text found in the FileNameBox text box. <\/p>\n
So what are we going to do with that file now that it’s open? Well, to begin with, we’re going to use this line of code to add a blank line to the end of the file:<\/p>\n
objFile.WriteLine<\/pre>\n
Once that’s done we’re going to use this block of code to write the name of the file that the selection comes from (grabbing the file path from the list box) followed by the selected text, something we can get at by referencing the Text<\/strong> property of our TextRange object:<\/p>\n
objFile.WriteLine (LogFiles.Value)<\/pre>\n
objFile.WriteLine objSelection.Text<\/pre>\n
And then we close the file and simply wait for the user to select some more text and then click the Append Data<\/strong> button. That’s all we have to do.<\/p>\n
We hope that answers your question, KF. In the meantime … wow, there just really isn’t<\/i> anything to talk about other than the Scripting Games, is there? So what the heck, let’s just mention that the Games begin February 15th<\/sup> and run through March 3rd<\/sup>. However, you’ll want to show up on the 15th<\/sup> if at all possible: although the Games run through March 3rd<\/sup> most of the events will end before<\/i> March 3rd<\/sup>. (For example, the deadline for Events 1 and 2 is Wednesday, February 20th<\/sup>. Check here<\/strong><\/a> for a full schedule, including a printable calendar.) <\/p>\n
But even if you can’t make the deadlines for all the events, well, that doesn’t mean you can’t participate: just do whatever events you have time for and call it good. You’ll have fun and you’ll have a chance to put your scripting skills to the test (and maybe learn something new along the way). Equally important, by entering just one event you’ll be eligible for great Scripting Games prizes<\/strong><\/a>. And remember, you don’t have to use your real name when playing. (Surely you didn’t think someone really<\/i> named their kid N3QGO or weedwhacker?) Try a script, send it in using a nickname like weedwhacker (well, maybe not weedwhacker; that’s already taken), and who knows? You just might win one of those great prizes.<\/p>\n
Now, aren’t you glad we had this little talk?<\/p>\n\n<\/thead>\n\n\n
\n
Note<\/strong>. Now that you mention it, the Scripting Editor did<\/i> leave a few doughnut crumbs in the office, didn’t she? But that’s no big deal, we’ll just get out our trusty little Dirt Devil vacuum and – well, never mind. We’ll just ask the janitor to take care of it.<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I read your column about the HTA that could load and then display all the files in a folder. That was pretty useful, but I had an idea to make it even better. When looking at a log file I often see portions of the log that I’d like to copy and […]<\/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,30],"class_list":["post-56243","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-scripting-guy","tag-scripting-techniques","tag-text-files","tag-vbscript","tag-web-pages-and-htas"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I read your column about the HTA that could load and then display all the files in a folder. That was pretty useful, but I had an idea to make it even better. When looking at a log file I often see portions of the log that I’d like to copy and […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/56243","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=56243"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/56243\/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=56243"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=56243"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=56243"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}