Confirmando alterações

[JoséQuintas]

Estou alterando meu arquivo de pedidos de JPPEDI pra JPPEDIDO.

Uso como ALIAS o próprio nome do arquivo, então, isso implica em alterar TODOS os fontes que usam pedidos.

Como conferir se ficou algum de fora?

Na falta de outra opção, acabei usando um recurso do DOS/Windows.

Como era só pra conferência, juntei os fontes:

Código: Selecionar todos

COPY *.PRG LIXO

Como procurar JPPEDI? o find

Código: Selecionar todos

TYPE lixo | find /i "jppedi"

Mesmo assim, muita coisa pra conferir visualmente.
Como conferir o que já foi corrigido?
Ué... o que já foi corrigido, está como jppedido.
Então outro filtro, o find negativo

Código: Selecionar todos

TYPE lixo | find /i "jppedi" | find /i /v "jppedido"

Pronto.
Me listou as linhas contendo JPPEDI, mas que não contém JPPEDIDO.
Se está JPPEDI falta corrigir, mas se está JPPEDIDO já foi corrigido.
Poderia ser o contrário também.

Código: Selecionar todos

TYPE lixo | find /i /v "jppedido" | find /i "jppedi"

Código: Selecionar todos

type lixo | find /i "jppedi" | find /i /v "jppedido"

   IndexInd( "jppedi2", "pdCliFor+Dtos(pdDatEmi)+pdPedido" )
   IndexInd( "jppedi3", "pdNotFis+pdPedido" )

Na pasta da LIB,sobraram só as duas tags de indexação, que nem interessa alterar agora.

Código: Selecionar todos

type lixo | find /i "jppedi" | find /i /v "jppedido"

   OrdSetFocus("jppedi2")
2016.08.29 - No PrecoItem() testa se estÒo abertos jppedi e jpcadas
   OrdSetFocus( "jppedi2" )
   IF ! File( "jppedi.dbf" )
   IF ! ValidaStru( "JPPEDI", aStruList )
      MsgStop( "JPPEDI nÒo dispnÝvel!" )
   IF ! UseSoDbf( "jppedi", .T. )
   SELECT jppedi
      SEEK jppedi->pdPedido
         FieldPut( nCont, jppedi->( FieldGet( FieldNum( cCampo ) ) ) )
      SELECT jppedi
   fErase( "jppedi.dbf" )
      :ExecuteCmd( "DROP TABLE IF EXISTS JPPEDI" )

Na pasta dos outros fontes, sobraram o uso dos índices, e também as rotinas de atualização de versão.

Lógico, esta foi a pesquisa final.
Antes dessa, encontrei fontes aonde tinha esquecido de alterar.

Não sei se algum editor de textos permitiria pesquisar isso fácil.
Talvez algum que use RegEx(), ou talvez um programa em Harbour.
Mas... arquivo bat resolveu.

Fica aí a dica.

Nota:
É parte das mudanças que acabei misturando na migração pra MySQL.
Agora primeiro organizando tudo.
Quando chegar a vez do MySQL não quero ter nada pendente, pra não querer fazer tudo de uma vez e perder o controle - de novo.

[Itamar M. Lins Jr.]

Ola!
A HBIDE do Pritpal faz isso. "FIND in FILES" Procura e [substitue] no projeto ou nos projetos ou em qualquer extensão .prg .c .cpp .ch .h ...

Saudações,
Itamar M. Lins Jr.

[susviela@bol.com.br]

.

No Notepad++ tem essa tela ai !!!


https://notepad-plus-plus.org/downloads/

. #Susviela

[JoséQuintas]

No programmers notepad também, mas não é uma boa forma de fazer mudanças, sempre tem exceções.

Em algumas situações, preciso de jppedido e em outras JPPEDIDO.
Fora que serve pra dar uma pequena revisada.

Com certeza não alterei tudo manualmente, e otimizei aonde dava.
Aonde era jppedi-> com certeza deu pra alterar automático.

[Itamar M. Lins Jr.]

Ola!
A diferença é que a HBIDE vai procurar somente no projeto .hbp ou em outros projetos. HBIDE reconhece os arquivos .hbp
Além de abrir .DBF

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

A diferença é que a HBIDE vai procurar somente no projeto .hbp ou em outros projetos. HBIDE reconhece os arquivos .hbp

Pois é...
Como separei a josequintas.... são dois projetos.
Mas o PNotepad procura em pastas e subpastas, um projeto está em uma subpasta do outro, então dá tudo certo, acaba procurando em tudo.

Além do projeto principal dividido em dois, tem outro projeto que usa mesmo database no MySQL, e mais outro projeto que usa mesmas tabelas DBF.

Acabo tendo que trabalhar com os fontes dos 4 projetos ao mesmo tempo, pra evitar de um fazer besteira no outro.

Na prática uso tudo que é projeto que existe na minha máquina, ao mesmo tempo, até mesmo em Visual Basic 6.
A pesquisa do PNotepad pega tudo de todos.
Acabo até atualizando o projeto do Visual Basic 6, que não uso há 10 anos, mas vai junto, só pra não ficar aparecendo como pendente kkkk

Mas uso nomes únicos, então nem aparece nada que não esteja relacionado.

Tudo que é tipo de arquivo que possa conter alguma referência ao que estou alterando.