Separar conjunto de letras e numeros

[LEM 0]

Olá.

Boa tarde.

 

Seguinte, preciso de uma luz dos amigos.

 

Estou utilizando Visual Basic 6.0 e preciso efetuar uma separação em uma informação passada ao programa atraves da leitura de um codigo de barras.

O código contem 14 caracteres, porém eu preciso quebrar isso e capturar o 4, 5, 6 e o 7 caracter que é o que me interessa.

Essa leitura é feita em um campo Text.

 

Se alguem poder me ajudar, desde já eu agradeço.

 

ATT.

[LEM 0]

Utilizando a função:

- Left

- Mid

- Right

 

Mid(Text.Text, 4, 4)

Obtenho o 4 5 6 e 7 caracter.

Onde o primeiro 4 é o caracter de inicio e o outro 4 é quantidade de caracteres após ele.

[scorpio 7]

Não entendi.

Poste um exemplo de como fica o codigo de barras no TXT.

[Claudio Neto 3]

Acredito que seu números estarão fora de ordem né, sendo assim precisará de um for next, um if, um isnumeric e um if, assim:

 

For i = 0 to len(text1)

If mid(text1, i, 1) = 4 then

variável = variável & mid(text1, i, 1)

End if

Next

 

Se tiver dúvidas avise