Quebrar String

Galera esse programa busca numeros dentro de uma string, muito util quando precisamos quebrar uma string em uma posição onde tem um numero mas nao sabemos quais são essas posições.

def variable i as int no-undo.
def variable s as char no-undo.

s = “ProgresseTecnologia5blogspot6com”.

do i = 1 to length(s):
if lookup(substring(s,i,1),”0,1,2,3,4,5,6,7,8,9″) <> 0
then message “Numero encontrado” view-as alert-box.
end.

FDantas

Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *