Como fazer busca em Units de um sistema legado?

Question

Preciso fazer um programa, que fa�a uma busca no banco de dados e traga todas as tabelas(apenas nome) e depois, ele pegue todas as Units de um sistema antigo nosso aqui e frelacione em uma lista e tam...

Gustavo Bretas · Answer

Eita! Automatizado vai ser complicado heim, ainda mais se vc usar DataModule e/ou Procedure no Banco!

Voc� conhece o NotePad++? Quando eu tenho que fazer alguma pesquisa mais ampla no c�digo (.pas e .dfm) eu uso ele!

Pjava · Answer

S� que no notepad++ eu faria isso manualmente e n�o � isso que queremos, pois o sistema � gigantesco. A minha maior d�vida � abrir o .PAS. Eu consigo trazer tudo do banco e posso colocar isso tudo em ima lista(TList&ltString&gt) e a� sim, pegando item a item e ir abrindo o .PAS e ir comparando se naquele .PAS faz ou n�o uso daquela tabela e/ou sp. O rpoblema est� em correr o .PAS e se � poss�vel tamb�m....

Joel Rodrigues · Answer

Voc� quer buscar todas as units que contenham o nome da tabela em seu conte�do?Os arquivos est�o em pastas conhecidas?...

Joel Rodrigues · Answer

Ah, tem que ser em Delphi?Segue um pequeno exemplo em C# de como varrer os arquivos de um diret�rio e verificar se cada arquivo cont�m um certo texto:---foreach(String s in Directory.GetFiles(@C:SistemasExemplo))            {                FileInfo fi = new FileInfo(s);                if (fi.Extension.ToUpper().Equals(.PAS))                {                                        if(File.ReadAllText(s).Contains(texto_procurado))                        listBox1.Items.Add(s);//path do arquivo que contem o texto                }            }---...

Gustavo Bretas · Answer

Por isso que eu disse que ia ser complicado! rsrs

A quest�o � que vc vai pesquisar a tabela, tranquilo, mas depois de ver em quais componentes de acesso est�o as tabelas que vc quer (Table, Query), vc vai precisar procurar onde � usado esses componentes, entende? Se vc usar DataModule fica mais complicado um pouco pq vc pode ter referenciado os componentes em N telas, se vc user Stored Procedure complica mais um pouco aidna pq ter� que fazer uma pesquisa nos script das Stored Procedure e depois procur�-las no componentes, e se usar ClientDataset da pra imaginar n�? rsrs

Eu j� tive que fazer algo parecido com isso, mas o sistema er� pequeno, e o Notepad++ me ajudou bastante... rsrs!

Mas da pra fazer, qual o banco de dados que vc usa? J� adianto que no SQL Server vc pega o nome das tabelas na tabela SysObjects (Eu acho que compara T no campo XTYPE), no Firebird e umas das RDB$RELATION_FIELDS (Compara com o campo RDB$SYSTEM_FLAG = 0, se n�o me engano), no Oracle � na tabela DBA_TABLES!

PJava, te desejo sorte!

Pjava · Answer

A id�ia minha � o seguinte. Jogo todas as tabelas em uma lista(select * from sysobjects) e depois vou pegando item a item dessa lista e ir lendo .pas a .pas. Isso pretendo fazer com textfile, abro o arquivo .pas e varrendo e ver se acho pelo menos uma �nica vez o nome da tabela. Achando, saio do arquivo, pois s� preciso saber se ele � usado uma vez apenas, gravo em outra lista e vou correr outro .pas at� chegar ao �ltimo. Chegando no �ltimo, pego outro nome de tabela e fa�o tudo outra vez. Acho que assim eu consigo saber quais os .pas que utilizam aquela tabela e/ou stored procedure....

Gustavo Bretas · Answer

E ae cara, tudo certo?Sim, a l�gica que vc esta pensando funciona, mas eu acrescentaria os .dfm, pq no meu caso eu n�o costumo atribuir o select �s Querys em modo de execu��o!...

F�rum Como fazer busca em Units de um sistema legado? #413189