Power Builder - RECORRER UNA CADENA

HOLA AMIGOS COMO HAGO PARA RECORRE UNA CADENA HASTA UNA DETERMINADA PALABRA Y CAPTURAR Y CAPTURAR ESE VALOR RECORRIDO

ESTE ES UN EJMPLO DE POWER BUILDER ;NOTA2

LO QUE QUIERO ES CAPTURAR HASTA EL PUNTO Y COMA.
GRACIAS

hola, tendrias q recorrer toda la cadena usando el mid para verificar cada caracter.

seria algo asi

long ll_aux
string ls_Cadena,ls_nueva_cadena
ls_Cadena="ESTE ES UN EJMPLO DE POWER BUILDER ;NOTA2"

for ll_aux=1 to len(ls_cadena)
if mid(ls_cadena,ll_aux,1)=";" then
ls_nueva_cadena=mid(ls_cadena,1,ll_aux - 1)
exit
end if
next

un saludo desde argentina

Este código no solo te permite obtener la primera parte de una cadena separada por punto y coma, sino te permite separarlos todas las subcadenas que estan separadas por punto y coma. y lo puedes poner en un array o insertarlo en un datawindow.

prueba el siguiente script pegándolo en un button y tambien puedes crear un datawindow external con una sola columna
en el siguiente ejemplo, permite recorrer por los nombres de mis amores y separlos.

string ls_cadena_total, ls_cadena
long ll_i, ll_len
integer li_nro

ls_cadena_total = 'ana;anita;brenda;carmen;devora;eliza;faviola;giovanna;johanna;melissa;sandra'
If right(ls_cadena_total,1) <> ";" then ls_cadena_total += ";"

for ll_i = 1 to len(ls_cadena_total) + li_nro
ls_cadena = left(ls_cadena_total,pos(ls_cadena_total,";") - 1)
ls_cadena_total = replace(ls_cadena_total,1,len(ls_cadena)+1,"")
dw_1.insertrow(ll_i)
li_nro++
dw_1.setitem(ll_i,1,ls_cadena)
Next