Neste artigo eu vou apresentar uma implementação do algoritmo SOUNDEX, desenvolvido pelo governo americano (U.S National Archives and Records Administration).

são desconsideradas

Imports System.Text

Public Class Soundex

    Public Shared Function CalcularSoundex(palavra As String) As String

        Dim Resultado As New StringBuilder()

        Try
            If palavra IsNot Nothing AndAlso palavra.Length > 0 Then
                Dim CodigoAnterior As String = "", CodigoAtual As String = "", LetraAtual As String = ""

                Resultado.Append(palavra.Substring(0, 1))

                For i As Integer = 1 To palavra.Length - 1
                    LetraAtual = palavra.Substring(i, 1).ToLower()
                    CodigoAtual = ""

                    If "bfpv".IndexOf(LetraAtual) > -1 Then
                        CodigoAtual = "1"
                    ElseIf "cgjkqsxz".IndexOf(LetraAtual) > -1 Then
                        CodigoAtual = "2"
                    ElseIf "dt".IndexOf(LetraAtual) > -1 Then
                        CodigoAtual = "3"
                    ElseIf LetraAtual = "l" Then
                        CodigoAtual = "4"
                    ElseIf "mn".IndexOf(LetraAtual) > -1 Then
                        CodigoAtual = "5"
                    ElseIf LetraAtual = "r" Then
                        CodigoAtual = "6"
                    End If

                    If CodigoAtual <> CodigoAnterior Then
                        Resultado.Append(CodigoAtual)
                    End If

                    If Resultado.Length = 4 Then
                        Exit For
                    End If

                    If CodigoAtual <> "" Then
                        CodigoAnterior = CodigoAtual
                    End If
                Next
            End If

            If Resultado.Length < 4 Then
                Resultado.Append(New [String]("0"c, 4 - Resultado.Length))
            End If

            Return Resultado.ToString().ToUpper()

        Catch ex As Exception
            Throw ex
        End Try
    End Function

End Class

 Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click

        If txtPalavra.Text = String.Empty Then
            MessageBox.Show("Informe uma palavra...")
            Return
        End If

        If txtPalavra.Text.Length < 2 Then
            MessageBox.Show("Informe uma palavr com dois caracteres....")
            Return
        End If

        Try
            txtSoundex.Text = Soundex.CalcularSoundex(txtPalavra.Text)
        Catch ex As Exception
            MessageBox.Show("Erro : " + ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

public static string CalcularSoundex(string palavra)
{
	StringBuilder Resultado = new StringBuilder();
	try {
		if (palavra != null && palavra.Length > 0) {
			string CodigoAnterior = "";
			string CodigoAtual = "";
			string LetraAtual = "";

			Resultado.Append(palavra.Substring(0, 1));

			for (int i = 1; i <= palavra.Length - 1; i++) {
				LetraAtual = palavra.Substring(i, 1).ToLower();
				CodigoAtual = "";

				if ("bfpv".IndexOf(LetraAtual) > -1) {
					CodigoAtual = "1";
				} else if ("cgjkqsxz".IndexOf(LetraAtual) > -1) {
					CodigoAtual = "2";
				} else if ("dt".IndexOf(LetraAtual) > -1) {
					CodigoAtual = "3";
				} else if (LetraAtual == "l") {
					CodigoAtual = "4";
				} else if ("mn".IndexOf(LetraAtual) > -1) {
					CodigoAtual = "5";
				} else if (LetraAtual == "r") {
					CodigoAtual = "6";
				}

				if (CodigoAtual != CodigoAnterior) {
    				      Resultado.Append(CodigoAtual);
				}

				if (Resultado.Length == 4) {
				     break; 
				}

				if (!string.IsNullOrEmpty(CodigoAtual)) {
				     CodigoAnterior = CodigoAtual;
				}
			}
		}

		if (Resultado.Length < 4) {
			Resultado.Append(new String('0', 4 - Resultado.Length));
		}

		return Resultado.ToString().ToUpper();

	} catch (Exception ex) {
		throw ex;
     }
}

Quer migrar para o VB .NET ?

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

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

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

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

•  Curso - Gerando Relatórios com o ReportViewer no VS 2013 - Vídeo Aulas