code:

---

cls
break on
;$a = "1   Today                       8:15 PM        pdi.exe"
$a=''
;;$b=''

$o = createobject("VBscript.RegExp")
$o.Global = 1
;$o.Pattern = '(\d+)\s+([\S]+)\s+(\d+:\d+\s\w+)\s+([^\s]+)'
               ;digit
                   ;space
                        ;any char
                             ;space
                                 ;digit
                                           ;\word
$o.Pattern = '([\S\+)'
for each $b in $o.Execute($a)
   for $i=0 to 1
    ? $b.SubMatches($i)
   next
next  
$o=0
get $

---