Manter apenas caracteres distintos

[julianacampag]

Olá,

Tenho um campo de texto com vários caracteres repitidos, e preciso criar um campo que contenha apenas os caracteres distintos.

EX: 'aaaaaaabbbbcbbbccccaaaaa', preciso retornar apenas 'abc'.

Desde já agradeço.

[mario_sergio_ti]

Entendo...

Vamos padronizar os separadores antes então:

     FOR X=1 to len(KeepChar([LOTE], ',.;:/\[]{}()$#@%¨&*_+-=<>ºà')) step 1

          replace([LOTE], left(KeepChar([LOTE], ',.;:/\[]{}()$#@%¨&*_+-=<>ºà') ,X) ';');

     NEXT [X];

[mario_sergio_ti]

Vou estar fazendo uns testes e te falo.

[julianacampag · Accepted solution]

Solução!!

[mario_sergio_ti]

Teria como colocar o script aqui?

Não posso abrir o arquivo.

Consegui de ajudar em alguma coisa?

[julianacampag]

Segue o script.

Base:

LOAD 'aaaaaaaaaaaaabbbbbbcccjjjjasgsudyga'        as campo,

     Len('aaaaaaaaaaaaabbbbbbcccjjjjasgsudyga')    as qtde

AutoGenerate 1;

While:

LOAD Mid(campo, IterNo(), 1)    as sep,

     campo,

     qtde

Resident Base

While IterNo() <= qtde;

DROP Table Base;

Distinto:

LOAD Concat(Distinct sep)        as separados

Resident While;