Conversion desde GWBASIC
Publicado: Lun Nov 13, 2006 5:30 am
Buenas a Todos
Estoy en un proyecto de conversion de datos desde una aplicacion en GWBASIC,
que usa las funciones MKD y CVD para convertir un numero de dos decimales y
un string de 8 bytes. Para guardar en el archivo se usa MKD y para leer CVD.
Ya trate usando las funciones BIN2I, BIN2W y BIN2L, sin ningun exito. Busque
por toda la internet pero lo unico que he encontrado son funciones para
VBasic. Existe alguna forma de como recrear en xailer la funcion abajo
detallada o existira algo ya elaborado para hacer lo que les comente.
Cualquier ayuda me van a salvar de una ....
Esta es la funcion
//---------------------------------------------------------- ----------------------
' Enter the following Declare statement on one, single line.
Declare Sub hmemcpy Lib "kernel" (hpvDest As Any, hpvSource As Any,
ByVal cbCopy As Long)
Function MKD$ (x As Double)
temp$ = Space$(8)
hmemcpy ByVal temp$, x, 8
MKD$ = temp$
End Function
Function CVD (x As String) As Double
If Len(x) <> 8 Then
MsgBox "Illegal Function Call"
Stop
End If
hmemcpy temp#, ByVal x, 8
CVD = temp#
End Function
//---------------------------------------------------------- ----------------------
Gracias a todos
Fernando Hernandez
El Salvador
Estoy en un proyecto de conversion de datos desde una aplicacion en GWBASIC,
que usa las funciones MKD y CVD para convertir un numero de dos decimales y
un string de 8 bytes. Para guardar en el archivo se usa MKD y para leer CVD.
Ya trate usando las funciones BIN2I, BIN2W y BIN2L, sin ningun exito. Busque
por toda la internet pero lo unico que he encontrado son funciones para
VBasic. Existe alguna forma de como recrear en xailer la funcion abajo
detallada o existira algo ya elaborado para hacer lo que les comente.
Cualquier ayuda me van a salvar de una ....
Esta es la funcion
//---------------------------------------------------------- ----------------------
' Enter the following Declare statement on one, single line.
Declare Sub hmemcpy Lib "kernel" (hpvDest As Any, hpvSource As Any,
ByVal cbCopy As Long)
Function MKD$ (x As Double)
temp$ = Space$(8)
hmemcpy ByVal temp$, x, 8
MKD$ = temp$
End Function
Function CVD (x As String) As Double
If Len(x) <> 8 Then
MsgBox "Illegal Function Call"
Stop
End If
hmemcpy temp#, ByVal x, 8
CVD = temp#
End Function
//---------------------------------------------------------- ----------------------
Gracias a todos
Fernando Hernandez
El Salvador