Silverfrost Logo About Us | Contact Us
 

Text search/replace

INTEGER FUNCTION FIND_REPLACE_EDIT_STRING@(E,STR,REPLACEMENT,  &
       BACKWARDS,WHOLE_WORD,CASE_SENSITIVE,REPLACE_ALL)
INTEGER E(24)                     ! EDIT_INFO block
CHARACTER*(*) STR             ! String to search for
CHARACTER*(*) REPLACE       ! Replacement string
LOGICAL BACKWARDS            ! True to perform backward search
LOGICAL WHOLE_WORD          ! Seek a whole word
LOGICAL CASE_SENSITIVE      ! Case must match
LOGICAL REPLACE_ALL           ! Continue until the end or begining of file

This function searches for the specified string and replaces it with the replacement string. The function returns a count of the number of replacements made.

 

 

Copyright © 1999-2017 Silverfrost Limited