[Resolvido] instrrev aplicando

[andreia_sp 1]

estou tentando aplicar o conceito do instrrev() mas nao está funcionando. tenho uma frase que faço uma busca por um nome (padrao), exemplo

 

"Arquivo para download: 600_kb"

 

eu tenho por padrao o _kb e quero pegar o valor 600. A logica é pegar o inverso até o espaço vazio (na frente do 600).

 

eis oque estou tentando:

 

<%
texto = "Arquivo para download: 600_kb"

cont=1
do while cont <> 0
	cont = instr(cont+1,texto,"_kb")
	if cont > 0 then
		response.write mid(texto,cont,InstrRev(texto, " ", -1, 1)) & "<br>"
	end if
loop
%>

vls

[hargon 64]

A função está correta, o problema é o posicionamento das variáveis na função MID.

 

Veja como fica:

response.write mid(texto,InstrRev(texto, " ", -1, 1)+1,3) & "<br>"

Lembrando que MID é texto, posição inicial e número de caracteres.

[andreia_sp 1]

obrigada hargon!!!

 

vou deixar aqui o codigo que eu fiz, caso alguem tenha a mesma necessidade:

 

texto = "Arquivo para download: 600_kb<br>Arquivo para download: 200_kb<br>Arquivo para download: 100_kb"

arrayTexto = split(texto," ")

for i = 0 to Ubound(arrayTexto)
	achar = instr(1,arrayTexto(i),"_kb")

	if achar > 0 then response.write mid(arrayTexto(i),InstrRev(arrayTexto(i), " ", -1, 1)+1,achar-1) & "<br>"
next

[xanburzum 169]

irei disponibilizar tambem no lab. de script. até mais...