TOP

Kebab Case Função para LibreOffice Calc

KEBABCASE() Descrição

A função KEBABCASE() foi projetada para combinar palavras usando um hífen, ou seja, uma única palavra é retornada como resultado, por exemplo. «kebab-case-function» .

Kebab Case divide uma sequência de palavras separadas por espaços, hífens, sublinhados ou alterações de maiúsculas e minúsculas e, em seguida, converte essas palavras em minúsculas e as une com um separador de hífen ("-").

A função KEBABCASE() pode ser útil em programação para converter nomes de variáveis de acordo com convenções de escrita de código aceitas (coding conventions) .

StarBASIC código para função Kebab Case

Aqui está o código de macro para criar uma função personalizada que pode converter texto em palavras individuais separadas por hífens (Kebab Case) em LibreOffice Calc.

Abra o menu Tools - Macros - Edit Macros..., selecione Module1 e copie o seguinte texto no módulo:

Function KebabCase(ByVal str As String) As String  
  'moonexcel.com.ua
  Dim words As Variant  
  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," ")              
      
  KebabCase = Join(words,"-")  
End Function

Em seguida, feche Macro Editor, retorne para LibreOffice Calc e use nossa nova função em qualquer célula.