[Resolvido]extrair numero de campo entre espaços

prezadados tenho o seguinte dado

REF.  NF.  3  2390/1  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

VL. NFE 3  2401/1  -  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

a missão é o seguinte tenho que extrair apenas os numeros 2390 e 2401
ja tentei direita e esquerda e como os caracteres não possuem o mesmo tamanho não fica correto
alguma sugestão?

Se for sempre três espaços antes de chegar ao número, você pode usar isso para começar a contar após o terceiro espaço. Tambem pode usar o inStr para localizar a barra e então contar 4 números antes dela e 1 depois. Pesquise pelo inStr no F1 do VBA e veja o que consegue.

Com a permissão do Críquio e usando o que ele informou:

Meio([string];EmSeq(EmSeq(EmSeq([string];"nf");[string];" ")+1;[string];" ")+1;4)

Nesse caso a função InStr é a mesma que EmSeq.

Nesse exemplo eu usei uma consulta e o campo da tabela chama-se pelo nome String.

Para o VBA a função Meio chama-se MID.

Valeu! vou bater cabeça daqui a pouco retorno

adaptei o codigo e obtive o seguinte resultado! apenas uma ideia, teria como eu começar a extrair apartir da barra e parar no primeiro espaço? ou seja da direita para a esquerda?


Consulta5[th]HISTÓRICO[/th][th]Expr1[/th]

REF. NF. 3 2390/1 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX	3 2
VL. NFE 3 2401/1 - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX	240

Bem pensado!!!

Meio([string];EmSeq([string];"/")-4;4)

exibiu a seguinte msg " Houve um erro na compilação desta função", sendo que seleciona o MID

Então assim:

Mid([string],InStr([string],"/")-4,4)

mesma msg! pensei na função direita ou esquerda até o espaço, pode ser feito ? coisa do tipo Direita([CAMPO];até barra?

Mas me diga, está fazendo isso em uma consulta ou no VBA?

Se for na consulta é assim: Meio([string];EmSeq([string];"/")-4;4)

No VBA: Mid([string],InStr([string],"/")-4,4)

"string" é o nome do campo.

fiz na consulta utilizando
Meio([string];EmSeq([string];"/")-4;4)

Colocou em um campo virtual?

Veja o exemplo.

valeu pela força! a consulta funcionou perfeitamente
no entanto me deparei com um registro assim, observei que nesse registro não existe a /


Cópia de ConsGiba[th]K[/th][th]HISTÓRICO[/th]

#Erro	VL. NFE 2450 - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
#Erro	VL. NFE 2451 - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Então:


IIf(EmSeq(string;"/")=0;Meio([string];EmSeq([string];"-")-5;4);Meio([string];EmSeq([string];"/")-4;4))


Sempre na consulta.

fiz apenas uma adaptação usei

Expr1: SeImed(EmSeq([HISTÓRICO];"/")=0;Meio([HISTÓRICO];EmSeq([HISTÓRICO];"-")-7;4);Meio([HISTÓRICO];EmSeq([HISTÓRICO];"/")-4;4))

com a sua configuração retornou apenas 2 números, mas valeu pela força
uma ultima coisa, teria como vc explicar a parte do EmSeq?

EmSeq:
A grosso modo digo-lhe que ela analisa se existe um caractere numa sequência e retorna a posição dessa caractere nessa sequência, ex:

EmSeq("Giba";"b") = 3

Mas se quiser uma explicação mais detalhada, até porque essa função não faz só isso, veja: http://office.microsoft.com/pt-br/access-help/funcao-instr-HA001228857.aspx#BMexamples


Não esqueça o Resolvido no tópico, ok?

Abraço

ok! valeu pela força e pela explicação