Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: CAR3S? en 22 Diciembre 2010, 20:04 PM

Título: imposible comparar texto :S
Publicado por: CAR3S? en 22 Diciembre 2010, 20:04 PM
Hola!

uso este codigo, pero compara mal :S

Código (vb) [Seleccionar]
Private Sub Command10_Click()
     
     
     
Open App.Path & "\vactual.txt" For Input As #1

Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf

Loop
     
Open (Environ("SystemDrive") & "\versión.txt") For Input As #2

Dim Linea2 As String, Total2 As String
Do Until EOF(1)
Line Input #2, Linea2
Total2 = Total2 + Linea2 + vbCrLf2
Dim v As String
v = Total2
Dim va As String
va = Total
Loop
      Shell (App.Path & "\Update.exe")
      Sleep 6000
     
           On Error GoTo error
    If (v) = (va) Then

       MsgBox "Ya hay una nueva versión!. Usted usa la versión ·3·"
   
Else
     MsgBox "No hay actualizaciones disponibles", vbInformation, "Actualizaciones..."

End If

     
 
  Exit Sub
error:
  MsgBox "Imposible actualizar.Para chequear manualmente visita "
       

      End Sub


osea, tira cualquier cosa! :S

Alguien me dice que esta mal?

Ya use varios codigos y en to2 me pasa lo mismo ...
Título: Re: imposible comparar texto :S
Publicado por: Elemental Code en 22 Diciembre 2010, 21:03 PM
desde el vamos el error esta aca

If (v) = (va) Then

       MsgBox "Ya hay una nueva versión!. Usted usa la versión ·3·"

Else
     MsgBox "No hay actualizaciones disponibles", vbInformation, "Actualizaciones..."

End If

si la version = a version actual entonces no hay actualizciones, esta al revez.

mas alla de eso ni idea :S
Título: Re: imposible comparar texto :S
Publicado por: CAR3S? en 22 Diciembre 2010, 21:15 PM
Cita de: Elemental Code en 22 Diciembre 2010, 21:03 PM
desde el vamos el error esta aca

If (v) = (va) Then

       MsgBox "Ya hay una nueva versión!. Usted usa la versión ·3·"

Else
     MsgBox "No hay actualizaciones disponibles", vbInformation, "Actualizaciones..."

End If

si la version = a version actual entonces no hay actualizciones, esta al revez.

mas alla de eso ni idea :S

No entendi ^;D
Título: Re: imposible comparar texto :S
Publicado por: CAR3S? en 22 Diciembre 2010, 21:19 PM
Miren, lo q pasa es q compara como el culo, lo ponga de la forma q lo ponga, compara como el culo.

en los 2 archivos .txt hay un solo caracter , q es depende a la version, en este caso el 3.

y depende como ponga eso de if y eso me sale el cartel. en definitiva, NO COMPARA, pero tira el error que quiere.
Título: Re: imposible comparar texto :S
Publicado por: CAR3S? en 22 Diciembre 2010, 22:15 PM
perdon por tantos posts, pero consegui cargar las verciones en textbox y comparar los textbox's.

pero ahora pasa esto! :S

(http://sphotos.ak.fbcdn.net/hphotos-ak-ash1/hs755.ash1/164640_1628564205374_1574649969_31441759_152059_n.jpg)

el codigo que uso para comparar :

Código (vb) [Seleccionar]
Public Function CompareFiles(FileOne As String, FileTwo As String) As Boolean

  Dim FileOneContents As Long

  Dim FileTwoContents As Long



  Open FileOne For Input As #1

    FileOneContents = LOF(1)

  Close #1

  Open FileTwo For Input As #1

    FileTwoContents = LOF(1)

  Close #1



  If FileOneContents = FileTwoContents Then

    CompareFiles = True

    Else

    CompareFiles = False

  End If

End Function


Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()

Timer1.Enabled = True


Dim ruta As String
ruta = App.Path & "\vactual.txt"
Dim nFic, sFic As String
nFic = FreeFile
sFic = ruta
Open sFic For Input As nFic
Text1 = Input(LOF(nFic), nFic)
Close nFic


Dim nFic2, sFic2 As String
Dim versión As String
versión = Environ("SystemDrive") & "\versión.txt"
nFic2 = FreeFile
sFic2 = versión
Open sFic2 For Input As nFic2
Text2 = Input(LOF(nFic2), nFic2)

Close nFic2







If ruta = versión Then

MsgBox "No hay actualizaciones pendientes."



Else

MsgBox "Hay una version superior!"

End If


Timer1.Enabled = False





End Sub
Título: Re: imposible comparar texto :S
Publicado por: CAR3S? en 22 Diciembre 2010, 22:18 PM
Solucion :

Código (vb) [Seleccionar]
If Text1.Text = Text2.Text Then
Título: Re: imposible comparar texto :S
Publicado por: 79137913 en 23 Diciembre 2010, 12:37 PM
HOLA !!!

Para mi tendrias que hacer asi:
(suponinendo que las versiones las expresas como numeros, no como "3.1.3.22" ponele.)

Código (vb) [Seleccionar]
if val(v) = val(va) then
    'esta usando la ultima version
elseif val(v) < val(va) then
    'tiene una version vieja
end if


GRACIAS POR LEER!!!