[Info-vax] Text processing on VMS

[Dave Froble]

On 10/13/2024 10:35 PM, Arne Vajhøj 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
>
> ?
>
> Arne
>

Yes, I like to keep things very simple, otherwise it hurts my brain ...

If I still have one, not sure ...


-- 
David Froble                       Tel: 724-529-0450
Dave Froble Enterprises, Inc.      E-Mail: davef at tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA  15486