Home / HomePage / Scripts / vbscript spinbar

vbscript spinbar

A simple spinbar (used to indicate progress) in vbscript.

  1. Wscript.stdout.Write "|" 'start spinbar 1
  2. Wscript.stdout.Write chr(8) & "/" 'update spinbar 2
  3. Wscript.stdout.Write chr(8) & "-" 'update spinbar 3
  4. Wscript.stdout.Write chr(8) & "\" 'update spinbar 4
  5. Wscript.stdout.Write chr(8) & "|" 'update spinbar 5
  6. Wscript.stdout.Write chr(8) & "/" 'update spinbar 6
  7. Wscript.stdout.Write chr(8) & "-" 'update spinbar 7
  8. Wscript.stdout.Write chr(8) & "\" 'update spinbar 8
  9. Wscript.stdout.Write chr(8) & "|" 'update spinbar 9
  10. Wscript.stdout.WriteLine chr(8) & "... done" 'exit spinbar 10
If your code is fairly linear, you can sprinkle these through it, and the spinbar will update as the script progresses. chr(8) is, of course, a backspace.

Here's something similar and a bit less repetetive:

  1. Dim spincounter, i
  2. for i = 1 to 500
  3.         Spin
  4.         Wscript.Sleep(50)
  5. Next
  6.  
  7. Function Spin
  8. Select Case spincounter
  9.         Case 0 Wscript.stdout.write chr(8) & "|"
  10.         Case 1 Wscript.stdout.write chr(8) & "/"
  11.         Case 2 Wscript.stdout.write chr(8) & "-"
  12.         Case 3 Wscript.stdout.write chr(8) & "\"
  13. End Select
  14. spincounter= spincounter + 1
  15. if spincounter > 3 Then spincounter = 0
  16. End Function



Post a comment

Your Name or E-mail ID (mandatory)

 


 RSS of this page