Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

brunorcajo

Como saber a posição de todas as letras "A"

Recommended Posts

Pessoal, por exemplo tenho uma stringstring = bbbbbbabbbbbbabbbbbbbbabbbbbbbbabbbbbbbbaGostaria de saber como faço para descobrir a posiçao dos "a" dentro desta stringAlguem saberiaObrigadoBruno Orcajo

Compartilhar este post


Link para o post
Compartilhar em outros sites

usando um for, e depois um instr ....

Eu queria achar todas as posicoes nao somente a primeira posicaoFor i=0 to len(readFile) response.Write("<br>"&instr(readFile,chr(13)))nextMas ele só acha a primeira

Compartilhar este post


Link para o post
Compartilhar em outros sites

Frase: bbbbbbabbbbbbabbbbbbbbabbbbbbbbabbbbbbbba

 

1º posição 7

2º posição 14

3º posição 23

4º posição 32

5º posição 41

 

 

<%	strFrase = "bbbbbbabbbbbbabbbbbbbbabbbbbbbbabbbbbbbba"	Response.Write "Frase: " & strFrase & "<br><br>"	pos = 1	For x = 1 To Len(strFrase)  carAtual = Mid(strFrase,x,1)  IF Lcase(carAtual) = "a" THEN  	Response.Write pos & "º posição " & inStr(x,strFrase,"a") & "<BR>"  	pos = pos + 1  	  END IF	Next%>

 

Isto resolve seu problema brow :huh:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Frase: bbbbbbabbbbbbabbbbbbbbabbbbbbbbabbbbbbbba1º posição 72º posição 143º posição 234º posição 325º posição 41

<%	strFrase = "bbbbbbabbbbbbabbbbbbbbabbbbbbbbabbbbbbbba"	Response.Write "Frase: " & strFrase & "<br><br>"	pos = 1	For x = 1 To Len(strFrase)  carAtual = Mid(strFrase,x,1)  IF Lcase(carAtual) = "a" THEN  	Response.Write pos & "º posição " & inStr(x,strFrase,"a") & "<BR>"  	pos = pos + 1  	  END IF	Next%>
Isto resolve seu problema brow :huh:
Só tome cuidado para utilizar essa função do WebASP para casos em que deva buscar pela posição das letras (em que situação necessita disso parceiro?) em strings gigantescas, algo como 10000 caracteres para cima... Imagine um loop com 10000 iterações... hehehe...Para isso, melhor seria pesquisar sobre o objeto dictionary e até regular expressions...- Fernando Botelho

Compartilhar este post


Link para o post
Compartilhar em outros sites

Frase: bbbbbbabbbbbbabbbbbbbbabbbbbbbbabbbbbbbba1º posição 72º posição 143º posição 234º posição 325º posição 41

<%	strFrase = "bbbbbbabbbbbbabbbbbbbbabbbbbbbbabbbbbbbba"	Response.Write "Frase: " & strFrase & "<br><br>"	pos = 1	For x = 1 To Len(strFrase)  carAtual = Mid(strFrase,x,1)  IF Lcase(carAtual) = "a" THEN  	Response.Write pos & "º posição " & inStr(x,strFrase,"a") & "<BR>"  	pos = pos + 1  	  END IF	Next%>
Isto resolve seu problema brow :huh:
Só tome cuidado para utilizar essa função do WebASP para casos em que deva buscar pela posição das letras (em que situação necessita disso parceiro?) em strings gigantescas, algo como 10000 caracteres para cima... Imagine um loop com 10000 iterações... hehehe...Para isso, melhor seria pesquisar sobre o objeto dictionary e até regular expressions...- Fernando Botelho
Fernando ta com inveja so porque não passou na facul ( pois falram que e exercicio de facul ) uhahuahuauhZueira isso e verdade se ficar 10.000 registro ai ferro uhahua mais foi um exmeplo de iniciante pois eu sou iniciante :huh: AbraçosPS: Custava falar que estava da hora ? auhhuaa

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não pow... sua rotina ficou muito boa ae... :D - Fernando Botelho

ahuahuauhhua você mente feio :huh: ahuahuhua Mais mesmo assim valew uhahua

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.