HP3000-L Archives

October 2001, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: mpe scripting and file extracts
From:
Campbell Fethers <[log in to unmask]>
Reply To:
Campbell Fethers <[log in to unmask]>
Date:
Tue, 23 Oct 2001 17:32:35 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (24 lines) 
Following a suggestion from John Penney, here is a vastly improved CI only
script modified for more than one instance of "whatever" in the input file:

setvar keyval,"whatever"
file x=input file
file y=$newpass ;rec=-80,,f,ascii ;nocctl ;msg
run fcopy.pub.sys ;info='from=*x ;to=*y ;subset="!keyval",1'
reset x
file y=$oldpass
while finfo("*y","eof") > 0
  input tgtval<*y
  setvar tgtval,rht(tgtval,-len(keyval)-1)
  showvar tgtval
  comment Process tgtval, here...
endwhile
reset y


HTH
Campbell Fethers

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2