Power Builder - Exportar imagen a excel

// Función: f_cuenta_char

// Descripción: Cuenta todas las ocurrencias de as_char en  la cadena as_source

//	Ambito: publica

//	Argumentos: as_source {cadena de la que se desea borrar las ocurrencias de as_char}

//				   as_char   {caracter a ser contado de la cadena as_source}

//	Retorna: Integer {numero de ocurrencias encontradas}

//////////////////////////////////////////////////////////////////////////////////////

int	li_pos

int ncuenta=0

li_pos = Pos (as_source, as_char, 1)

do while li_pos > 0

	ncuenta+=1

	as_source = Left (as_source, li_pos - 1) + &

					Right (as_source, Len (as_source) - li_pos)

	li_pos = Pos (as_source, as_char, 1)

loop

return ncuenta

//f_global_replace(fuente,buscar,poner)

/*

A String Occurrence Search and Replace Routine

The following code demonstrates a string occurrence search and replace routine.

This routine works generically for any string. For example, 

if old_str = "red" and new_str = "green", all occurrences of 

 "red" inside of mystring will be replaced with "green".

*/

int start_pos=1,len_look_for

len_look_for = len(look_for)

//find the first occurrence of look_for ...

start_pos = Pos(source,look_for,start_pos)

//only enter the loop if you find whats in look_for

DO WHILE start_pos > 0

	//replace look_for with replace_with ...

	source = Replace(source,start_pos,Len_look_for,replace_with)

	//find the next occurrence of look_for

	start_pos = Pos(source,look_for,start_pos+Len(replace_with))

LOOP

return source