Clipper On Line • Ver Tópico - Mudar texto em todos os prgs da pasta

Mudar texto em todos os prgs da pasta

Discussão sobre ferramentas de apoio à programação (Clipper/[x]Harbour)

Moderador: Moderadores

 

Mudar texto em todos os prgs da pasta

Mensagempor rubens » 09 Abr 2018 10:29

Bom dia...

Preciso mudar o Texto "Janela(" para "Janela( ProcName()," em todos prgs da pasta.
Pelo Xdev Não achei opção...
Pelo HbIde achei opção mas não consegui fazer funcionar.
Alguém sabe como fazer pelo HBIDE ou por outra ferramenta?

Obrigado
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Mudar texto em todos os prgs da pasta

Mensagempor Jairo Maia » 09 Abr 2018 11:48

Olá Rubens,

Veja se ajuda:

NOTA: Use uma única vez para cada novo texto informado e verifique. Se voltar a rodar o utilitário duplica o novo texto, ok?

Function Main( lDelbk )

Local x, aDirect1, aDir1:={}, cMsg, cArq1, cArq2, cNewTexto

  /*
   Definir aqui o Texto existente e o Novo Texto...
*/
Local cTexto1 := "Janela("
Local cTexto2 := "Janela( ProcName(),"

If lDelbk != Nil .And. Upper( lDelbk ) = "/Y"
  ! DEL *.bak
ElseIf File( "*.BAK" )
  cMsg:="Arquivos com extensäo .BAK existente!;"
  cMsg+="Faça backup e apague para continuar."
  HB_Alert( cMsg )
  Return Nil
EndIf

CLEA SCREEN

aDirect1 := Directory( "*.PRG" )
AEval( aDirect1, { | cPrg | AaDd( aDir1, cPrg[1] ) } )

For x:=1 To Len( aDir1 )

  cArq1 := aDir1[x]

  If Upper( cArq1 ) = "MUDATEXTO.PRG"
   Loop   // se for esse arquivo, não altera...
  EndIf

  @ 5,2 say spac(50)
  @ 5,2 say "Trabalhando arquivo: " + cArq1

  cNewTexto := Hb_MemoRead( cArq1 )

  cArq2 := StrTran( Upper( cArq1 ), ".PRG", ".BAK" )

  Hb_MemoWrit( cArq2, cNewTexto )  // salva backup do arquivo antes de alterar

  cNewTexto := StrTran( cNewTexto, cTexto1, cTexto2 )  // altera o arquivo com CASE SENSITIVE

  Hb_MemoWrit( cArq1, cNewTexto )  // salva o arquivo com as alterações

Next

@ 7,2 say " "

Return Nil
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Mudar texto em todos os prgs da pasta

Mensagempor marcosgambeta » 09 Abr 2018 14:12

Rubens,

Eu uso o grepWin para esta e outras tarefas:

https://tools.stefankueng.com/grepWin.html
Atenciosamente,
Marcos Antonio Gambeta
marcosgambeta
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 318
Data de registro: 16 Jun 2005 22:53
Curtiu: 2 vezes
Mens.Curtidas: 40 vezes

Mudar texto em todos os prgs da pasta

Mensagempor Claudio Soto » 09 Abr 2018 15:12

Otra alternativa es usar el editor de texto NotePad++
Opción del menú Search and Replace in Files
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Avatar de usuário

Claudio Soto
Colaborador

Colaborador
 
Mensagens: 555
Data de registro: 27 Ago 2012 12:31
Cidade/Estado: Uruguay
Curtiu: 35 vezes
Mens.Curtidas: 166 vezes

Mudar texto em todos os prgs da pasta

Mensagempor JoséQuintas » 09 Abr 2018 17:06

Porque não aproveita e cria uma rotina pra não precisar indicar isso?
Por exemplo, uso do DoPrg() e a variável m_Prog

https://github.com/JoseQuintas/JoseQuintas/blob/master/main/jpa.prg
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Ferramentas de Apoio

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro