Re: Text processing on VMS

On 10/13/2024 3:26 PM, Arne Vajhøj wrote:

On 10/13/2024 2:57 PM, Dave Froble wrote:

Using SEARCH and then a simple Basic program is not that much work.
>
For example:
>
SEARCH File1.txt "some text" /output=File2.txt
>
1    On Error Goto 90
>
10    Open "file2" For Input as File 1%
     Open "File2" For Output as File 2%
>
20    Linput #1%, Z$
     Print #2%, Mid(Z$,?,?)
     Goto 20
>
90    GoTo 99 If ERR=11
     On Error GoTo 0
>
99    End
>
Simple
No having to know whatever is your favorite utility
I seriously doubt there would be much fewer characters
>
No, I didn't try it ...

 I have confidence in your VMS Basic skills.

But I am curious about how you iterate over the file.
Are there any benefits from this way compared to:
handler eof_handler
end handler
when error use eof_handler
     while 1 = 1
         get #1
         ! do whatever
     next
end when
?
Arne