Programación General > Visual Basic 6.0 e inferiores

 Convertir Un String De Datos Binarios En Un Numero

(1/1)

lotusr:
Necesito saber como ustedes podrían convertir una cadena de caracteres con datos binarios proporcionada por el método GET de visual Basic en un numero no me importa si es double o long y después volver a reconstituirla en una cadena de caracteres.

Agradeciendo por anticipado sus comentarios. Aqui les dejo mi correo si desean hablar conmigo directamente [email:2io2ivc5]lotusr@walla.com[/email:2io2ivc5].

Por favor identifiquense.

Atte.

LOTUSR

cpmario:
Tengo estas 2 rutinas que son de una aplicación VB6 que elaboré para proteger de descompilación los programas de VB4.
La carga de la información binaria es en un Array de bytes. El manejo de la información en la variable String debe ser con instrucciones de 16 bit como MidB, LenB, ChrB, etc.


--- Código: Text --- Sub OpenFile(strFilename As String)    Dim intFIndex As Integer    Dim lngLenFile As Long    Dim lngBytes As Long     On Error GoTo error_open_Exe    ' Abrir archivo seleccionado    If strFilename <> "" Then      If Dir(strFilename) <> "" Then         intFIndex = FreeFile         Close #intFIndex         Screen.MousePointer = 11         Open strFilename For Binary As #intFIndex         lngLenFile = LOF(intFIndex)         ReDim GetByt(1 To lngLenFile) As Byte '<---         Get #intFIndex, , GetByt()         ' Convertir a String         gstrExe = GetByt()         'Reset array         ReDim GetByt(1 To 1)         Close #intFIndex         gstrWorkDir = Path(strFilename)         Call WriteWorkingDir      Else         gstrText = "El archivo no existe"         MsgBox gstrText, vbExclamation, gstrAppTitle      End If   End If   Screen.MousePointer = vbDefaultExit Suberror_open_Exe:   gstrText = "Error al abrir archivo"   MsgBox gstrText, vbExclamation, gstrAppTitle   Screen.MousePointer = vbDefault   Exit SubEnd Sub Sub SaveFileAs(Filename)    Dim lngLenExe As Long    On Error Resume Next     Open Filename For Binary As #1    Screen.MousePointer = 11    ' Escribir contenido de la variable en modo de 16 bit    lngLenExe = LenB(gstrExe)    ReDim PutByt(1 To lngLenExe) As Byte    PutByt() = gstrExe    Put #1, , PutByt()    Close #1    Screen.MousePointer = 0    If Err Then        MsgBox Error, 48, App.Title    End IfEnd Sub  
 :)


---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6, con diccionario propio.
http://consultapractica.aztecaonline.net/index2.html

lotusr:
Debo agredescer a cpmario por su codigo, que realmente es de mucha ayuda no se me habia ocurrido esa idea :o . Si tiene otra solución que puedan darle e este problema no olviden escribir su comentario. cpmario de verdad muchas gracias aunque mis archivos pesan mas de 6 megas y tienen mas de 20 millones de caracteres. pero tu idea es fantastica.

ATTE

LOTUSR

Navegación

[0] Índice de Mensajes