DETECTAR LETRAS OU NUMEROS NUMA STRING

USUARIO.EXCLUIDOS 19/01/2005 15:41:33
#61816
Olá Pessoal, se alguém puder me ajudar mais uma vez. Gostaria de fazer o seguinte: A Rotina está pegando cada caracter de uma letra. Eu quero que quando apareça, vamos super, a letra A, substitua pela letra S. Exemplo. E que some a cada vez que ele apareça, Vamos Supor:
BRUNO MAESTRO
o R aparece 2 vezes
na hora que ele aparecer a primeira vez, somar 1 em uma variável
e substituir por D quando a variavel estiver 1
e quando aparecer o R de novo
some +1 que seria 2
e quando a variavel tiver em 2, substituir por U.
Espero que tenham entendido. Qualquer coisa posta ae.
USUARIO.EXCLUIDOS 19/01/2005 16:05:25
#61823 Resposta escolhida
hahahahha.. nosssa que bagunça!!!
acho que fazer realmente do JEITINHO que vc quer acho que não tem como, vc poderia se mais direto e falar realmente porque precisa fazer isto, é um Codigo para CRIPTOGRAFIA?
acertei?
Bem pelo menos vai ai uma logica...
com a função REPLACE, você pode
replace(string,"Valor","novovalor")

dim nome as string
dim aletra as string
dim nletra as string
aletra = "R"
nletra = "D"
nome = BRUNO MAESTRO
nome = replace(nome,aletra,nletra)
msgbox nome 'vai retornar 'BDUNO MAESTDO'

*Se vc entrar em detalhes e ser mais CLARO.. a gente pode até fazer o resto pra vc
USUARIO.EXCLUIDOS 19/01/2005 16:52:30
#61837
pa. esqueci de colocar aspas entre BRUNO MESTRO..
USUARIO.EXCLUIDOS 19/01/2005 17:13:59
#61849
Não, não é isso não. Mas Obrigado pela Atenção.
USUARIO.EXCLUIDOS 19/01/2005 17:59:43
#61858
Tá tá tá... quando fico encucado com uma coisa, não consigo dormir... pra mim ter uma boa noite de sono.. ai vair.. demorei ins 20 minutos pra fazer e testar...
ESTà FAZENDO EXATAMENTE COMO VC CITOU ACIMA

Dim LETRA As String
Dim NOVALETRA As String
Dim VALOR As Integer
LETRA = "R"
NOVALETRA = "D"
VALOR = 0

'PS DENTRO DO TEXT1 ESTà ESCRITO 'BRUNO MAESTRO '


For i = 0 To Len(Text1) - 1
Text1.SelStart = i
Text1.SelLength = 1

If Text1.SelText = LETRA Then

GoTo VERIFICA
Else

GoTo FIM
End If

VERIFICA:
Text1.SetFocus
Select Case VALOR
Case 0
Text1.SetFocus
Text1.SelText = NOVALETRA
VALOR = 1

Case 1
Text1.SetFocus
Text1.SelText = NOVALETRA
VALOR = 2
Case 2
Text1.SetFocus
Text1.SelText = NOVALETRA
VALOR = 3
End Select
'e assim vai..  se quiser mais vezes e so continuar
FIM:

Next

Text1.SelStart = 0
MsgBox "O(A) '" & LETRA & "', apareceu " & (VALOR) & "Vezes"


E ai? agora deu? não deu?
rsrs fui
USUARIO.EXCLUIDOS 19/01/2005 19:01:48
#61869
Cara, não era isso também não, mas eu já consegui. Obrigado.
USUARIO.EXCLUIDOS 19/01/2005 19:06:30
#61870
Valeu Germanir, aproveitei algumas coisas do se post. Se não fosse você não teria conseguido.
FELIPEA 19/01/2005 19:17:18
#61874
Lembre-se...
Duvida Sanada = Tópico Encerrado
Tópico encerrado , respostas não são mais permitidas
Voltar