Soma em Visual Basic

[Guest Ely]

Olá,

Alguém sabe como somar, por exemplo 1A000020 + 10 = 1A000030 (como no Excel) ?

Preciso automatizar um sistema com números de série e não encontro uma forma de calcular no VB com letras incluídas (como no exemplo).

Agradeço qualquer ajuda!

[kuroi]

o q eu faria seria dividir a string com Mid(). se a string seguir um padrão, e você souber esse padrão não deve ser dificil.

[Guest Ely]

Poderia dar um exemplo?

[Graymalkin]

Alguém sabe como somar, por exemplo 1A000020 + 10 = 1A000030 (como no Excel) ?

O Excel aqui não faz essa "soma"... :unsure:

Preciso automatizar um sistema com números de série e não encontro uma forma de calcular no VB com letras incluídas (como no exemplo).

Como o kuroi sugeriu você pode usar o Mid() para quebrar a string, fazer a conta e depois remontá-la, sendo que, como ele disse, isso só vai valer realmente se esta seguir um padrão. Veja um exemplo:

alfanumérico = "1A000020"
somar = 10
    
pos_alfa = InStr(1, alfanumérico, "A")
alfa = Mid(alfanumérico, 1, pos_alfa)
número = Mid(alfanumérico, pos_alfa + 1, Len(alfanumérico) - posalfa)
novonúmero = Format(Val(número) + somar, String(Len(número), "0"))

nalfanumérico = alfa & novonúmero
    
MsgBox nalfanumérico

Repare ali que estou procurando especificamente pela letra "A" e que o valor será somado ao valor que vem depois da letra.

Abraços,

Graymalkin

[Guest Visitante]

Valeeu!! é exatamente o que procuro!!

Obrigado!