[Resolvido]Como pegar apenas um trecho de uma string?

Olá Feras de plantão, boa noite.

Mais uma dúvida estarrecedora.

Numa consulta onde tenho um campo denominado Caminho contendo strinsgs como abaixo:

C:\Medicina\MEDICINA E - 2.2 CAIXA 01\ABRÃO DAHER ELIAS - PG007\00000001.tif

Como faço para pegar apenas a parte em vermelho?

Abraços, WSenna

se for so uma string so, sem problemas
aroga se for varias strings e diferentes uma da outra so tem jeito de houver sequencialização, simetria ou padronização nos strings
voce sabe se sao varios strings? o que tem de parecido nos strings e o que muda de um pra outro?
se voce responder essas duas perguntas fica mais simples
se todos os strings forem parecidos

no exemplo em anexo, supus que a ultima parte do string  "- PG007\00000001.tif"  tem sempre um "\" depois do codigo e um "- " a esquerda do codigo,
se for sempre assim da pra fazer para todos

veja em anexo

Opa Senna, tudo bem?
Alguns detalhes para extração da sua string


Se em todas as suas String existir a sequencia " - PG" então voce pode usar as funções MEIO e EmSeq combinadas como abaixo

Código:

Meio([SuaTabela]![SeuCampo];EmSeq(1;[SuaTabela]![SeuCampo];" - PG")+3;5)

Caso o seu arquivo ( 00000001.tif ) possua sempre o mesmo número de caracteres, então pode usar as funções Meio e Compr combinadas

Código:

Meio[SuaTabela]![SeuCampo];Compr([SuaTabela]![SeuCampo])-17;5)

Meus Caros Clebergyn e LiveBraim, bom dia.

Desculpem-me, mas na verdade deixei de expor a real situação. Na verdade o campo sofre uma certa diferença sim.
O trecho a que me refiri em vermelho na verdade quer dizer as páginas dos livros de registros e pode se apresentar como abaixo:

C:\Medicina\MEDICINA E - 2.2 CAIXA 01\ADELMO BORGES BRANDÃO - PG001\00000001.tif

ou

C:\Medicina\MEDICINA E - 2.2 CAIXA 01\ADILSON SILVEIRA DE ALMEIDA - V PG017\00000001.tif

ou ainda

C:\Medicina\MEDICINA E - 2.5 CAIXA 02\ABREU GONÇALVES DE ARAÚJO - VPG054\00000001.tif


Então, eu pretendo pegar o trecho que se situa entre o traço e a barra invertida.

Fazendo uma adaptação da sugestão do Amigo LiveBraim a coisa funcionou de certa forma,

Pág: Meio(tblPastas!Pastas;Compr(tblPastas!Pastas)-18;6) e obtive os resultados para a primeira e terceira hipóteses contudo a segunda ficou de fora.

Amigo Clebergyn, infelizmente meu access ainda é o 2003 pois na UFF ainda estamos patinando no Windows XP e Office 2003.

De qualquer forma fico grato pelas tentativas.

Abraços, WSenna

então, do jeito que voce especificou o anexo abaixo funciona

Oi Clebergyn.

Como lhe disse, meu access é 2003, não consigo abrir o seu exemplo.

Wsenna

wsenna e demais forumeiros, bom dia.
Peço licença para deixar aqui meu pitaco.

Meio([Teste];EmSeq([Teste];"PG");5)

wsenna, "Teste" é nome do campo que eu criei, mude para o seu!

Abraço

Olá Leandro, bom dia.

Amigão, não funcionou, apresentou a mensagem "Procedimento de chamada inválido".

Abraços, WSenna

Veja:

Olá Leandro.

Cara, essa questão já está deixando sem cabelos pois cabeça branca já a tenho.
Observe que no seu exemplo o resultado apresena-se como PG000, certo?
Esse trecho da string representa o número da página de registro do aluno num livro de matrícula e como você pode ver alguns alunos estão no verso da págiva daí o V que antecede alguns códigos.
O problema maior é que alguns digitadores colocam o V junto ao PG e outros dão um espaço tipo: VPG000 ou V PG000.

Como não posso e não devo alterar os valores já que são documentos microfilmados...

Abraços, WSenna

Vamos lá WSenna, agora vai hein...
Fiz vários testes e funcionou perfeitamente para os exemplos que vc deu e também para alguns que criei na tabela.

Segue anexo.

o código na consulta foi o descrito abaixo

Código:

Final: Meio(Direita([Tabela1]![String];30);EmSeq(1;Direita([Tabela1]![String];30);"-")+2;16-EmSeq(1;Direita([Tabela1]![String];30);"-"))

Boa tarde, Mestre
Já estava a amassar e ai vai
Mid(Mid(Mid(str, InStr(1, str, "-") + 1), InStr(1, Mid(str, InStr(1, str, "-") + 1), "-") + 1), 2, InStr(1, Mid(Mid(str, InStr(1, str, "-") + 1), InStr(1, Mid(str, InStr(1, str, "-") + 1), "-") + 1), "\") - 2)

Veja essa:

Meio([Teste];EmSeq(EmSeq([Teste];"Caixa");[Teste];"-")+1;EmSeq(EmSeq(EmSeq([Teste];"Caixa");[Teste];"-")+1;[Teste];"\")-EmSeq(EmSeq([Teste];"Caixa");[Teste];"-")-1)

Senhores, finalmente.

Testei ambas as soluções e bombaram perfeitamente.
Fico imensamente grato à todas as Feras que se prontificam a ajudar quando temos dificuldades, por vezes as mais cabeludas, e sempre na certeza de que serão resolvidas.

Abraços, WSenna