POSICAO CARACTER REPETIDO NUMA STRING

HELDER 17/04/2007 11:47:30
#212254
Boas

Qual a melhor forma de criar uma tabela (array), com a posição dos caracteres repetidos numa string.

Exemplo:

String= "MARIA"

M=1
A=2,5
R=3
I=4
LIONHEART 17/04/2007 12:19:23
#212263 Resposta escolhida
Cria um botao, e um textbox com o texto MARIA

qualquer caractere diferente de A a Z vai dar pau



Private Sub Command1_Click()
    Dim vLetras() As String
    Dim i As Integer
    Dim sString As String
    Dim sLetra As String
    
    sString = Text1.Text
    
    'redimensiono um array com todas as letras
    ReDim vLetras(Asc("A") To Asc("Z")) As String
    
    For i = 1 To Len(sString)
        sLetra = UCase(Mid(sString, i, 1))
        vLetras(Asc(sLetra)) = vLetras(Asc(sLetra)) & i & ","
    Next
    
    '-----------------------
    sString = ""
    
    For i = LBound(vLetras) To UBound(vLetras)
        If vLetras(i) <> "" Then
            sString = sString & Chr(i) & "->" & vLetras(i) & vbCrLf
        End If
    Next
    
    MsgBox sString
End Sub
HELDER 17/04/2007 12:30:10
#212264
Boa é isso mesmo.
Vou estudar agora o código.
Tópico encerrado , respostas não são mais permitidas
Voltar