PoshCode Archive  Hex Artifact Content

Artifact c86ff7c6fcdee2bdf5fff5f05f252e071e6b1e09f5759013300054d11a3aaf5f:

  • File WriteFileName.ps1 — part of check-in [38a7a635d8] at 2018-06-10 13:16:26 on branch trunk — Write multiline overwriting messages, typically for iterating through long file names. (user: James Gentile size: 3549)

0000: 23 20 65 6e 63 6f 64 69 6e 67 3a 20 61 73 63 69  # encoding: asci
0010: 69 0d 0a 23 20 61 70 69 3a 20 70 6f 77 65 72 73  i..# api: powers
0020: 68 65 6c 6c 0d 0a 23 20 74 69 74 6c 65 3a 20 57  hell..# title: W
0030: 72 69 74 65 46 69 6c 65 4e 61 6d 65 0d 0a 23 20  riteFileName..# 
0040: 64 65 73 63 72 69 70 74 69 6f 6e 3a 20 57 72 69  description: Wri
0050: 74 65 20 6d 75 6c 74 69 6c 69 6e 65 20 6f 76 65  te multiline ove
0060: 72 77 72 69 74 69 6e 67 20 6d 65 73 73 61 67 65  rwriting message
0070: 73 2c 20 74 79 70 69 63 61 6c 6c 79 20 66 6f 72  s, typically for
0080: 20 69 74 65 72 61 74 69 6e 67 20 74 68 72 6f 75   iterating throu
0090: 67 68 20 6c 6f 6e 67 20 66 69 6c 65 20 6e 61 6d  gh long file nam
00a0: 65 73 2e 0d 0a 23 20 76 65 72 73 69 6f 6e 3a 20  es...# version: 
00b0: 30 2e 31 0d 0a 23 20 74 79 70 65 3a 20 66 75 6e  0.1..# type: fun
00c0: 63 74 69 6f 6e 0d 0a 23 20 61 75 74 68 6f 72 3a  ction..# author:
00d0: 20 4a 61 6d 65 73 20 47 65 6e 74 69 6c 65 0d 0a   James Gentile..
00e0: 23 20 6c 69 63 65 6e 73 65 3a 20 43 43 30 0d 0a  # license: CC0..
00f0: 23 20 78 2d 70 6f 73 68 63 6f 64 65 2d 69 64 3a  # x-poshcode-id:
0100: 20 32 38 37 37 0d 0a 23 20 78 2d 61 72 63 68 69   2877..# x-archi
0110: 76 65 64 3a 20 32 30 31 32 2d 30 31 2d 31 32 54  ved: 2012-01-12T
0120: 30 36 3a 32 37 3a 31 30 0d 0a 23 20 78 2d 70 75  06:27:10..# x-pu
0130: 62 6c 69 73 68 65 64 3a 20 32 30 31 32 2d 30 37  blished: 2012-07
0140: 2d 32 38 54 31 37 3a 33 31 3a 30 30 0d 0a 23 0d  -28T17:31:00..#.
0150: 0a 23 0d 0a 23 20 66 75 6e 63 74 69 6f 6e 73 20  .#..# functions 
0160: 74 6f 20 70 72 69 6e 74 20 6f 76 65 72 77 72 69  to print overwri
0170: 74 69 6e 67 20 6d 75 6c 74 69 2d 6c 69 6e 65 20  ting multi-line 
0180: 6d 65 73 73 61 67 65 73 2e 20 20 54 65 73 74 20  messages.  Test 
0190: 73 63 72 69 70 74 20 77 69 6c 6c 20 61 63 63 65  script will acce
01a0: 70 74 20 61 20 66 69 6c 65 2f 66 69 6c 65 73 70  pt a file/filesp
01b0: 65 63 2f 64 69 72 20 61 6e 64 20 69 74 65 72 61  ec/dir and itera
01c0: 74 65 20 74 68 72 6f 75 67 68 20 61 6c 6c 20 66  te through all f
01d0: 69 6c 65 73 20 69 6e 20 61 6c 6c 20 73 75 62 64  iles in all subd
01e0: 69 72 73 20 70 72 69 6e 74 69 6e 67 20 61 20 74  irs printing a t
01f0: 65 73 74 20 6d 65 73 73 61 67 65 20 2b 20 66 69  est message + fi
0200: 6c 65 20 6e 61 6d 65 20 74 6f 20 64 65 6d 6f 73  le name to demos
0210: 74 72 61 74 65 2e 0d 0a 23 20 65 2e 67 2e 20 50  trate...# e.g. P
0220: 53 3e 2e 5c 77 72 69 74 65 66 69 6c 65 6e 61 6d  S>.\writefilenam
0230: 65 2e 70 73 31 20 63 3a 5c 0d 0a 23 20 63 61 6c  e.ps1 c:\..# cal
0240: 6c 20 57 72 69 74 65 46 69 6c 65 4e 61 6d 65 20  l WriteFileName 
0250: 5b 73 74 72 69 6e 67 5d 0d 0a 23 20 61 66 74 65  [string]..# afte
0260: 72 20 64 6f 6e 65 20 77 72 69 74 69 6e 67 20 73  r done writing s
0270: 65 72 69 65 73 20 6f 66 20 6f 76 65 72 77 72 69  eries of overwri
0280: 74 69 6e 67 20 6d 65 73 73 61 67 65 73 2c 20 63  ting messages, c
0290: 61 6c 6c 20 57 72 69 74 65 46 69 6c 65 4e 61 6d  all WriteFileNam
02a0: 65 45 6e 64 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e  eEnd....function
02b0: 20 57 72 69 74 65 46 69 6c 65 4e 61 6d 65 20 28   WriteFileName (
02c0: 20 5b 73 74 72 69 6e 67 5d 24 77 72 69 74 65 73   [string]$writes
02d0: 74 72 20 29 20 20 20 20 20 20 20 20 20 20 20 20  tr )            
02e0: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 74 68              # th
02f0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 70 72 69 6e  is function prin
0300: 74 73 20 6d 75 6c 74 69 6c 69 6e 65 20 6d 65 73  ts multiline mes
0310: 73 61 67 65 73 20 6f 6e 20 74 6f 70 20 6f 66 20  sages on top of 
0320: 65 61 63 68 20 6f 74 68 65 72 2c 20 67 6f 6f 64  each other, good
0330: 20 66 6f 72 20 69 74 65 72 61 74 69 6e 67 20 74   for iterating t
0340: 68 72 6f 75 67 68 20 66 69 6c 65 6e 61 6d 65 73  hrough filenames
0350: 20 77 69 74 68 6f 75 74 20 66 69 6c 6c 69 6e 67   without filling
0360: 0d 0a 7b 20 20 20 20 20 20 20 20 20 20 20 20 20  ..{             
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03a0: 20 20 20 20 20 20 23 20 74 68 65 20 63 6f 6e 73        # the cons
03b0: 6f 6c 65 20 77 69 74 68 20 61 20 68 75 67 65 20  ole with a huge 
03c0: 77 61 6c 6c 20 6f 66 20 74 65 78 74 2e 20 20 43  wall of text.  C
03d0: 61 6c 6c 20 74 68 69 73 20 66 75 6e 63 74 69 6f  all this functio
03e0: 6e 20 74 6f 20 70 72 69 6e 74 20 65 61 63 68 20  n to print each 
03f0: 6f 66 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20  of the filename 
0400: 6d 65 73 73 61 67 65 73 2c 20 74 68 65 6e 20 63  messages, then c
0410: 61 6c 6c 20 57 72 69 74 65 46 69 6c 65 4e 61 6d  all WriteFileNam
0420: 65 45 6e 64 20 77 68 65 6e 20 64 6f 6e 65 0d 0a  eEnd when done..
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0470: 20 20 20 20 23 20 62 65 66 6f 72 65 20 70 72 69      # before pri
0480: 6e 74 69 6e 67 20 61 6e 79 74 68 69 6e 67 20 65  nting anything e
0490: 6c 73 65 2c 20 73 6f 20 74 68 61 74 20 79 6f 75  lse, so that you
04a0: 20 61 72 65 20 6e 6f 74 20 70 72 69 6e 74 69 6e   are not printin
04b0: 67 20 69 6e 74 6f 20 61 20 6c 6f 6e 67 20 66 69  g into a long fi
04c0: 6c 65 20 6e 61 6d 65 20 77 69 74 68 20 65 78 74  le name with ext
04d0: 72 61 20 63 68 61 72 61 63 74 65 72 73 20 66 72  ra characters fr
04e0: 6f 6d 20 69 74 20 76 69 73 69 62 6c 65 2e 0d 0a  om it visible...
04f0: 20 20 20 20 69 66 20 28 24 48 6f 73 74 2e 4e 61      if ($Host.Na
0500: 6d 65 20 2d 6d 61 74 63 68 20 27 69 73 65 27 29  me -match 'ise')
0510: 20 0d 0a 20 20 20 20 7b 20 77 72 69 74 65 2d 68   ..    { write-h
0520: 6f 73 74 20 24 77 72 69 74 65 73 74 72 3b 20 72  ost $writestr; r
0530: 65 74 75 72 6e 20 7d 0d 0a 20 20 20 20 20 20 20  eturn }..       
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0580: 20 20 20 20 20 0d 0a 20 20 20 20 69 66 20 28 24       ..    if ($
0590: 67 6c 6f 62 61 6c 3a 77 66 6e 6c 61 73 74 6c 65  global:wfnlastle
05a0: 6e 20 2d 65 71 20 24 6e 75 6c 6c 29 20 7b 24 67  n -eq $null) {$g
05b0: 6c 6f 62 61 6c 3a 77 66 6e 6c 61 73 74 6c 65 6e  lobal:wfnlastlen
05c0: 3d 30 7d 20 20 20 20 20 20 20 20 20 20 20 20 20  =0}             
05d0: 20 0d 0a 20 20 20 20 24 63 74 6f 70 3d 5b 63 6f   ..    $ctop=[co
05e0: 6e 73 6f 6c 65 5d 3a 3a 63 75 72 73 6f 72 74 6f  nsole]::cursorto
05f0: 70 0d 0a 20 20 20 20 24 63 6c 65 66 74 3d 5b 63  p..    $cleft=[c
0600: 6f 6e 73 6f 6c 65 5d 3a 3a 63 75 72 73 6f 72 6c  onsole]::cursorl
0610: 65 66 74 09 0d 0a 0d 0a 09 24 6f 6c 64 77 72 69  eft......$oldwri
0620: 74 65 73 74 72 6c 65 6e 3d 24 77 72 69 74 65 73  testrlen=$writes
0630: 74 72 2e 6c 65 6e 67 74 68 0d 0a 20 20 20 20 0d  tr.length..    .
0640: 0a 20 20 20 20 24 72 65 6d 3d 24 6e 75 6c 6c 0d  .    $rem=$null.
0650: 0a 09 24 77 72 69 74 65 6c 69 6e 65 73 20 3d 20  ..$writelines = 
0660: 5b 6d 61 74 68 5d 3a 3a 64 69 76 72 65 6d 28 24  [math]::divrem($
0670: 77 72 69 74 65 73 74 72 2e 6c 65 6e 67 74 68 2b  writestr.length+
0680: 24 63 6c 65 66 74 2c 20 5b 63 6f 6e 73 6f 6c 65  $cleft, [console
0690: 5d 3a 3a 62 75 66 66 65 72 77 69 64 74 68 2c 20  ]::bufferwidth, 
06a0: 5b 72 65 66 5d 24 72 65 6d 29 0d 0a 09 23 69 66  [ref]$rem)...#if
06b0: 20 28 24 72 65 6d 20 2d 6e 65 20 30 29 20 7b 24   ($rem -ne 0) {$
06c0: 77 72 69 74 65 6c 69 6e 65 73 2b 3d 31 7d 0d 0a  writelines+=1}..
06d0: 0d 0a 20 20 20 20 24 63 77 65 20 3d 20 28 24 77  ..    $cwe = ($w
06e0: 72 69 74 65 6c 69 6e 65 73 2d 28 28 5b 63 6f 6e  ritelines-(([con
06f0: 73 6f 6c 65 5d 3a 3a 62 75 66 66 65 72 68 65 69  sole]::bufferhei
0700: 67 68 74 2d 31 29 2d 24 63 74 6f 70 29 29 20 20  ght-1)-$ctop))  
0710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0730: 20 20 20 20 20 23 20 63 61 6c 63 75 6c 61 74 65       # calculate
0740: 20 77 68 65 72 65 20 74 65 78 74 20 68 61 73 20   where text has 
0750: 73 63 72 6f 6c 6c 20 62 61 63 6b 20 74 6f 2e 0d  scroll back to..
0760: 0a 20 20 20 20 69 66 20 28 24 63 77 65 20 2d 67  .    if ($cwe -g
0770: 74 20 30 29 20 7b 24 63 74 6f 70 2d 3d 28 24 63  t 0) {$ctop-=($c
0780: 77 65 29 7d 0d 0a 20 20 20 20 0d 0a 09 77 72 69  we)}..    ...wri
0790: 74 65 2d 68 6f 73 74 20 22 24 77 72 69 74 65 73  te-host "$writes
07a0: 74 72 22 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 20  tr" -nonewline  
07b0: 20 20 0d 0a 09 24 67 6c 6f 62 61 6c 3a 77 66 6e    ...$global:wfn
07c0: 6f 6c 64 63 74 6f 70 3d 5b 63 6f 6e 73 6f 6c 65  oldctop=[console
07d0: 5d 3a 3a 63 75 72 73 6f 72 74 6f 70 0d 0a 09 24  ]::cursortop...$
07e0: 67 6c 6f 62 61 6c 3a 77 66 6e 6f 6c 64 63 6c 65  global:wfnoldcle
07f0: 66 74 3d 5b 63 6f 6e 73 6f 6c 65 5d 3a 3a 63 75  ft=[console]::cu
0800: 72 73 6f 72 6c 65 66 74 0d 0a 09 0d 0a 09 69 66  rsorleft......if
0810: 20 28 24 67 6c 6f 62 61 6c 3a 77 66 6e 6c 61 73   ($global:wfnlas
0820: 74 6c 65 6e 20 2d 67 74 20 24 77 72 69 74 65 73  tlen -gt $writes
0830: 74 72 2e 6c 65 6e 67 74 68 29 0d 0a 09 7b 0d 0a  tr.length)...{..
0840: 09 09 77 72 69 74 65 2d 68 6f 73 74 20 28 22 20  ..write-host (" 
0850: 22 20 2a 20 28 24 67 6c 6f 62 61 6c 3a 77 66 6e  " * ($global:wfn
0860: 6c 61 73 74 6c 65 6e 2d 24 77 72 69 74 65 73 74  lastlen-$writest
0870: 72 2e 6c 65 6e 67 74 68 29 29 20 2d 6e 6f 6e 65  r.length)) -none
0880: 77 6c 69 6e 65 20 20 20 20 20 20 20 20 20 20 20  wline           
0890: 20 20 20 20 20 20 20 20 20 23 20 74 68 69 73 20           # this 
08a0: 6f 6e 6c 79 20 6f 76 65 72 77 72 69 74 65 73 20  only overwrites 
08b0: 70 72 65 76 69 6f 75 73 6c 79 20 77 72 69 74 74  previously writt
08c0: 65 6e 20 74 65 78 74 20 69 66 20 6e 65 65 64 65  en text if neede
08d0: 64 2c 20 73 6f 20 6e 6f 20 6e 65 65 64 20 74 6f  d, so no need to
08e0: 20 63 6f 6d 70 75 74 65 20 62 75 66 66 65 72 20   compute buffer 
08f0: 6d 6f 76 65 6d 65 6e 74 20 6f 6e 20 74 68 69 73  movement on this
0900: 0d 0a 09 7d 0d 0a 09 0d 0a 09 0d 0a 09 24 67 6c  ...}.........$gl
0910: 6f 62 61 6c 3a 77 66 6e 6c 61 73 74 6c 65 6e 20  obal:wfnlastlen 
0920: 3d 20 24 6f 6c 64 77 72 69 74 65 73 74 72 6c 65  = $oldwritestrle
0930: 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 24 63 74  n....    if ($ct
0940: 6f 70 20 2d 6c 74 20 30 29 20 7b 24 63 74 6f 70  op -lt 0) {$ctop
0950: 3d 24 63 6c 65 66 74 3d 30 7d 0d 0a 09 5b 63 6f  =$cleft=0}...[co
0960: 6e 73 6f 6c 65 5d 3a 3a 63 75 72 73 6f 72 74 6f  nsole]::cursorto
0970: 70 3d 24 63 74 6f 70 0d 0a 09 5b 63 6f 6e 73 6f  p=$ctop...[conso
0980: 6c 65 5d 3a 3a 63 75 72 73 6f 72 6c 65 66 74 3d  le]::cursorleft=
0990: 24 63 6c 65 66 74 0d 0a 7d 0d 0a 66 75 6e 63 74  $cleft..}..funct
09a0: 69 6f 6e 20 57 72 69 74 65 46 69 6c 65 4e 61 6d  ion WriteFileNam
09b0: 65 45 6e 64 20 28 20 24 73 77 69 74 63 68 3d 24  eEnd ( $switch=$
09c0: 74 72 75 65 29 20 20 20 20 20 20 20 20 20 20 20  true)           
09d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09f0: 20 20 20 20 20 20 20 20 20 20 20 23 20 63 61 6c             # cal
0a00: 6c 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20  l this function 
0a10: 77 68 65 6e 20 79 6f 75 20 61 72 65 20 64 6f 6e  when you are don
0a20: 65 20 6f 76 65 72 77 72 69 74 69 6e 67 20 6d 65  e overwriting me
0a30: 73 73 61 67 65 73 20 6f 6e 20 74 6f 70 20 6f 66  ssages on top of
0a40: 20 65 61 63 68 20 6f 74 68 65 72 0d 0a 7b 20 20   each other..{  
0a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 61               # a
0ab0: 6e 64 20 62 65 66 6f 72 65 20 70 72 69 6e 74 69  nd before printi
0ac0: 6e 67 20 73 6f 6d 65 74 68 69 6e 67 20 65 6c 73  ng something els
0ad0: 65 2e 20 20 44 65 66 61 75 6c 74 20 73 77 69 74  e.  Default swit
0ae0: 63 68 3d 24 74 72 75 65 2c 20 77 68 69 63 68 20  ch=$true, which 
0af0: 70 72 69 6e 74 73 20 61 20 6e 65 77 6c 69 6e 65  prints a newline
0b00: 2c 20 24 66 61 6c 73 65 20 72 65 73 74 6f 72 65  , $false restore
0b10: 73 20 63 75 72 73 6f 72 20 70 6f 73 69 74 69 6f  s cursor positio
0b20: 6e 20 73 61 6d 65 20 6c 69 6e 65 2e 0d 0a 20 20  n same line...  
0b30: 20 20 69 66 20 28 24 48 6f 73 74 2e 4e 61 6d 65    if ($Host.Name
0b40: 20 2d 6d 61 74 63 68 20 27 69 73 65 27 29 20 0d   -match 'ise') .
0b50: 0a 20 20 20 20 7b 20 72 65 74 75 72 6e 20 7d 0d  .    { return }.
0b60: 0a 20 20 20 20 69 66 20 28 24 67 6c 6f 62 61 6c  .    if ($global
0b70: 3a 77 66 6e 6f 6c 64 63 74 6f 70 20 2d 6e 65 20  :wfnoldctop -ne 
0b80: 24 6e 75 6c 6c 20 2d 61 6e 64 20 24 67 6c 6f 62  $null -and $glob
0b90: 61 6c 3a 77 66 6e 6f 6c 64 63 6c 65 66 74 20 2d  al:wfnoldcleft -
0ba0: 6e 65 20 24 6e 75 6c 6c 29 20 0d 0a 20 20 20 20  ne $null) ..    
0bb0: 7b 0d 0a 20 20 20 20 20 20 20 20 5b 63 6f 6e 73  {..        [cons
0bc0: 6f 6c 65 5d 3a 3a 63 75 72 73 6f 72 74 6f 70 3d  ole]::cursortop=
0bd0: 24 67 6c 6f 62 61 6c 3a 77 66 6e 6f 6c 64 63 74  $global:wfnoldct
0be0: 6f 70 0d 0a 20 20 20 20 20 20 20 20 5b 63 6f 6e  op..        [con
0bf0: 73 6f 6c 65 5d 3a 3a 63 75 72 73 6f 72 6c 65 66  sole]::cursorlef
0c00: 74 3d 24 77 66 6e 6f 6c 64 63 6c 65 66 74 20 20  t=$wfnoldcleft  
0c10: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 28 24 67  ..        if ($g
0c20: 6c 6f 62 61 6c 3a 77 66 6e 6f 6c 64 63 6c 65 66  lobal:wfnoldclef
0c30: 74 20 2d 6e 65 20 30 20 2d 61 6e 64 20 24 73 77  t -ne 0 -and $sw
0c40: 69 74 63 68 29 0d 0a 20 20 20 20 20 20 20 20 7b  itch)..        {
0c50: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72  ..            wr
0c60: 69 74 65 2d 68 6f 73 74 20 22 22 0d 0a 20 20 20  ite-host ""..   
0c70: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 20 20 20       }..    }   
0c80: 20 0d 0a 20 20 20 20 24 67 6c 6f 62 61 6c 3a 77   ..    $global:w
0c90: 66 6e 6f 6c 64 63 74 6f 70 3d 24 6e 75 6c 6c 0d  fnoldctop=$null.
0ca0: 0a 20 20 20 20 24 67 6c 6f 62 61 6c 3a 77 66 6e  .    $global:wfn
0cb0: 6c 61 73 74 6c 65 6e 3d 24 6e 75 6c 6c 0d 0a 20  lastlen=$null.. 
0cc0: 20 20 20 24 67 6c 6f 62 61 6c 3a 77 66 6e 6f 6c     $global:wfnol
0cd0: 64 63 6c 65 66 74 3d 24 6e 75 6c 6c 0d 0a 7d 0d  dcleft=$null..}.
0ce0: 0a 0d 0a 20 20 20 20 77 72 69 74 65 2d 68 6f 73  ...    write-hos
0cf0: 74 20 22 43 68 65 63 6b 69 6e 67 3a 20 22 20 2d  t "Checking: " -
0d00: 6e 6f 6e 65 77 6c 69 6e 65 0d 0a 20 20 20 20 64  nonewline..    d
0d10: 69 72 20 24 61 72 67 73 20 2d 72 65 63 75 72 73  ir $args -recurs
0d20: 65 20 2d 65 61 20 30 20 2d 66 6f 72 63 65 20 7c  e -ea 0 -force |
0d30: 20 25 7b 57 72 69 74 65 46 69 6c 65 4e 61 6d 65   %{WriteFileName
0d40: 20 28 22 24 28 24 5f 2e 66 75 6c 6c 6e 61 6d 65   ("$($_.fullname
0d50: 29 20 2e 2e 2e 22 2a 28 67 65 74 2d 72 61 6e 64  ) ..."*(get-rand
0d60: 6f 6d 20 2d 6d 69 6e 20 31 20 2d 6d 61 78 20 31  om -min 1 -max 1
0d70: 30 30 29 29 7d 0d 0a 20 20 20 20 0d 0a 20 20 20  00))}..    ..   
0d80: 20 23 57 72 69 74 65 46 69 6c 65 4e 61 6d 65 20   #WriteFileName 
0d90: 22 46 69 6e 61 6c 20 54 65 73 74 20 53 74 72 69  "Final Test Stri
0da0: 6e 67 2e 22 0d 0a 20 20 20 20 57 72 69 74 65 46  ng."..    WriteF
0db0: 69 6c 65 4e 61 6d 65 45 6e 64 0d 0a 20 20 20 20  ileNameEnd..    
0dc0: 77 72 69 74 65 2d 68 6f 73 74 20 22 44 6f 6e 65  write-host "Done
0dd0: 21 20 65 78 69 74 69 6e 67 2e 22 0d 0a           ! exiting."..