23 de octubre de 2008

Función EsMayusculas()

Función para determinar si una cadena pasada está en mayúsculas o no.

Hoy me he visto en la necesidad de saber si las cadenas de una tabla (había 9000) estaban en mayúsculas o no.

Tenemos una tabla para traducción de idiomas, en la columna de la izquierda el TextoATraducir, y en la derecha el TextoTraducido. Hemos empleado google, para hacer una traducción inicial (Bastante decente por cierto), pero al traducir, había frases en mayúsculas en el TextoATraducir, que al traducirlas, las ha dejado en minúsculas.

Esto, al visualizarse en la aplicación no se ve bien, pues por diseño, todas nuestras etiquetas están en mayúscula.

Así que necesitaba una función para saber si la frase entera está en mayúscula o no. Pero Fox no la tiene.

Así que he diseñado una función que me ha sacado del aprieto. No se si es muy perfecta, pero a mi me ha resultado muy útil.

Un Saludo.

Fernando Puyuelo
*---------------------------------------------------------
* Método:
*  FUNCTION EsMayusculas
* Parameters:
*  tcCadena: E : Cadena a verificar si está en Mayúsculas
* Objetivo:
*  Revisar si una cadena pasada por parametro está en Mayúsculas o no.
* Ejemplo:
*  ? EsMayusculas("ESTO ES UNA FRASE EN MAYÚSCULAS") -> .T.
*  ? EsMayusculas("ESTO ES UNA FRASE no todo en MAYÚSCULAS") -> .F.
* Programador:
*  Fernando PUyuelo Ossorio
*  INFORMÁTICA BORSAN, S.L.
* Fecha de Terminación:
*  22/10/2008 11:12:24
* Modificaciones:
*---------------------------------------------------------
FUNCTION EsMayusculas
LPARAMETERS tcCadena

LOCAL i, llEsMayusculas
i = 0
llEsMayusculas = NULL

FOR i = 1 TO LEN(tcCadena)

 llLetra = SUBSTR(tcCadena,i,1)
 IF !EMPTY(llLetra)
  llEsMayusculas = ISUPPER(llLetra)
 ENDIF 

 IF !llEsMayusculas
  EXIT
 ENDIF
ENDFOR

IF ISNULL(llEsMayusculas)
 llEsMayusculas = .F.
ENDIF

RETURN llEsMayusculas
*FIN FUNCTION EsMayusculas --------------------------------------

20 de octubre de 2008

Liberado FoxCharts 1.0 Release Candidate

Ya esta disponible para descarga libre y gratuita la versión 1.0 Release Candidate de esta excelente clase de código abierto.

Gracias Cesar por todo tu esfuerzo para liberar esta versión de esta excelente clase para toda la comunidad mundial de Visual FoxPro.

Pueden descargar FoxCharts 1.0 Release Candidate libremente de:

http://vfpx.codeplex.com/releases/view/18515

Los requisitos para utilizar FoxCharts son:

. Visual FoxPro 9.0
. Librería GdiPlusX de VFPX

Algunos ejemplos de la clase FoxCharts (http://vfpx.codeplex.com/wikipage?title=FoxCharts)







19 de octubre de 2008

ActiveVFP Liberado

Home of ActiveVFP - Foxpro on the World Wide Web

Ya esta para descargar gratuitamente este excelente framework para desarrollar fácilmente aplicaciones Web con Visual FoxPro.

Pueden descargar libremente la última versión de:

http://activevfp.codeplex.com/releases/view/53030

ActiveVFP es un proyecto de código abierto completamente gratuito que permite crear fácilmente aplicaciones Web con Visual FoxPro, ya que provee un framework fácil de usar para crear DLL multihilos con código VFP puro.

La página de este proyecto es:

http://activevfp.codeplex.com