home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / vmsnet / tpu / 513 < prev    next >
Encoding:
Internet Message Format  |  1992-11-20  |  2.1 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sdd.hp.com!elroy.jpl.nasa.gov!nntp-server.caltech.edu!SOL1.GPS.CALTECH.EDU!CARL
  2. From: carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick)
  3. Newsgroups: vmsnet.tpu
  4. Subject: Re: How to EDIT files via a COMMAND FIle
  5. Date: 21 Nov 1992 00:14:34 GMT
  6. Organization: HST Wide Field/Planetary Camera
  7. Lines: 37
  8. Distribution: world
  9. Message-ID: <1ejv1aINNeqa@gap.caltech.edu>
  10. References: <01GRDAR6Q8RM001XBD@utrcgw.utc.com>
  11. Reply-To: carl@SOL1.GPS.CALTECH.EDU
  12. NNTP-Posting-Host: sol1.gps.caltech.edu
  13.  
  14. In article <01GRDAR6Q8RM001XBD@utrcgw.utc.com>, "frank (Chip) Dyer x9568 ..Electrical Design" writes:
  15. > EVE/TPU experts:
  16. >
  17. > I have about 50 files with the number "100C000" (hexadecimal) in them.  I
  18. > need to edit all these files and replace "100C000" with "1010000."  Is it
  19. > possible to do this through a non-interactive (automatic) process?
  20. >
  21. > Ideally I want to have a COMMAND procedure do a GLOBLAL REPLACE on
  22. > "100C000" - something like
  23. >
  24. >    $ EDIT/TPU/NOINIT/NODISplay/COMmand=SYS$INPUT in.src/OUTput=OUT.SRC
  25. >    EVE_REPLACE("100A","*!!*!!**")
  26. >    $ EXIT
  27. >
  28. > Is this possible?  I have never written or used any TPU procedures, so
  29. > any help you can provide will greatly be appreciated.  I use EVE quite a
  30. > bit, but as far as writing or using TPU procedures, I have never done
  31. > that.
  32.  
  33. $    EDIT/TPU/NODISPLAY/NOSECTION/COMMAND=SYS$INPUT: in.src/OUTPUT=out.src
  34. POSITION(CREATE_BUFFER('',GET_INFO(COMMAND_LINE,'FILE_NAME')));
  35. LOOP    R := SEARCH("100C000", FORWARD);
  36.     EXITIF R=0;
  37.     POSITION(R);
  38.     ERASE(R);
  39.     COPY_TEXT("1010000");
  40. ENDLOOP;
  41. WRITE_FILE(CURRENT_BUFFER, GET_INFO(COMMAND_LINE,'OUTPUT_FILE'));
  42. EXIT;
  43. --------------------------------------------------------------------------------
  44. Carl J Lydick | INTERnet: CARL@SOL1.GPS.CALTECH.EDU | NSI/HEPnet: SOL1::CARL
  45.  
  46. Disclaimer:  Hey, I understand VAXen and VMS.  That's what I get paid for.  My
  47. understanding of astronomy is purely at the amateur level (or below).  So
  48. unless what I'm saying is directly related to VAX/VMS, don't hold me or my
  49. organization responsible for it.  If it IS related to VAX/VMS, you can try to
  50. hold me responsible for it, but my organization had nothing to do with it.
  51.