Ajuda Incremento

[thicomp]

Pessoal, é o seguinte

Preciso fazer um incremento em um número alfanumérico...

Tenho um código assim, por exemplo:

LETR_0001

e preciso fazer com que incremente sempre o 0001

Alguém pode me ajudar

Abçs

[bareta]

que adicione mais um a ele...

<%

x="bareta_0001"

cod=cint(right(x,4))+1

x2=left(x,len(x)-len(cod)+1)

response.write x2

%>

assim já diciona é so uma questão de ahuste de ideias ai

[.Andreia.]

<%
palavra = "LETR_0001"

numero = Cint(right(palavra,instr(strreverse(palavra),"_") - 1))
numero = numero +1

response.write numero
%>

[thicomp]

Vlw pela ajuda, mas não estou conseguindo fazer com que execute corretamente

[.Andreia.]

especifique

[thicomp]

O código de bareta imprime na tela o mesmo conteúdo da variável "x"

O código de andreia_sp faz o incremento, mas ao invés de retornar a variável inteira "LETR_0002" ele só retorna "2"

[thicomp]

Galera, problema resolvido...

Muito obrigado

[.Andreia.]

poste a solução então

[thicomp]

Tá aí

alfaNum=session("codint")

numeroatual=right(alfaNum,4)

novoNumero=cint(numeroatual)+1

Select Case len(novoNumero)

Case 1

novoNumero="000"&novoNumero

Case 2

novoNumero="00"&novoNumero

Case 3

novoNumero="0"&novoNumero

Case 4

novoNumero=""&novoNumero

end select

novaVariavel=left(alfaNum,5)&novoNumero

response.write novaVariavel