{"id":69483,"date":"2005-06-30T22:22:00","date_gmt":"2005-06-30T22:22:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2005\/06\/30\/how-can-i-add-a-line-to-the-top-of-a-text-file\/"},"modified":"2005-06-30T22:22:00","modified_gmt":"2005-06-30T22:22:00","slug":"how-can-i-add-a-line-to-the-top-of-a-text-file","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-add-a-line-to-the-top-of-a-text-file\/","title":{"rendered":"How Can I Add a Line to the Top of a Text File?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I add a line to the top of a text file?

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

Hey, FT. You know, at one point in his career Sir Arthur Conan Doyle actually killed off Sherlock Holmes, figuring he\u2019d written everything anyone could ever write about the master detective. Public outcry soon made him change his mind, and in short order he brought Sherlock Holmes back to life. (Creating, along the way, the basic plotline for every soap opera ever written.)<\/P>\n

We Scripting Guys can empathize with Sir Arthur Conan Doyle. After all, we periodically think, \u201cWell, that\u2019s it; we\u2019ve finally written everything anyone could ever write about text files.\u201d No sooner do we think that than we seem to get a flurry of questions about text files, including three people who asked this same thing: how can I add a line to the top of a text file?<\/P>\n

Elementary, my dear Watson (uh, my dear FT). All you have to do is use a script similar to this:<\/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
strFirstLine = “This is the new first line in the text file.”\nstrNewContents = strFirstLine & vbCrLf & strContents<\/p>\n
Set objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForWriting)\nobjFile.WriteLine strNewContents<\/p>\n
objFile.Close\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. Interestingly enough, in the original stories Sherlock Homes never said, \u201cElementary, my dear Watson.\u201d No, we don\u2019t know why<\/I> he didn\u2019t say it; he just didn\u2019t.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
Ah, yes, now the game is<\/I> afoot, isn\u2019t it? We begin by creating a pair of constants – ForReading and ForWriting – that we\u2019ll use when working with our text file. We create an instance of the FileSystemObject<\/B> and then use the OpenTextFile<\/B> method to open the file C:\\Scripts\\Test.txt for reading:<\/P>
Set objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForReading)\n<\/PRE>\n
Now that the file is open we use the ReadAll<\/B> method to read the entire contents of the file and store those contents in a variable named strContents. We then immediately close the file Test.txt. Why? Well, the FileSystemObject allows you to open a file for reading or<\/I> for writing, but you can\u2019t do both at the same time. To add a new line to the top of the file, we\u2019re going to have to write to the file; that means we\u2019ll have to reopen it, but for writing.<\/P>\n
Next we need to construct the new<\/I> contents for the file. We can\u2019t directly add a line to the top of the text file; the FileSystemObject only allows you to add new lines to the end<\/I> of a text file. Therefore, what we\u2019ll have to do is create an entirely new file in memory and then replace the existing contents of Test.txt with this new file. Our new file will consist of three parts: a new first line; a carriage return-linefeed; and the existing contents of the file. To construct this file we start off by using this code to store the new first line in a variable named strFirstLine:<\/P>
strFirstLine = “This is the new first line in the text file.”\n<\/PRE>\n
We then use this line of code to concatenate the new first line, a carriage return-linefeed (using the VBScript constant vbCrLf) and the existing contents of the file (which we stored in the variable strContents):<\/P>
strNewContents = strFirstLine & vbCrLf & strContents\n<\/PRE>\n
All that\u2019s left now is to reopen Test.txt (for writing this time), then use the WriteLine method to replace the exiting contents with our new file:<\/P>
Set objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForWriting)\nobjFile.WriteLine strNewContents\n<\/PRE>\n
We then call the Close<\/B> method and, just like that, case closed. Well, OK, file<\/I> closed. Hey, we\u2019re just trying to do what Sherlock Holmes would do.<\/P>\n
Speaking of which, did you know that Sherlock Holmes had an older brother named Mycroft? It\u2019s true. Supposedly Mycroft had a lot of potential, but was too lazy to really do anything interesting or useful.<\/P>\n
Hey, what do you mean that sounds familiar? Never mind; you\u2019re probably thinking about some other daily scripting columnist.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I add a line to the top of a text file?— FT Hey, FT. You know, at one point in his career Sir Arthur Conan Doyle actually killed off Sherlock Holmes, figuring he\u2019d written everything anyone could ever write about the master detective. Public outcry soon made him change his […]<\/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":[40,3,4,14,5],"class_list":["post-69483","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-filesystemobject","tag-scripting-guy","tag-scripting-techniques","tag-text-files","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I add a line to the top of a text file?— FT Hey, FT. You know, at one point in his career Sir Arthur Conan Doyle actually killed off Sherlock Holmes, figuring he\u2019d written everything anyone could ever write about the master detective. Public outcry soon made him change his […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/69483","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=69483"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/69483\/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=69483"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=69483"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=69483"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}