Re: Text processing on VMS

On 2024-10-13, Arne Vajhøj <arne@vajhoej.dk> wrote:

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
>

That's how a Pascal programmer would write it. David however clearly
prefers Dartmouth Basic. :-)

BTW, I think your approach is a lot more readable than David's style. :-)

Simon.

--
Simon Clubley, clubley@remove_me.eisner.decus.org-Earth.UFP
Walking destinations on a map are further away than they appear.