Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » FUNCIONES L2BIN Y BIN2L ...

FoxPro/Visual FoxPro - FUNCIONES L2BIN Y BIN2L ...

Volver
Nuevo Tema
<<>>
 
Vista:

FUNCIONES L2BIN Y BIN2L ...

Publicado por Juanma (503 intervenciones) el 29/10/2003 13:32:12
Saludos ...
Estoy migrando una aplicación de Clipper a VFP6 y me encuentro con el problema que VFP no tiene las FUNCIONES L2BIN y BIN2L que usa clipper ... y necesitaria los fuentes de dicha funciones.

¿Quien me lo puede pasar?

Gacias ...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:FUNCIONES L2BIN Y BIN2L ...

Publicado por josegil (19 intervenciones) el 29/10/2003 16:49:26
Si me dices que procedimiento desarrollan estas funciones o para que sirven, yo te podr'ia ayudar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:FUNCIONES L2BIN Y BIN2L ...

Publicado por Plinio (7841 intervenciones) el 29/10/2003 22:38:41
no la entiendo bien, pero BINTOC( ) y CTOBIN() pueden ayudar?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FUNCIONES L2BIN Y BIN2L ...

Publicado por Mayo (1 intervención) el 09/02/2015 22:47:12
12 años tarde, espero le sirva a alguien


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
FUNCTION BIN2L(cadena)
	IF ASC(SUBSTR(cadena,4,1)) < 128
		RETURN CTOBIN(CHR(ASC(SUBSTR(cadena,4,1)) + 128)+SUBSTR(cadena,3,1) + SUBSTR(cadena,2,1) + SUBSTR(cadena,1,1))
	ELSE
		RETURN CTOBIN(CHR(ASC(SUBSTR(cadena,4,1)) - 128)+SUBSTR(cadena,3,1) + SUBSTR(cadena,2,1) + SUBSTR(cadena,1,1))
	ENDIF
ENDFUNC
 
FUNCTION L2BIN(cadena)
	IF ASC(SUBSTR(BINTOC(cadena),1,1)) < 128
		RETURN SUBSTR(BINTOC(cadena),4,1) + SUBSTR(BINTOC(cadena),3,1) + ;
		SUBSTR(BINTOC(cadena),2,1) + CHR(ASC(SUBSTR(BINTOC(cadena),1,1)) + 128)
	ELSE
		RETURN SUBSTR(BINTOC(cadena),4,1) + SUBSTR(BINTOC(cadena),3,1) + ;
		SUBSTR(BINTOC(cadena),2,1) + CHR(ASC(SUBSTR(BINTOC(cadena),1,1)) - 128)
	ENDIF
ENDFUNC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FUNCIONES L2BIN Y BIN2L ...

Publicado por AB (1 intervención) el 28/11/2020 05:25:07
Gracias MAYO. Me sirvió mucho. Te debo unas chelas...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar