Script para eliminar caracteres no deseados

El siguiente script permite eliminar caracteres no deseados de un string, en este caso en concreto, elimina todos los que no sean una letra mayúscula o un número, pero si se quiere modificar los caracteres que han de eliminarse, simplemente se debe cambiar el argumento proporcionado a la función match y si fuese necesario jugar con la negación de las sentencias If. DEFINICIÓN:

public string gf_limpiar(string as_texto)

CÓDIGO:

string ls_aux integer li_pos, li_len ls_aux = '[^0-9^A-Z]' If match(as_texto, ls_aux) Then li_pos = 1 li_len = len(as_texto) Do Until li_pos > li_len If match(mid(as_texto, li_pos, 1), ls_aux) Then as_texto = mid(as_texto, 1, li_pos -1) & + mid(as_texto, li_pos + 1) li_len -- Else li_pos ++ End If Loop End If Return as_texto