Autor
|
Tema: imposible comparar texto :S (Leído 2,667 veces)
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
Hola! uso este codigo, pero compara mal :S 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 ...
|
|
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
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
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
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
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
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.
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
perdon por tantos posts, pero consegui cargar las verciones en textbox y comparar los textbox's. pero ahora pasa esto! :S el codigo que uso para comparar : 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
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
Solucion : If Text1.Text = Text2.Text Then
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA !!! Para mi tendrias que hacer asi: (suponinendo que las versiones las expresas como numeros, no como "3.1.3.22" ponele.) 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!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Comparar dos archivos de texto
PHP
|
Zieg Uchiha
|
1
|
8,335
|
14 Marzo 2009, 13:46 pm
por alone-in-the-chat
|
|
|
Analista llama a Google Docs "un fracaso" imposible de comparar con Microsoft...
Noticias
|
wolfbcn
|
0
|
2,403
|
16 Junio 2010, 12:59 pm
por wolfbcn
|
|
|
como puedo comparar dos cadenas de texto?
Programación C/C++
|
linux1
|
8
|
10,757
|
15 Octubre 2010, 15:22 pm
por xassiz~
|
|
|
[Solucionado]Imposible mostrar texto de un txt en C -
Programación C/C++
|
Arturo400
|
6
|
3,305
|
26 Septiembre 2016, 00:04 am
por MAFUS
|
|
|
Obtener nombres de un archivo de texto y comparar sus iniciales
Programación C/C++
|
doitunkboo
|
0
|
1,679
|
13 Diciembre 2018, 09:12 am
por doitunkboo
|
|