EXTRAIR A ÚLTIMA PALAVRA DE UMA VARIÁVEL STRING

 Tópico anterior Próximo tópico Novo tópico

EXTRAIR A ÚLTIMA PALAVRA DE UMA VARIÁVEL STRING

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#495678 - 14/11/2020 17:18:59

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Última edição em 14/11/2020 17:20:05 por IVANPI

Olá pessoal!

Tenho o seguinte código abaixo:

Private Sub cmdAnexo_Click()
   Dim strAnexo      As String

   dlgAnexo.Filter = 'Arquivo do tipo (*.pdf)|*.pdf|'
   dlgAnexo.ShowOpen
   strAnexo = dlgAnexo.FileName

   lblAnexo.Caption = Right(strAnexo, 4)    <----- Aqui eu extraio os 4 últimos caracteres da string, e preenche o caption da label
End Sub


O que necessito na verdade é extrair o nome do documento PDF propriamente dito. Exemplo:

Digamos que o caminho do arquivo, que a CommomDialog me informa através da propriedade FileName seja esse:
'C:\Users\PC\Downloads\documento.pdf'

O que precisava recuperar da string é a expressão 'documento.pdf', ou somente 'documento'

Sei que lá no Excel temos funções como direita, arrumar, substituir, localizar, que podem fazer esse serviço, mas e no VBA, como poderia fazer isso?

Ou a CommomDialog já poderia dar essa ajudinha?

Valeu pessoal!




Resposta escolhida #495679 - 14/11/2020 17:27:20

JABA
CABO FRIO
Cadast. em:Agosto/2005


Última edição em 14/11/2020 17:33:28 por JABA

Cara, existe várias maneiras de se fazer isso. Uma maneira fácil que não dá muito trabalho é usar o SPLIT.

Ex:

Dim vetor As Variant

vetor = Split('C:\Users\PC\Downloads\documento.pdf','\')

Msgbox vetor(UBound(vetor))



_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#495683 - 16/11/2020 21:35:37

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Citação:
:
Cara, existe várias maneiras de se fazer isso. Uma maneira fácil que não dá muito trabalho é usar o SPLIT.

Ex:

Dim vetor As Variant

vetor = Split('C:UsersPCDownloadsdocumento.pdf','')

Msgbox vetor(UBound(vetor))



Certinho, era isso mesmo. Valeu.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por IVANPI em 16/11/2020 21:35:51