VB6 - Contando as ocorrências de caracteres repetidos em uma string

Neste tutorial vamos contar as ocorrências de caracteres repetidos em uma string usando o Visual Basic 6.

Abra o Visual Basic 6 e clique no menu File e a seguir em New Project;

Na janela New Project selecione no item Standard EXE e clique em OK;

Será criado um projeto contendo um formulário identificado por Form1.frm;

Inclua a partir da ToolBox os seguintes controles no Formulário Form1.frm:

Obs: Estou usando o nome padrão dos controles mas em um projeto mais complexo recomando a usar nomes pertinentes aos controles. Ex: txtNome, cmdFechar, frmMenu, lstLista, etc.

No evento Click do botão de comando inclua o seguinte código:

Private Sub Command1_Click()
   Call ContarCaracteres(Text1.Text)
   Call PreencherLista
End Sub

O código acima chama duas rotinas :

  1. ContarCaracteres(Text1.Text) - que conta os caracteres da string informada na caixa de texto Text1;
  2. PreencherLista - que preenche o controle ListBox - List1 - informando o caractere o número de ocorrências encontradas;

A seguir temos o código da rotina ContarCaracteres:

Private Sub ContarCaracteres(Texto As String)
Dim c As Long
Dim Caracter As Integer

For c = 1 To Len(Texto)
  Caractere = Asc(Mid$(Texto, c, 1))
  Letras(Caractere) = Letras(Caractere) + 1
Next c
End Sub

 O código da rotina PreencherLista é visto abaixo:

Private Sub PreencherLista()
Dim c As Long

List1.Clear
For c = LBound(Letras) To UBound(Letras)
  If Letras(c) > 1 Then
     List1.AddItem "Caractere " & Chr(c) & " : " & Letras(c)
   End If
Next c
End Sub

Executando o projeto e informando uma string qualquer iremos obter o resultado abaixo:

Simples e prático como só o VB pode ser.


Veja os Destaques e novidades do SUPER CD VB 2012 (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super CD .NET e no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# 2012 com exclusivo material de suporte e vídeo aulas com curso básico sobre C#
 

Gál 1:6 Estou admirado de que tão depressa estejais desertando daquele que vos chamou na graça de Cristo, para outro evangelho,

Gál 1:7 o qual não é outro; senão que há alguns que vos perturbam e querem perverter o evangelho de Cristo.

Gál 1:8 Mas, ainda que nós mesmos ou um anjo do céu vos pregasse outro evangelho além do que já vos pregamos, seja anátema.

Gál 1:9 Como antes temos dito, assim agora novamente o digo: Se alguém vos pregar outro evangelho além do que já recebestes, seja anátema.

Referências:

José Carlos Macoratti