![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
<\/H2>\n <\/H2>\nHey, scripting Guy! I have about 5,000 text files that have unwanted tabs at the end of each line. How can I write a script that removes these unwanted tabs?
— TT<\/P>![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n
| \n Note<\/B>. If this looks \u2013 and sounds \u2013 a little different than the typical Hey, Scripting Guy!<\/I> column, well, there\u2019s a good reason for that: that\u2019s because it is<\/I> a little different than the typical Hey, Scripting Guy!<\/I> column. The original column for October 8, 2007 had to be taken down because it referred to a third-party company (flattering references, but references nonetheless). We were given the option of \u201creworking\u201d the article, but there was really no way to do that without rewriting the entire column. Therefore, we decided to just post the code and the explanation of the code and call it good. We hope you enjoy this column as much as we\u2019ve enjoyed bringing it to you!<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nSet objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForReading)<\/p>\n Do Until objFile.AtEndOfStream\n strLine = objFile.ReadLine\n If Right(strLine, 1) = Chr(9) Then\n intLength = Len(strLine)\n strLine = Left(strLine, intLength – 1)\n strContents = strContents & strLine & vbCrLf\n End If\nLoop<\/p>\n objFile.Close<\/p>\n Set objFile = objFSO.OpenTextFile(“C:\\Scripts\\Test.txt”, ForWriting)<\/p>\n objFile.Write strContents<\/p>\n objFile.Close\n<\/PRE>\n We start this script off the same way we start off many of our text file scripts: by defining a pair of constants (ForReading and ForWriting) that will be used when we go to open our text file. After the constants are defined, we 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> Once the file is open we set up a Do Until loop that runs until the file\u2019s AtEndOfStream<\/B> property is True. (Which is just a fancy way of saying that we\u2019ll keep looping until we\u2019ve read the entire file.) Inside that loop, we use the ReadLine<\/B> method to read the first line in the file, storing the value in a variable named strLine:<\/P> That brings us to this line of code:<\/P> Although TT said that all the lines in his text files end in an unwanted tab we decided to use this line of code to verify that a given line ends with a tab character. How do we do that? By using the Right<\/B> function to take a peek at the very last character in the string. If this character has an ASCII value of 9 that can mean only one thing: it\u2019s a tab character. And that means that it has to go.<\/P>\n OK, so then how do we remove that unwanted tab from the end of the string? Well, to begin with, we use the Len<\/B> function to determine the total number of characters in the string, storing that value in a variable named intLength. We then use the Left<\/B> function to grab all the characters except<\/I> the very last one. (That\u2019s what the construction intLength \u2013 1<\/B> is for.) In other words, suppose our string was this: cat<\/B>. The length of the string (total characters) is 3; the length minus 1 is, um, hold on a second \u2026 2. Therefore, if we start at the beginning of the string and take the first two characters, that means our new string is equal to this: ca<\/B>.<\/P>\n Just in case there was any confusion as to what we were doing.<\/P>\n From there we use this line of code to add the modified string value (plus a carriage return-linefeed character) to a variable named strContents:<\/P> And then we loop around and repeat this process with the next line in the text file, removing the unwanted tab and then tacking that modified line onto the end of strContents. And so on and so on and so on.<\/P>\n By the time we exit the loop we will have constructed a brand-new version of our file in memory, a version where all the unwanted tabs have been removed. In order to write this new version back to the actual file itself (C:\\Scripts\\Test.txt) we first need to close the file, then use the OpenTextFile method to reopen it, this time for writing:<\/P> Once the file is open we use the Write<\/B> method to write the new version of the file to Test.txt. As soon as that\u2019s done we call the Close<\/B> method to close the file a final time and then we call it a day.<\/P>\n Good question: why didn\u2019t we just use the Replace function to replace all the tabs? Well, we could have, except for one thing: it\u2019s possible that there are other tabs in the file, tabs that shouldn\u2019t<\/I> be removed. The Replace functions would remove all<\/I> tabs; the approach we showed you only removes tabs found at the end of a line.<\/P>\n As long as we\u2019re on the subject, it\u2019s also possible that some lines could have more than one unwanted tab tacked onto the end. Is it possible to remove multiple tabs at the end of a line? You bet it is. Here\u2019s a modified Do Loop that features a second<\/I> Do Until loop; in that second loop, we check the last character in the string and, if it\u2019s a tab, we remove it. We then check the last character in our modified string; if that happens to be a tab we remove it as well. This continues until we\u2019ve removed all the tab characters found at the end of the line.<\/P>\n Here\u2019s the modified code:<\/P> Hey, scripting Guy! I have about 5,000 text files that have unwanted tabs at the end of each line. How can I write a script that removes these unwanted tabs?— TT Note. If this looks \u2013 and sounds \u2013 a little different than the typical Hey, Scripting Guy! column, well, there\u2019s a good reason for […]<\/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-63853","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 about 5,000 text files that have unwanted tabs at the end of each line. How can I write a script that removes these unwanted tabs?— TT Note. If this looks \u2013 and sounds \u2013 a little different than the typical Hey, Scripting Guy! column, well, there\u2019s a good reason for […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63853","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=63853"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63853\/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=63853"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=63853"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=63853"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} |