Criação e uso de Busca Fonetizada em Base de Dados Relacionais, em Português � Parte 03

Cria��o e uso de Busca Fonetizada em Base de Dados Relacionais, em Portugu�s � Parte 03

Neste ponto podemos criar um aplicativo que realize a busca de modo a trazer, por exemplo, a palavra Edson e seu similar �fon�tico� em qualquer parte do nome, Edson Nascimento Fernades, Paulo Edison Do Nascimento, Jose Paulo edhison, etc...

Para ilustrar vou usar um exemplo de aplicativo, desenvolvido pelo meu amigo Cristiano Wilson Cruge, que pode ser facilmente adaptado para outras linguagens e usos.

O aplicativo � o seguinte, feito em Delphi7:

O c�digo fonte se encontra nos anexos, no final do artigo, para exemplificar vamos procurar �Rafael�, na base, obtemos o seguinte retorno:

Dessa forma podemos implementar uma busca fon�tica mais eficiente para bases de dados maiores, implementando o uso de �ndices. Podemos inclusive potencializar a utiliza��o desse tipo de busca com melhorias nos �ndices e uso de recursos textuais e de express�es regulares em bancos de dados.

III - Anexos

-- Script 1

CREATE TABLE CLIENTE(

CODIGO CHAR (08) NOT NULL,

NOME VARCHAR2 (80) NOT NULL,

CONSTRAINT PK_CODIGO_CLIENTE

PRIMARY KEY ( CODIGO )

);

--Script 2

--Carga da Tabela

INSERT INTO CLIENTE (CODIGO,NOME) VALUES('31701023','ACUCENA RAFHAEL');

INSERT INTO CLIENTE (CODIGO,NOME) VALUES('31701024','ADALTO PEREIRIA BARBOSA');

INSERT INTO CLIENTE (CODIGO,NOME) VALUES('31701025','ADRIANA LUIS DOS SANTOS');

INSERT INTO CLIENTE (CODIGO,NOME) VALUES('31701026','BENEDITO RUI BARBOSA');

INSERT INTO CLIENTE (CODIGO,NOME) VALUES('31701027','BARTOLOMEU DIAS');

INSERT INTO CLIENTE (CODIGO,NOME) VALUES('31701028','CAMILA PITANGA NASCIMENTO DIAS');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701029','CAMILA PARKSON');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701030','CARLOS MAGNO RAFAEL');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701031','CARLOS LUIZ AUGUSTO');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701032','CHRISTIANA DE OLIVEIRA BARBOZA');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701033','CRISTINA MARTINS FONSECA');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701034','DANIEL BOOM');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701035','DANIELA BOOM NASCIMENTO');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701036','DANIELLA BAUER');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701037','DAVI CARDOSO');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701038','DAVID JACK NACIMENTO');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701039','EDNA LUIZ GRANDE');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701040','EDINA CONCEI��O DE ALMEIDA');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701041','EDSON ARANTES DO NASCIMENTO');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701042','EDISON NASCIMENTO BARBOSA');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701043','F�BIO MITSUAKI ISHIKAWA');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701044','FABIO NOGUEIRA');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701045','FL�VIO VESPASIANO NOBRE');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701046','FLAVIO DE OLIVEIRA FIGUEIREDO');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701047','FRAVIO EDSON CELULAI');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701048','HELIO SOLAR CENTRO');

INSERT INTO CLIENTE (CODIGO,NOME)VALUES('31701049','ELIO FILHO DE APOLO');

COMMIT;

--Script 3

SELECT NOME,CODIGO FROM CLIENTE WHERE FONETIZAR(NOME)=FONETIZAR('CARLOS LUIZ AUGUSTO');

--Script 4

CREATE TABLE CLIENTE_FONETICA (

DES_FONETICA VARCHAR2 (40) NOT NULL,

CODIGO CHAR(08) NOT NULL

);

-- Script 5

CREATE OR REPLACE PROCEDURE FONETIZAR_CLIENTE

CURSOR CLIENTE_cur IS

SELECT CODIGO, FONETIZAR(NOME) AS NOME_CLIENTE FROM CLIENTE;

NOME_CLIENTE CLIENTE.NOME%TYPE;

i INTEGER;

