COMPARAR VERSOES DE PROGRAMA FONTE
Boa Tarde Amigos
Por acaso alguem sabe se ha algum programa que compare os fontes de 2 versoes de um mesmo sistema em VB e indique o que foi alterado entre um e outro.
Ou seja, tenho um sistema e uma copia do mesmo sistema em outro diretorio.Fiz uma alteracao em um deles, dai preciso que esse [Ô]suposto[Ô] programa me informe qual e a diferença entre eles.
Nao faço ideia se existe um aplicativo assim mas como ultimamente existe aplicativo para tudo, pode ser que exista algum no mercado.
obrigado e um Abraço
Por acaso alguem sabe se ha algum programa que compare os fontes de 2 versoes de um mesmo sistema em VB e indique o que foi alterado entre um e outro.
Ou seja, tenho um sistema e uma copia do mesmo sistema em outro diretorio.Fiz uma alteracao em um deles, dai preciso que esse [Ô]suposto[Ô] programa me informe qual e a diferença entre eles.
Nao faço ideia se existe um aplicativo assim mas como ultimamente existe aplicativo para tudo, pode ser que exista algum no mercado.
obrigado e um Abraço
compare o tamanho e a data de ultima alteração dos dois
ou seja se o sistema com data de alteração maior for maior em kb talvez tenha sido alterado.
é uma idéia
nà o sei se é a ideal, pois comparar os dois codigos fontes é complicado
ou seja se o sistema com data de alteração maior for maior em kb talvez tenha sido alterado.
é uma idéia
nà o sei se é a ideal, pois comparar os dois codigos fontes é complicado
Muito obrigado por sua ajuda meu amigo.
Eu estava pensando se existiria um programa, que mostrasse no minimo a linha que foi alterada entre 2 copias do mesmo sistema.
Obrigado e um Abraço
Eu estava pensando se existiria um programa, que mostrasse no minimo a linha que foi alterada entre 2 copias do mesmo sistema.
Obrigado e um Abraço
TENHO ESSA ROTINA HÃ TEMPO NUMCA USEI VE SE AJUDA....:
Public Function Baixa_Versao(LocalArquivo As String, LocalURLArquivo As String) As Boolean
On Error GoTo Baixa_erro
Dim BT() As Byte
Open LocalArquivo For Binary Access Write As #1
BT() = frmDownload.Inet1.OpenURL(LocalURLArquivo, icByteArray)
Put #1, , BT()
Close #1
Baixa_Versao = True
Exit Function
Baixa_erro:
MsgBox [Ô]Ocorreu um erro durante a transferência do arquivo ![Ô], vbCritical
Baixa_Versao = False
Close #1
End Function
=============================================
Public Function Verifica() As Boolean
On Error GoTo MostraErro
Dim Arquivo As String
Dim Arq As String
Versao_Atual = App.Major & [Ô].[Ô] & App.Minor & [Ô].[Ô] & App.Revision
Atual = False
Arquivo = App.Path & [Ô]atual.txt[Ô]
If Right(App.Path, 1) = [Ô][Ô] Then
Arquivo = App.Path & [Ô]atual.txt[Ô]
End If
Arq = App.Path & [Ô]Arq.exe[Ô]
If Right(App.Path, 1) = [Ô][Ô] Then
Arq = App.Path & [Ô]Arq.exe[Ô]
End If
If Baixa_Versao(Arquivo, [Ô]http://www.dominio.com.br/VersaoArq.txt[Ô]) = True Then
Open Arquivo For Input As #1
Line Input #1, VersaoArq
Close #1
Versao = Trim(VersaoArq)
Kill Arquivo
If VersaoArq <> [Ô][Ô] And Versao_Atual < VersaoArq Then
If MsgBox([Ô]Existe uma nova versão , deseja atualizar agora ?[Ô], vbYesNo, [Ô]Serviço On-Line de Atualização [Ô]) = vbYes Then
frmDownload.DownloadFile [Ô]http://www.dominio.com.br/Arq.exe[Ô], Arq
Timer3.Enabled = False
Else
Timer3.Enabled = False
End If
End If
End If
Verifica = Atual
MostraErro:
MsgBox [Ô]Erro de conexão.[Ô], vbInformation, [Ô]Conexão[Ô]
Err.Clear
End Function
Public Function Baixa_Versao(LocalArquivo As String, LocalURLArquivo As String) As Boolean
On Error GoTo Baixa_erro
Dim BT() As Byte
Open LocalArquivo For Binary Access Write As #1
BT() = frmDownload.Inet1.OpenURL(LocalURLArquivo, icByteArray)
Put #1, , BT()
Close #1
Baixa_Versao = True
Exit Function
Baixa_erro:
MsgBox [Ô]Ocorreu um erro durante a transferência do arquivo ![Ô], vbCritical
Baixa_Versao = False
Close #1
End Function
=============================================
Public Function Verifica() As Boolean
On Error GoTo MostraErro
Dim Arquivo As String
Dim Arq As String
Versao_Atual = App.Major & [Ô].[Ô] & App.Minor & [Ô].[Ô] & App.Revision
Atual = False
Arquivo = App.Path & [Ô]atual.txt[Ô]
If Right(App.Path, 1) = [Ô][Ô] Then
Arquivo = App.Path & [Ô]atual.txt[Ô]
End If
Arq = App.Path & [Ô]Arq.exe[Ô]
If Right(App.Path, 1) = [Ô][Ô] Then
Arq = App.Path & [Ô]Arq.exe[Ô]
End If
If Baixa_Versao(Arquivo, [Ô]http://www.dominio.com.br/VersaoArq.txt[Ô]) = True Then
Open Arquivo For Input As #1
Line Input #1, VersaoArq
Close #1
Versao = Trim(VersaoArq)
Kill Arquivo
If VersaoArq <> [Ô][Ô] And Versao_Atual < VersaoArq Then
If MsgBox([Ô]Existe uma nova versão , deseja atualizar agora ?[Ô], vbYesNo, [Ô]Serviço On-Line de Atualização [Ô]) = vbYes Then
frmDownload.DownloadFile [Ô]http://www.dominio.com.br/Arq.exe[Ô], Arq
Timer3.Enabled = False
Else
Timer3.Enabled = False
End If
End If
End If
Verifica = Atual
MostraErro:
MsgBox [Ô]Erro de conexão.[Ô], vbInformation, [Ô]Conexão[Ô]
Err.Clear
End Function
Tópico encerrado , respostas não são mais permitidas