[Resolvido]Separar string

Olá Feras de plantão, bom dia.

Num campo Pasta onde encontro uma string como "C:\Medicina\Jonathan Dias Gonçalves\Loucura.TIF" como faço para decompor em três outros campos a saber?

Curso: Medicina
Aluno: Jonathan Dias Gonçalves
Imagem Loucura.Tif

Note-se que o que pretendo são os valores entre as barras invertidas e que esse valor pode variar de tamanho.

Abraços, WSenna

Bom dia Mestre,

Você pode nesse caso usar a função Split

Ex:

Código:



Dim VarSplit()
Dim VarRetorno, Curso,Aluno,Imagem

VarSplit = split("C:\Medicina\Jonathan Dias Gonçalves\Loucura.TIF", "\")

VarRetorno = Ubound(VarSplit)

Imagem = VarRetorno
Aluno = VarSplit(VarRetorno -1)
Curso = Varsplit(VarRetorno -2)

MsgBox Imagem & " - " &  Aluno & " - " & Curso



espero ter ajudado

Olá a todos;

Não desfazendo a ajuda do amigo Charles, aproveite e veja no link da minha assinatura, o código "Separa Nomes".

Exemplo a funfar:

Grandes Feras, boa tarde.

Ao Amigão Chsestrem digo que eu já havia tentado esta forma, mas resultou que nem sempre o campo mensionado se apresenta com o mesmo número de barras invertidas.
Contudo, fico grato da mesma forma.
Ao Mestre JPaulo tenho a dizer que é realmente esplêndido, caiu como uma luva.

Abraços, a ambos,

WSenna

Obrigado pelo retorno o forum agradece.

Bom final de semana

Pessoal boa noite,

Me perdoem por talvez não saber iniciar corretamente as perguntas por aqui, acompanho à anos vocês e ja me ajudaram muito.

Estou com uma Tabela que vem do SQL SERVER da minha empresa que traz entre muitos campos, uma campo (exemplo abaixo) que preciso separar cada informação e sinceramente não faço a menor idea de como fazer isso. Queria muito a ajuda de vocês.

Exemplo do campo que vem da tabela que mencionei.

{"message_id":815533011,"type":"autoreply","text":"Seja bem vindo(a), à Toyshow! Nosso horário de atendimento é de Segunda à Sexta das 09:00 às 18:00. Aos Sábados das 09:00 às 18:00 e aos Domingos e Feriados das 10:00 às 16:00. Deixe sua solicitação e o número do seu pedido, aguarde o retorno dentro dos horários informados. Muito Obrigado!\t","transport":"insta_i2crm","client_id":310987169,"operator_id":42240,"dialog_id":27421547,"channel_id":23013,"photo":null,"coordinates":null,"audio":null,"pdf":null,"client":{"id":310987169,"phone":"[insta] 1821528832","client_phone":null,"name":"aandraderenato","assigned_name":null,"external_id":null},"hook_type":"outbox","request_id":null,"attachments":[],"is_new_request":false,"is_new_client":false,"insta_comment":false,"extra_data":{},"is_new":false,"event_time":"2021-04-03T01:19:06Z"}