j INTEGER;

saida CLIENTE.NOME%TYPE;

BEGIN

-- Apaga o ind�ce fon�tico

DELETE FROM CLIENTE_FONETICA;

FOR CLIENTE_REC IN CLIENTE_CUR LOOP

-- Separa as palavras fonetizadas e salva na tabela MATERIAL_FONETICA

NOME_CLIENTE := CLIENTE_REC.NOME_CLIENTE||' ';

i := 1;

WHILE TRUE LOOP

saida := SUBSTR(NOME_CLIENTE, 1, INSTR(NOME_CLIENTE, ' '));

NOME_CLIENTE := SUBSTR(NOME_CLIENTE, INSTR(NOME_CLIENTE, ' ') + 1, LENGTH(NOME_CLIENTE));

saida := TRIM(saida);

IF LENGTH(saida) IS NULL THEN

EXIT;

END IF;

IF LENGTH(saida) <= 30 THEN

INSERT INTO CLIENTE_FONETICA (CODIGO, DES_FONETICA ) VALUES (CLIENTE_rec.CODIGO, saida);

END IF;

END LOOP;

END FONETIZAR_CLIENTE;

--codigo fonte 1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, FMTBcd, DB, DBClient, Provider, SqlExpr, Grids, DBGrids,

StdCtrls, DBXpress;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button3: TButton;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

SQLDataSet1: TSQLDataSet;

DataSetProvider1: TDataSetProvider;

ClientDataSet1: TClientDataSet;

SQLConnection1: TSQLConnection;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

Function GetPiece(Node: string; Delimiter: string; FirstPiece: integer): string;

Function GetPieces(Node: string; Delimiter: string; FirstPiece: integer; LastPiece: integer): string;

Function PieceLength(Node: string; Delimiter: string): integer;

public

{ Public declarations }

Resultado: string;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

Function TForm1.GetPiece(Node: string; Delimiter: string; FirstPiece: integer): string;

begin

Result := GetPieces(Node, Delimiter, FirstPiece, FirstPiece);

end;

Function TForm1.GetPieces(Node: string; Delimiter: string; FirstPiece: integer; LastPiece: integer): string;

var

p, p0, p1, i, c: integer;

s: string;

begin

s := Node + Delimiter;

if (FirstPiece = 1) and (LastPiece = 1) then begin

if Pos(Delimiter, Node) = 0 then

Result := Node

else

Result := Copy(Node, 0, Pos(Delimiter, Node) - 1);

Exit;

end;

p := 1;

p0 := 0;

p1 := 0;

c := 0;

for i := 0 to Length(Node) do begin

if s[i] = Delimiter then

inc(p);

if FirstPiece = 1 then begin

c := 1;

end;

if (c = 0) and (p = FirstPiece) then begin

p0 := i + 1;

c := 1;

end;

if (c = 1) and (p < (LastPiece + 1)) then begin

inc(p1);

end;

if p1 <> Length(s) then dec(p1);

Result := Copy(Node, p0, p1);

end;

Function TForm1.PieceLength(Node: string; Delimiter: string): integer;

var i,j: integer;

begin

i := 1;

j := 0;

while i > 0 do

begin

i := pos(Delimiter, node);

node := copy(node,i+1,length(node)-1);

j := j + 1;

end;

Result := j;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Resultado := ClientDataSet1.Fields[0].AsString;

end;

procedure TForm1.Button1Click(Sender: TObject);

const

FONETIZAR = 'SELECT FONETIZAR(''%s'') AS RESULTADO FROM DUAL';

CONSULTAR1 = 'SELECT B.COD_MATERI AS "C�digo", B.NOM_MATERI AS "Nome do Material" FROM ('+

'SELECT DISTINCT COD_MATERI FROM MATERIAL_FONETICA WHERE ';

CONSULTAR2 = 'DES_FONETI = ''%s'' ';

CONSULTAR3 = ') A, MATERIAL B '+

'WHERE A.COD_MATERI = B.COD_MATERI';

var

Aux, Comando: string;

i: integer;

begin

if Edit1.Text = '' then begin

ShowMessage('Digite um texto para Pesquisar; ');

Exit;

end;

if ClientDataSet1.Active then

