Clipper On Line • Ver Tópico - Comparar arquivos txt

Comparar arquivos txt

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Comparar arquivos txt

Mensagempor JoséQuintas » 08 Jan 2020 15:09

Procurei na internet, mas só encontrei programas que mostram linhas diferentes.
Tem algum utilitário prático pra isso?

Criei um simples, mas acho que vai longe pra ficar mais útil

PROCEDURE Main

   LOCAL aTxt1, aTxt2, nCont
   SetMode( 50, 100 )
   CLS
   aTxt1 := hb_RegExSplit( hb_Eol(), MemoRead( "d:\jpa\ro\exporta\simpok.txt" ) )
   aTxt2 := hb_RegExSplit( hb_Eol(), MemoRead( "d:\jpa\ro\exporta\simp1912.txt" ) )
   ? Len( aTxt1 )
   Inkey(0)
   FOR nCont = 1 TO Len( aTxt1 )
      Show( aTxt1[ nCont ], aTxt2[ nCont ] )
   NEXT
   Inkey(0)

   RETURN

FUNCTION Show( cTxt1, cTxt2 )

   LOCAL nCont

   IF cTxt1 == cTxt2
      RETURN NIL
   ENDIF
   Scroll( 0, 0, 50, 100, 1 )
   FOR nCont = 1 TO Len( cTxt1 )
      @ 49, nCont - 1 SAY Substr( cTxt1, nCont, 1 ) COLOR ;
         iif( Substr( cTxt1, nCont, 1 ) <> Substr( cTxt2, nCont, 1 ), "W/R", "W/B" )
   NEXT

   RETURN NIL


dif.png
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

Comparar arquivos txt

Mensagempor alxsts » 08 Jan 2020 18:18

Olá!

Costumo utilizar o BeyondCompare. Me atende.
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 20 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