.....................
<!-- START var_1 -->
.....................
<!-- END var_1 -->
.....................
<!-- START var_2 -->
.....................
<!-- END var_2 -->
.....................

<!-- START var_1 -->
.....................
<!-- END var_1 -->

global type gf_get_blocks from function_object
end type

forward prototypes
global function long gf_get_blocks (string l_block_format, string l_block_bound_start, string l_block_bound_end, ref string l_text, ref string l_blocks[])
end prototypes

global function long gf_get_blocks (string l_block_format, string l_block_bound_start, string l_block_bound_end, ref string l_text, ref string l_blocks[]);string s_block_start, s_block_end, arrnull[]
long l_block_find_start, l_block_find_end, l_find_start, i

l_blocks = arrnull

IF NOT (len(l_text) >  0 ) THEN
	return  0 
END IF

IF NOT (len(l_block_format) >  0 ) THEN
	s_block_start = l_block_bound_start
	s_block_end = l_block_bound_end
ELSE
	s_block_start = Left( l_block_format, Pos( l_block_format, l_block_bound_start ) )
	s_block_end = Right( l_block_format, len( l_block_format ) - LastPos( l_block_format, l_block_bound_end ) + Len( l_block_bound_end ) )
END IF

i =  1 
l_find_start =  1 
DO
	l_block_find_start = Pos( l_text, s_block_start, l_find_start ) + Len( s_block_start )
	IF l_block_find_start > len(s_block_start) THEN
		l_block_find_end = Pos( l_text, s_block_end, l_block_find_start ) - l_block_find_start 
		l_blocks[i] = Mid( l_text, l_block_find_start, l_block_find_end )
		i++
	ELSE
		EXIT
	END IF
	l_find_start = l_block_find_start + Len( l_blocks[i -  1 ] ) + Len( s_block_end )
LOOP WHILE ( l_block_find_start > len( s_block_start ) )

return Upperbound( l_blocks )
end function

global type gf_replace_global from function_object
end type

forward prototypes
global subroutine gf_replace_global (ref string l_text, string l_str_old, string l_str_new)
end prototypes

global subroutine gf_replace_global (ref string l_text, string l_str_old, string l_str_new);long start_pos =  1 

start_pos = Pos( l_text, l_str_old, start_pos )
DO WHILE start_pos >  0 
    l_text = Replace( l_text, start_pos, Len( l_str_old ), l_str_new )
    start_pos = Pos( l_text, l_str_old, start_pos + Len( l_str_new ) )
LOOP

end subroutine

len(l_str_old)

len(l_str_new)