ClientDataSet1.Close;

ClientDataSet1.CommandText := Format(FONETIZAR,[Edit1.Text]);

ClientDataSet1.DisableControls;

ClientDataSet1.Open;

Aux := (ClientDataSet1.Fields[0].AsString);

Comando := CONSULTAR1;

for i := 1 to PieceLength(Aux, ' ') do begin

Comando := Comando + Format(CONSULTAR2,[GetPiece(Aux,' ', i)]);

if i <> PieceLength(Aux,' ') then

Comando := Comando + 'OR ';

end;

Comando := Comando + CONSULTAR3;

ClientDataSet1.Close;

ClientDataSet1.EnableControls;

ClientDataSet1.CommandText := Comando;

ClientDataSet1.Open;

if ClientDataSet1.RecordCount = 0 then begin

ShowMessage('Sua pesquisa n�o retornou nenhum resultado.');

ClientDataSet1.Close;

end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

Resultado := ClientDataSet1.Fields[0].AsString;

ModalResult := mrOk;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Links

http://www.oracle.com/technology/software/products/sql/index.html

Confira outros conte�dos:

SQL SUM: somando os valores de uma...

SQL: INNER JOIN

SQL: Introdu��o ao Where

Assista grátis a nossa aula inaugural

Perguntas frequentes

Quem somos?

Por que a programação se tornou a profissão mais promissora da atualidade?

Como faço para começar a estudar?

Em quanto tempo de estudo vou me tornar um programador?

Sim, você pode se tornar um programador e não precisa ter diploma de curso superior!

O que eu irei aprender estudando pela DevMedia?

Principais diferenciais da DevMedia

Qual o investimento financeiro que preciso fazer para me tornar um programador?

Como funciona a forma de pagamento da DevMedia?

Por Devmedia Em 2008

Nossos casos de sucesso

Leonardo Carlos

Eu sabia pouqu�ssimas coisas de programa��o antes de come�ar a estudar com voc�s, fui me especializando em v�rias �reas e ferramentas que tinham na plataforma, e com essa bagagem consegui um est�gio logo no in�cio do meu primeiro per�odo na faculdade.

Lucas Rodrigues

Estudo aqui na Dev desde o meio do ano passado! Nesse per�odo a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta � continuar estudando e praticando para ser um Full-Stack Dev!

Her�clito J�nior

Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma � bem intuitiva e muuuuito did�tica a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!

Julio Cablen

Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda n�o tinha visto. A did�tica � do jeito que qualquer pessoa consegue aprender. S�rio, to apaixonado, adorando demais.

Joelberth Sena

Adquiri o curso de voc�s e logo percebi que s�o os melhores do Brasil. � um passo a passo incr�vel. S� n�o aprende quem n�o quer. Foi o melhor investimento da minha vida!

Felipe Nunes

Foi um dos melhores investimentos que j� fiz na vida e tenho aprendido bastante com a plataforma. Voc�s est�o fazendo parte da minha jornada nesse mundo da programa��o, irei assinar meu contrato como programador gra�as a plataforma.

Wanderson Oliveira

Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exerc�cios pr�ticos que n�o tem como n�o aprender, est�o de parab�ns!

Jos� Lucas

Obrigado DevMedia, nunca presenciei uma plataforma de ensino t�o presente na vida acad�mica de seus alunos, parab�ns!

Eduardo Dorneles

Aprendi React na plataforma da DevMedia h� cerca de 1 ano e meio... Hoje estou h� 1 ano empregado trabalhando 100% com React!

Adauto Junior

J� fiz alguns cursos na �rea e nenhum � t�o bom quanto o de voc�s. Estou aprendendo muito, muito obrigado por existirem. Est�o de parab�ns... Espero um dia conseguir um emprego na �rea.

Ver todos os casos de sucesso

Cria��o e uso de Busca Fonetizada em Base de Dados Relacionais, em Portugu�s � Parte 03

Finalizando o artigo sobre cria��o e uso de busca fonetizada em base de bados relacionais.

Confira outros conte�dos:

SQL SUM: somando os valores de uma...

SQL: INNER JOIN

SQL: Introdu��o ao Where

Perguntas frequentes

Nossos casos de sucesso