TOP

Camel Case Función para LibreOffice Calc

CAMELCASE() Descripción

La función CAMELCASE() está diseñada para combinar palabras con un caso variable de letras, es decir, como resultado se devuelve una sola palabra, por ejemplo "camelCaseFunction".

Camel Case divide una cadena de palabras separadas por espacios, guiones, guiones bajos o mayúsculas y minúsculas en elementos separados. Luego, convierte todas estas palabras a mayúsculas excepto la primera, que se convierte a minúsculas, y combina todos los elementos en una sola palabra.

La función CAMELCASE() puede ser útil en la programación para convertir nombres de variables de acuerdo con las convenciones de escritura de código aceptadas (coding Conventions).


BASIC código para la función Camel Case

Aquí está el código de macro para crear una función personalizada que puede combinar diferentes palabras en una, donde las partes lógicas estarán separadas por un caso variable (Camel Case) en el programa LibreOffice Calc.

Abra el menú Tools - Macros - Edit Macros..., seleccione Module1 y copie el siguiente texto en el módulo:

Function CamelCase(ByVal str As String) As String
  Dim words As Variant
  Dim i     As Integer
  Dim FCalc As Object
  
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  str = Replace(str,"-"," ")
  str = Replace(str,"_"," ")  
  str = FCalc.callFunction("TRIM", Array(str))  
  str = FCalc.callFunction("REGEX", Array(str,"([:lower:])([:upper:])","$1 $2","g"))
    
  str = LCase(str)
  words = Split(str, " ")
    
  For i = LBound(words) + 1 To UBound(words)       
    words(i) = UCase(Left(words(i), 1)) & Mid(words(i), 2)       
  Next i
    
  CamelCase = Join(words,"")
End Function

Luego cierre Macro Editor, regrese a LibreOffice Calc y use nuestra nueva función en cualquier celda.