{"id":65023,"date":"2007-04-23T21:24:00","date_gmt":"2007-04-23T21:24:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2007\/04\/23\/how-can-i-replace-the-first-five-characters-in-a-text-file-with-the-first-five-characters-in-the-computer-name\/"},"modified":"2007-04-23T21:24:00","modified_gmt":"2007-04-23T21:24:00","slug":"how-can-i-replace-the-first-five-characters-in-a-text-file-with-the-first-five-characters-in-the-computer-name","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-replace-the-first-five-characters-in-a-text-file-with-the-first-five-characters-in-the-computer-name\/","title":{"rendered":"How Can I Replace the First Five Characters in a Text File With the First Five Characters in the Computer Name?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I open a text file and replace the first 5 characters with the first 5 characters of the local computer name?

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

Hey, EC. You know, you might find this hard to believe (his fellow Scripting Guys absolutely refuse<\/I> to believe it), but sometimes the Scripting Guy who writes this column is all talk and no action. For example, a few months<\/B><\/A> ago he told everyone that he was planning on going back to college and getting a second Master\u2019s degree (taking advantage of an email that promised he could get this degree in just two weeks). But was he really<\/I> planning on going back to college? To tell you the truth, no: he\u2019s way past the point where he ever wants to work hard or learn anything ever again.<\/P>\n

Or so he thought. But then, last night, his life changed forever.<\/P>\n

You might find this even harder to believe, but there was a time, long ago, when the Scripting Guy who writes this column was actually fairly smart; in fact, after he took his SAT test he was inundated with offers to attend universities all over the country. Harvard, Yale, Stanford, you name it. In the end, he opted to stay in the state of Washington, partly due to the costs involved, but largely because of the ho-hum factor. No offense to Harvard or Yale, but, to tell you the truth, places like that didn\u2019t sound very exciting. As far as the Scripting Guy who writes this column was concerned, it didn\u2019t matter: if you\u2019ve seen one university you\u2019ve seen them all.<\/P>\n

Or so he thought. But then, last night, the Scripting Son was flipping through channels on the TV when he landed on the Food Network. It was there that the Scripting Guy who writes this column finally figured out what he was meant to do with his life: graduate from Dunkin\u2019 Donuts University<\/B><\/A>. That\u2019s right, Dunkin\u2019 Donuts University (founded in 1966), a school where the curriculum is based entirely on making \u2013 and eating \u2013 donuts. Just try to find courses on donut-making and donut-eating at one of those hoity-toity Ivy League colleges. <\/P>\n

Well, OK, maybe Princeton. But other than that \u2026.<\/P>\n

There is<\/I> a problem, however. Back when the Scripting Guy who writes this column was being inundated with invitations to attend various colleges and universities he did not<\/I> receive an invitation from Dunkin\u2019 Donuts U. Does that mean he isn\u2019t qualified to attend Dunkin\u2019 Donuts University? Considering the number of donuts he\u2019s eaten in his life he expected, if anything, to be over-qualified.<\/I> On the other hand, however, Dunkin\u2019 Donuts is probably looking for smart, hard-working, and responsible people.<\/P>\n

Dang! There\u2019s always a catch, isn\u2019t there?<\/P>\n

Unless \u2026. Hey, admissions committee at Dunkin\u2019 Donuts University. How would you feel about a smart, hard-working and responsible guy who can write a script that can replace the first 5 characters of a text file with the name of the local computer? <\/P>\n

Well, OK. Then how about this same script written by a not-so-smart, lazy, and somewhat-irresponsible guy:<\/P>

Const ForReading = 1\nConst ForWriting = 2<\/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
Set objNetwork = CreateObject(“Wscript.Network”)\nstrComputer = objNetwork.ComputerName\nstrComputer = Left(strComputer, 5)<\/p>\n
intlength = Len(strContents)\nstrRemainder = Right(strContents, intLength – 5)\nstrNewContents = strComputer & strRemainder<\/p>\n
Set objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForWriting)\nobjFile.WriteLine strNewContents<\/p>\n
objFile.Close\n<\/PRE>\n
On the off-chance that the admissions committee thinks the Scripting Guy who writes this column did nothing more than download this script off the Internet (like he did his master\u2019s thesis) let\u2019s take a few minutes to explain how this baby works. To begin with, we have a text file named C:\\Scripts\\Test.txt, a text file that (for our example purposes) looks like this:<\/P>
XXXXX This is our text file. We want to replace the first five\ncharacters (the Xs) with the first five characters of the\nlocal computer’s name.\n<\/PRE>\n
As you can see, and as you can read for yourself, the first five characters in the text file are nothing but Xs. Our job is to replace those five characters with the first five characters in the name of the local computer.<\/P>\n
To do that, we start out by defining a pair of constants, ForReading and ForWriting; we\u2019ll need to use these two constants when we open Test.txt. (And yes, for better or worse we need to open the text file twice: once to read in the existing contents, the second time to replace those contents with our new, modified contents.) After defining the two constants we then use these two lines of code to create an instance of the Scripting.FileSystemObject<\/B> and to open the text file for reading:<\/P>
Set objFSo = CreateObject(“Scripting.FileSystemObject”)\nSet objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForReading)\n<\/PRE>\n
As soon as we have the file open we use the ReadAll<\/B> method to read the contents of the file (storing that information in a variable named strContents), then we close Test.txt:<\/P>
strContents = objFile.ReadAll\nobjFile.Close\n<\/PRE>\n
Now what?<\/P>\n
Funny you should ask that. (We hope that the admissions committee will take note of our prompt response to a customer inquiry.) Our next step is to run this block of code:<\/P>
Set objNetwork = CreateObject(“Wscript.Network”)\nstrComputer = objNetwork.ComputerName\n<\/PRE>\n
Here we\u2019re creating an instance of the Wscript.Network<\/B> object, then assigning the value of the ComputerName<\/B> property to the variable strComputer. It probably doesn\u2019t come as any great surprise that the value of the ComputerName property just happens to be the name of the computer itself. Of course, we don\u2019t actually want the entire computer name; all we want are the first five characters. With that in mind we then use the Left<\/B> function to grab those first five characters and store them in the variable strComputer:<\/P>
strComputer = Left(strComputer, 5)\n<\/PRE>\n
The net result? If we happen to be running this script on a computer named GIZMONIC (which we are) then strComputer will be equal to this:<\/P>
GIZMO\n<\/PRE>\n
We now have the first five characters in the computer name. Our next task is to replace the first five characters in the text file with these computer name characters. Depending on the kind of information in your text file you might be able to do this using a search-and-replace operation; that will work as long as the first five characters in the text fill will always be XXXXX, and as long as it\u2019s OK to replace any other instances of XXXXX with GIZMO. We can\u2019t be sure that those conditions will always hold true, so we decided to replace the first five characters using this approach:<\/P>
intlength = Len(strContents)\nstrRemainder = Right(strContents, intLength – 5)\nstrNewContents = strComputer & strRemainder\n<\/PRE>\n
In the first line of this code block we use the Len<\/B> method to count the number of characters in strContents; if you\u2019re keeping score at home, that\u2019s 149. As you know, we want to replace only the first five characters in this string; we want to keep characters 6 through 149 exactly as they are. That\u2019s what our second line of code is for; in that line we use the Right<\/B> function to start at the end of the string and work our way backwards, scooping up characters as we go. How many<\/I> characters do we scoop up? We want to grab a number equal to the length of the string minus 5. (149 \u2013 5 equals 144, which means that we want to start at the end of the string and, working from right-to-left, grab the first 144 characters.) In turn, our variable strRemainder will be assigned everything except the first five characters in the string (because we stopped grabbing characters before we got to those). <\/P>\n
Or, to put it another way, strRemainder ends up equal to this:<\/P>
This is our text file. We want to replace the first five\ncharacters (the Xs) with the first five characters of the\nlocal computer’s name.\n<\/PRE>\n
As you can see, that\u2019s the entire string except for the first five characters.<\/P>\n
Finally, in line 3 we combine the variables strComputer and strRemainder, then assign that<\/I> value to a variable named strNewContents. That makes this new variable equal to the following:<\/P>
GIZMO This is our text file. We want to replace the first five\ncharacters (the Xs) with the first five characters of the\nlocal computer’s name.\n<\/PRE>\n
Well, what do you know: we\u2019ve replaced the first five characters in the text file (XXXXX) with the first five characters in the computer name (GIZMO).<\/P>\n
All that\u2019s left now is to reopen the file Test.txt (this time for writing), use the WriteLine<\/B> method to overwrite the old contents with our new, modified contents, and then close the file:<\/P>
Set objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForWriting)\nobjFile.WriteLine strNewContents<\/p>\n
objFile.Close\n<\/PRE>\n
That should do it.<\/P>\n
We hope that helps, EC. (And we hope that impresses you, Dunkin\u2019 Donuts University admissions committee.) We\u2019d like to stay and take questions from the audience, but we need to hurry down to the local bakery and pick up a couple dozen donuts. After all, it\u2019s never too early to start studying for our entrance exam. <\/P>\n
At least not when you\u2019re hoping to attend Dunkin\u2019 Donuts University.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I open a text file and replace the first 5 characters with the first 5 characters of the local computer name?— EC Hey, EC. You know, you might find this hard to believe (his fellow Scripting Guys absolutely refuse to believe it), but sometimes the Scripting Guy who writes this […]<\/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-65023","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 open a text file and replace the first 5 characters with the first 5 characters of the local computer name?— EC Hey, EC. You know, you might find this hard to believe (his fellow Scripting Guys absolutely refuse to believe it), but sometimes the Scripting Guy who writes this […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/65023","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=65023"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/65023\/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=65023"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=65023"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=65023"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}