code:

---

 BREAK ON
 ?"Checking for loan file"
 SLEEP 1
 $handler="R:\WHANDLER\DATA\"
 $bkloc="R:\WHANDLER\BADLOANS\"
 $tspace="R:\WHANDLER\BADLOAN-WK\"
 $loan="C:\10133442.1"
 $loan=SPLIT($loan,"\")[1]
 ?$loan
 IF 0=EXIST($bkloc+$loan)
       ?"Copying original file to - "+$bkloc
       COPY "C:\"+$loan $bkloc
 ENDIF
 IF 0=EXIST($tspace+$loan)
       ?"Copying file into a Temporary Workspace to - "+$tspace
       COPY "C:\"+$loan $tspace
 ENDIF

 SLEEP 2

 $wkfil=$tspace+$loan
 $wkfil1=$tspace+$loan+"A"
 IF 0=EXIST($wkfil1)
       COPY $wkfil $wkfil1
 ENDIF
 GET $
 IF Open(1,$wkfil)
 ENDIF
 IF Open(2,$wkfil1,5)
 ENDIF
 $line=ReadLine(1)
 WHILE (@error = 0)
       SELECT
       CASE
             $line=" "+@crlf
             IF (WriteLine(2,"") <> 0)
             ENDIF
       CASE
             $line=INSTR($line,"")
             IF (WriteLine(2,"") <> 0)
             ENDIF
       ENDSELECT
       $line=ReadLine(1)
 LOOP
 close(1)
 close(2)
 ? "complete"
 COPY $wkfil1 $wkfil /h
 DEL $wkfil1
 ?"Please check your loan: "+$loan
 SLEEP 2
  

---

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 $

---

quote:

---

Anyway, thanks.. I was just looking for a unix "tr" work-alike for a similar situation.

---

code:

---

 $tspace="R:\WHANDLER\BADLOAN-WK\"
 $loan="C:\10133442.1"
 SHELL '%COMSPEC% /C qreplace.EXE '+chr(34)+$tspace+$loan+chr(34)+' "\x20\x1B\x0D\x0A" ""'

---

code:

---

 BREAK ON
 ?"Checking for loan file"
 SLEEP 1
 $handler="R:\WHANDLER\DATA\"
 $bkloc="R:\WHANDLER\BADLOANS\"
 $tspace="R:\WHANDLER\BADLOAN-WK\"
 ?"PLEASE CLOSE OUT OF THE LOAN, AND IF NEEDED, THE LOAN HANDLER - FIRST!"
 ?
 ?"Type in the loan number, e.g. 1000133442"
 ?">"
 GETS $loan
 ;INPUT($loan)
 ?"Is this a .1 or .2 file? Enter in .1, for example"
 ?">"
 GETS $ext
 ;INPUT($ext)
 $loan="10"+RIGHT($loan,6)+$ext
 ?$loan
 IF 0=EXIST($bkloc+$loan)
       ?"Copying original file to - "+$bkloc
       COPY $handler+$loan $bkloc
       IF 0=EXIST($tspace+$loan)
             ?"Copying file into a Temporary Workspace to - "+$tspace
             COPY $handler+$loan $tspace
             SHELL '%COMSPEC% /C qreplace.EXE '+chr(34)+$tspace+$loan+chr(34)+' "\x20\x1B+\x0A" ""'
             SHELL '%COMSPEC% /C qreplace.EXE '+chr(34)+$tspace+$loan+chr(34)+' "\x1B" ""'
             ;MOVE $tspace+$loan $handler ; will be uncommented when code is tested and complete
             ?"Please check your loan: "+$loan
       ENDIF
 ELSE
       ?"Loan file already exists.."
       ?"Please call the Support Desk for further assistance"
       ?"Speed Dial #nn"
 ENDIF
 ?"Process is complete"
 SLEEP 2

 FUNCTION INPUT($str)
       GETS $str
       IF $str=""
             "PLEASE ENTER SOMETHING!"?
             INPUT($str)
       ENDIF
 ENDFUNCTION
  

---