Extraer partes de un texto con Power Builder

En este post compartiré con ustedes una función para buscar partes de un texto o extraer partes de un texto con parámetros de inicio y fin con la cual indicaremos con que texto va a comenzar a buscar y con cual texto va a parar para devolvernos ese trozo de texto. Creamos una funcion llamada por ejemplo fn_buscar_en_texto()
Return: string
Parametros:

• Pass by: value – Type: string – Name: vtexto
• Pass by: value – Type: string – Name: texto_ini
• Pass by: value – Type: string – Name: texto_fin

long pos_ini, pos_fin, cte
string mensaje
cte = len(texto_ini)
pos_ini = pos(vtexto, texto_ini, 1)

IF pos_ini > 0 then
  pos_fin = pos(vtexto, texto_fin, pos_ini + cte)

   IF pos_fin > 0 then
     mensaje = mid(vtexto, pos_ini + cte, ((pos_fin - 1) - (pos_ini + cte) + 1))
   END IF
END IF

return mensaje

Para usar la funcion es muy simple por ejemplo: Queremos extraer de un texto la palabra source

string vtext = 'is the best source code site'
messagebox('', fn_buscar_en_texto(vtext, 'best', 'code'))