Fecha y hora actual: Lunes 25 Mar 2019 12:59
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Consola desde VB.net

Responder al Tema

Índice del Foro > Visual Basic .NET > Consola desde VB.net

Autor Mensaje
eposhe



Registrado: 16 Sep 2015
Mensajes: 2

Mensaje Publicado: Miércoles 16 Sep 2015 18:37

Título del mensaje: Consola desde VB.net

Responder citando

Ayuda, necesito desde consola comparar dos archivos (uno local y otro en la nube) y según el resultado enviar una notificación a un par de correos.

Me podrían colaborar con esto, algún ejemplo que pueda usar como referencia,


Gracias,

Germán

Volver arriba
Ver perfil del usuario Enviar mensaje privado
WhiteSkull
CoAdmin


Registrado: 20 Mar 2009
Mensajes: 3136
Ubicación: y*width+x

Mensaje Publicado: Jueves 17 Sep 2015 12:44

Título del mensaje: Consola desde VB.net

Responder citando

¿Qué no sabes hacer? Espero que sepas programar.

Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
eposhe



Registrado: 16 Sep 2015
Mensajes: 2

Mensaje Publicado: Jueves 17 Sep 2015 14:29

Título del mensaje: Consola desde VB.net

Responder citando

Hola, si se programar, pero hasta ahora no he trabajado desde consola.

No se cómo hacer la comparación de los dos archivos, el remoto y el de la nube.


Gracias,

Volver arriba
Ver perfil del usuario Enviar mensaje privado
WhiteSkull
CoAdmin


Registrado: 20 Mar 2009
Mensajes: 3136
Ubicación: y*width+x

Mensaje Publicado: Jueves 17 Sep 2015 16:57

Título del mensaje: Consola desde VB.net

Responder citando

eposhe escribió:
No se cómo hacer la comparación de los dos archivos...


Es mu simple, sólo tienes que comparar el tamaño y cada byte en caso de tener el mismo tamaño, he aquí un ejemplo disponible en FreeVBCode:

Código:
  1.  
  2. Imports System.IO
  3. Imports System.Security.Cryptography
  4.  
  5. ...
  6. ...
  7.  
  8. Public Function CompareFiles(ByVal FileFullPath1 As String, ByVal FileFullPath2 As String) As Boolean
  9. 'returns true if two files passed to is are identical, false
  10. 'otherwise
  11. 'does byte comparison; works for both text and binary files
  12. 'Throws exception on errors; you can change to just return
  13. 'false if you prefer
  14.  
  15. Dim objMD5 As New MD5CryptoServiceProvider()
  16. Dim objEncoding As New System.Text.ASCIIEncoding()
  17.  
  18. Dim aFile1() As Byte, aFile2() As Byte
  19. Dim strContents1, strContents2 As String
  20. Dim objReader As StreamReader
  21. Dim objFS As FileStream
  22. Dim bAns As Boolean
  23. If Not File.Exists(FileFullPath1) Then _
  24. Throw New Exception(FileFullPath1 & " doesn't exist")
  25. If Not File.Exists(FileFullPath2) Then _
  26. Throw New Exception(FileFullPath2 & " doesn't exist")
  27.  
  28. Try
  29.  
  30. objFS = New FileStream(FileFullPath1, FileMode.Open)
  31. objReader = New StreamReader(objFS)
  32. aFile1 = objEncoding.GetBytes(objReader.ReadToEnd)
  33. strContents1 = objEncoding.GetString(objMD5.ComputeHash(aFile1))
  34. objReader.Close()
  35. objFS.Close()
  36.  
  37.  
  38. objFS = New FileStream(FileFullPath2, FileMode.Open)
  39. objReader = New StreamReader(objFS)
  40. aFile2 = objEncoding.GetBytes(objReader.ReadToEnd)
  41. strContents2 = objEncoding.GetString(objMD5.ComputeHash(aFile2))
  42.  
  43. bAns = strContents1 = strContents2 ' compara las cadenas de bytes previo "jaseo"
  44. objReader.Close()
  45. objFS.Close()
  46. aFile1 = Nothing
  47. aFile2 = Nothing
  48.  
  49. Catch ex As Exception
  50. Throw ex
  51.  
  52. End Try
  53.  
  54. Return bAns
  55. End Function
  56.  


eposhe escribió:
.. , el remoto y el de la nube.


Remoto? Nube? Me imagino que hablas de alguna tipo de conexión. Eso dependerá de cómo esté alojado el fichero. Así con esa infromación no puedo orientarte, tienes que dar más detalles.

Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

hola!! los saludo desde argentina

mery Preséntate a la comunidad 2 Jueves 13 Dic 2018 17:28 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Llamada a web service desde form

mrrobot2 Programación Web en general 1 Martes 14 Nov 2017 00:50 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Crear web desde 0

javitc Programación Web en general 11 Sábado 30 Sep 2017 21:23 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Nuevo desde México!

MarioC Preséntate a la comunidad 1 Viernes 30 Dic 2016 19:39 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Control HTML (o Jquery) desde VBA

morfeoct Visual Basic y VBA 3 Jueves 24 Nov 2016 18:34 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,