Pessoal,

 

Deparei-me com um Código de Barras diferente e preciso de ajuda.

Tenho que ler o seguinte Código de Barras (vou colocar os números para o entendimento):

 

 

O problema é que só consigo ler os 13 primeiros (9771678378005) e os 5 finais (00227) não, mesmo que eu tampe os 13 primeiros, não consigo ler os 5 finais.

Este código de barras é de uma revista, onde os 13 primeiros são referentes ao nome da revista e os 5 finais são referentes ao mes/ano da revista.

 

Alguém saberia me dizer como faço para ler tudo junto no mesmo text ou separado mesmo, cada qual em um text?

 

Vale lembrar que entre os 13 primeiros e os 5 finais tem um espaço, mas que poderá ser ignorado na leitura ou não.

 

Se alguém tiver uma rotina sobre isso e puder me enviar para eu ver como é feito, ficaria muito grato, meu e-mail que suporta arquivos grandes é snifranca@com4.com.br.

 

Puxa...

 

Ninguém pra ajudar???

 

NINGUÉM Pra dar uma dica...

 

Olá,

 

Nesse caso, acho que vc poderia fazer o seguinte:

 

Já que no cód. de barras tem um espaço, é só fazer uma rotina que identifique o esse espaço, sendo assim dizer q os próximos números são a outra parte do cód.

 

t+

 

Eriston

ou,

 

Private Sub Command1_Click()

    x = Mid(txtcod, 1, 13)
    y = Mid(txtcod, 15, 5)

txt1 = x   ' os 13 primeiros nrs...
txt2 = y   ' os 5 últimos
End Sub

Eriston,

 

Valeu pela dica, vou fazer alguns testes por aqui.

 

Provavelmente eu coloque os 5 n.ºs finais pro pessoal fazer na mão mesmo.

 

Caso alguém tenha mais alguma dica ou informação de como eu resolver isso, ficarei muito grato.