×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
I am having fun with writing to the IFS but now its time to update a an
IFS file and its not going as easil;y as I expected.
I want to see if a specific string is in the first 500 columns of the
file, and if the string is found, replace the string with another
value. For now, the two strings are the same length if that makes a
difference.
Here's what I have currently. It works, but not correctly.
eval wSeeking = 'ho ho ho'
for wNdx = 1 to 500
callp lSeek(FD: 8: -7)
callp Read(FD: %addr(wValue): 8)
if wValue = wSeeking
eval wNewValue = 'hee hee '
callp lSeek(FD: 8: -7)
callp Write(FD: %addr(wNewValue): 8)
endif
endfor
One problem I know I am having is that I am setting the file over by 8,
not by 1.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
