Página 1 de 1

Extrair texto entre dois "ponto e virgula" numa string

Enviado: 18 Nov 2021 às 22:30
por efs2016
Galera, preciso de uma ajudazinha. Quem puder me ajudar, ficarei mto grato.
Preciso extrair um texto dentro de uma string que está entre " ";
Exemplo:

0051234539850164;0051234539850542;EMERSON DE PAULA;EMERSON DE PAULA;

Preciso retornar apenas o primeiro 'EMERSON DE PAULA'. A posição do segundo 'ponto e virgula' sempre é 34. O problema é que a posição do terceiro 'ponto e virgula' varia muito.
Tentei a InStr, a Len, a Right, a Left e outras, mas nao consegui.
Alguem poderia me ajudar?

Re: Extrair texto entre dois "ponto e virgula" numa string

Enviado: 19 Nov 2021 às 00:02
por osvaldomp
Olá, @efs2016 .

Considerando o string em A1, experimente:
Código: Selecionar todos
Debug.Print Mid([A1], 35, InStr(35, [A1], ";") - 35)

Re: Extrair texto entre dois "ponto e virgula" numa string

Enviado: 19 Nov 2021 às 10:46
por DJunqueira
Essa é bem fácil com a função FILTROXML().

Re: Extrair texto entre dois "ponto e virgula" numa string

Enviado: 19 Nov 2021 às 21:29
por efs2016
Preciso em VBA. Vou tentar fazer em VBA.

Re: Extrair texto entre dois "ponto e virgula" numa string

Enviado: 19 Nov 2021 às 21:38
por osvaldomp
efs2016 escreveu: 19 Nov 2021 às 21:29 Preciso em VBA. Vou tentar fazer em VBA.
Você não conseguiu identificar que o comando que passei está em VBA ? :?:

Re: Extrair texto entre dois "ponto e virgula" numa string

Enviado: 19 Nov 2021 às 22:08
por efs2016
Desculpe... mandei para a pessoa errada... :D

Re: Extrair texto entre dois "ponto e virgula" numa string

Enviado: 19 Nov 2021 às 22:09
por efs2016
osvaldomp escreveu: 19 Nov 2021 às 00:02 Olá, @efs2016 .

Considerando o string em A1, experimente:
Código: Selecionar todos
Debug.Print Mid([A1], 35, InStr(35, [A1], ";") - 35)
Preciso em VBA