<\/span><\/p>\n Microsoft Scripting Guy Ed Wilson here. After a long, hot and oppressive summer, Fall has descended upon Charlotte, <\/span>North Carolina<\/span><\/a> in the United States. The wife (who also scripts) and I decided to head down to the <\/span>Columbia, South Carolina<\/span><\/a> <\/span>Riverbanks Zoo<\/span><\/a>. It is an excellent place to spend a cool colorful day. One of the cool things about the Riverbanks Zoo is that they also have an awesome botanical garden. The cool thing about this time of the year is that you might also be able to see a cat playing with a pumpkin—not something one gets to see every day. In fact, as seen in the following image, it seems that this <\/span>script kitty<\/span><\/a> does not get to play with a pumpkin every day either. He seems completely engrossed. <\/span><\/p>\n <\/span><\/span> <\/p>\n Anyway, because I am on the road and Sean said I needed a day off, I decided to turn the keyboard over to him. Sean Kearney is a Microsoft MVP for Windows PowerShell. He is a network administrator, a Microsoft Certified Technology Specialist in Windows Server Virtualization and Configuration, and a <\/span>Microsoft Certified Systems Engineer<\/span><\/a>. Sean is a devoted and passionate computer enthusiast from the early 80s to the present day, having used just about every microcomputer ever. Sean taught himself computer programming with 65xxmachine code, working with many technologies\u2015but primarily Microsoft. Sean deals with “anything thrown at him,” from gnawed keyboards to recovery of Exchange servers to networking setups and isolating the realm of the unknown. Currently, he tests and deploys just about any new Microsoft Technology; he also deals with users in an enterprise-class environment. Sean loves Windows PowerShell, <\/span>Windows 7<\/span><\/a>, and Hyper-V, in that order. You will frequently find him hanging out online at <\/span>http:\/\/www.powershell.ca<\/span><\/a>. Here is his post.<\/span><\/p>\n <\/span><\/p>\n <\/span><\/p>\n Why do we use computers (or why did we at first)?<\/span><\/p>\n I mean as computer nerds, why?<\/span><\/p>\n They were fun. Today we are going to do something fun and kinda stupid (but mostly fun).<\/span><\/p>\n We will use Windows PowerShell to build a small scrolling marquee – just because, for no other reason.<\/span><\/p>\n All we will do is take a line of text or data and make it seem to scroll inside a simple marquee, even if the walls of the marquee are invisible for the moment. <\/span><\/p>\n $TEXT=’ Steve Ballmer is a cool guy with a cool job.’<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n To make it appear the letters are going across, we will get the position of the cursor from $HOST<\/strong> and keep it on that spot, redrawing the text slightly differently. So part one, remember where the cursor is.<\/span><\/p>\n $Position=$HOST.UI.RawUI.CursorPosition<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n Next we will use the substring()<\/b> method to draw one letter, then two, then three from the back to the front.<\/span><\/p>\n If the line has 44 characters, I draw the 1st and 1 character, the 2nd and two characters, the 3rd and 3 characters so that you get this effect.<\/span><\/p>\n S Overlaying this onto one spot will make it appear as if they are “scrolling” to the naked eye. <\/span><\/p>\n To make this occur I will set the CursorPosition<\/b> back to where I started every single time by using this command:<\/span><\/p>\n $HOST.UI.RawUI.CursorPosition=$Position<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n (Remember? We saved that before we started?)<\/span><\/p>\n Now I have to make this into a loop. I will have to repeat this for as many characters as are provided. I can grab this from the .Length<\/b> from the variable $TEXT<\/b>.<\/span><\/p>\n $Length=$TEXT.length<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n To simulate a real marquee, I am going to go from left to right. (You can play later and make it do what you want. This is my marquee, nyeah nyeah!)<\/span><\/p>\n To achieve this, I am going to use the PadLeft()<\/b> method to complete the blank space not shown in the word to make my lines seem to come in from the left. To know how many spaces to pad, I just take the length of the string and subtract whatever position I’m on. So, you will get this pattern:<\/span><\/p>\n 44 Characters total in my string<\/strong><\/span><\/p>\n 43 Spaces on the Left – 1 Letter on the right The pattern is the number of characters – the position equals the number of spaces to pad to the left.<\/span><\/p>\n That would produce a loop such as this for a basic marquee.<\/span><\/p>\n $TEXT=’This is just something I am going to display’ Foreach ($count in 1 .. $Length) { <\/span> <\/p>\n Now there are two problems. One, the text scrolled too fast and two, on a real Marquee it would disappear. So we have to have a second loop to make it go away. The count of the letters will not change but we will be doing the reverse, displaying fewer<\/i> instead of more every time, and working our way toward the end, too. Perhaps we’ll put in a START-SLEEP<\/b> to slow it down somewhat.<\/span><\/p>\n For those of you running Windows PowerShell on a Commodore 64, you negate the need for a START-SLEEP.<\/b> \ud83d\ude42<\/span><\/p>\n With our line of 44 characters our current process is somewhat different. We will display characters as follows:<\/span><\/p>\n Steve Ballmer is a cool guy with a cool job. <\/span><\/p>\n See the pattern? A substring()<\/b> starting with the following pattern:<\/span><\/p>\n Position 0 – 44 Characters Shown <\/span> <\/p>\n In addition to all this, I have now put in something to keep track of the position in the substring. Fortunately, the position is relative to the Length<\/b> of the String<\/b> vs. the Counter<\/b> position.<\/span><\/p>\n $Characters=$Length-$Counter<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n I can call up and Show<\/b> the $TEXT<\/b>, show those characters, and use a Padright<\/b> like this:<\/span><\/p>\n $TEXT.substring($Characters,$Count).padright($length,’ ‘)<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n A loop that will do all this will look like the following:<\/span><\/p>\n Foreach ($count in 0 ..$Length) { <\/span> <\/p>\n Wait a minute. Didn’t I say, “I hate to rewrite code that’s similar?”<\/span><\/p>\n Yes, I did. I guess this means I do not get to take the easy way out do I? Drat. Curses.<\/span><\/p>\n This is not hard. First, define the stuff we are using all the time, even if it is zero sometimes.<\/span><\/p>\n $START=1 <\/span> <\/p>\n Then create a second loop where we “flip” the positions at the end.<\/span><\/p>\n $START=($Length+1)-$START <\/span><\/p>\n <\/span><\/p>\n Now comes the tricky part. I’m going to make sure when I want to do the first loop, the first part of substring(0,$count)<\/b> is always 0<\/b>. When I do the second loop, it will always have the $characters<\/b> count. Some multiplication will fix that!<\/span><\/p>\n $TEXT.Substring(($zerocharacters*$characters),$count)<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n Then we have those pesky padleft()<\/b> and padright()<\/b> methods. Well, that can easily be resolved by using a little boolean<\/b> and mathematical trickery and an already existing variable we are using for the $characters<\/b>.<\/span><\/p>\n .padleft(([int]!$zerocharacters*$Length),’ ‘).padright(($zerocharacters*$Length),’ ‘)<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n What that nightmarish statement is really doing is giving us a value of (1 x Length)<\/b> on the Padleft()<\/b> method only when $ZeroCharacters<\/b> is making a Zero Value and the reverse for PadRight()<\/b> when it is the opposite.<\/span><\/p>\n *ACK* *UGH!!* *FAINT!!!*<\/span><\/p>\n So boys and girls, sneak in some START-SLEEP –milliseconds 50<\/b> for some flavor and we RELEASE THE KRAKEN<\/i><\/b>!<\/span><\/p>\n <\/span><\/span><\/p>\n function global:start-marquee ($text) { <\/p>\n # Clear the console of rubbish # Are how much information the user keyed in # Mark our Start end End points for our Marquee loop # Get the position of the Cursor on the screen and move it # Do this over and repeatedly and over …. # Keep everthing on the same line # Remember how many characters for that OTHER loop # Put exactly WHAT we what WHERE we want WHEN we want # Time a quick ‘POWER Nap’ – Oh sorry, was that Bad? As seen in the following figure, the text now scrolls. <\/span><\/p>\n <\/span><\/span><\/p>\n <\/span><\/p>\n <\/span><\/p>\n A static screenshot does not really show the picture. I have uploaded <\/span>a video demonstration of the script in action<\/span><\/a>. Check it out. There you have it – silly, but fun. Thus confirming two key facts; Windows PowerShell is both fun and useful, and Sean really needs to find more to do with his spare time.<\/span><\/p>\n Thanks again to Sean for sharing his script and knowledge with us. Don’t forget to join us tomorrow for Weekend Scripter.<\/span><\/p>\n We invite you to follow us on <\/span>Twitter<\/span><\/a> or <\/span>Facebook<\/span><\/a>. If you have any questions, send email to us at <\/span>scripter@microsoft.com<\/span><\/a> or post them on the <\/span>![](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/0511.WES-10-23-10-01.jpg\")
<\/span><\/p>\n\n
\n
\n
St
Ste
Stev
Steve
Steve
Steve B<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n\n
\n
\n
42 Spaces on the Left – 2 Letters on the right
41 Spaces on the Left – 3 Letters on the right
40 Spaces on the Left – 4 Letters on the right<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n\n
$Position=$HOST.UI.RawUI.CursorPosition
$Length=$TEXT.length<\/p>\n
$HOST.UI.RawUI.CursorPosition=$Position
$text.Substring(0,$count).padleft($Length,’ ‘)
}
<\/span>
<\/span><\/p>\n<\/blockquote>\n<\/div>\n\n
teve Ballmer is a cool guy with a cool job.
eve Ballmer is a cool guy with a cool job.
ve Ballmer is a cool guy with a cool job.
e Ballmer is a cool guy with a cool job.<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n\n
Position 1 – 43 Characters Shown
Position 2 – 42 Characters Shown
Position 3 – 41 Characters Shown
Position 4 – 40 Characters Shown<\/span><\/span>
<\/i><\/b><\/p>\n<\/blockquote>\n<\/div>\n\n
\n
\n
$characters=$length-$count
$HOST.UI.RawUI.CursorPosition=$Position
$text.Substring($characters,$count).padRight($Length,’ ‘)
}<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n\n
$END=$Length
$ZeroCharacters=0<\/i><\/b><\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n\n
$END=$Length-$END
$ZeroCharacters=1-$ZeroCharacters<\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n\n
\n
\n
CLEAR-HOST <\/p>\n
$length=$text.Length <\/p>\n
$Start=1
$End=$Length
$zerocharacters=0 <\/p>\n
$Position=$HOST.UI.RawUI.CursorPosition
$Position.X=4
$Position.Y=5 <\/p>\n
do {
foreach ($count in $start .. $end) { <\/p>\n
$HOST.UI.RawUI.CursorPosition=$Position <\/p>\n
$characters=($length – $count) <\/p>\n
$text.Substring(($zerocharacters*$characters),$count).padleft(([int]!$zerocharacters*$Length),’ ‘).padright(($zerocharacters*$Length),’ ‘)<\/p>\n
start-sleep -milliseconds 50
}
# Flip the counters around
$start=($length+1)-$start
$end=$length-$end
$zerocharacters=1-$zerocharacters
} Until ($start -eq -9) # You can change this to wait for a key if you REAAALY want \ud83d\ude42
} <\/span><\/span><\/p>\n<\/blockquote>\n<\/div>\n![](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/1016.WES-10-23-10-02.jpg\")
<\/span><\/p>\n