TOP

Snake Case LibreOffice 的函数 Calc

SNAKECASe() 描述

函数 SNAKECASE() 旨在使用下划线组合单词,因此它返回单个单词,例如“snake_case_function”。

Snake Case 分割由空格、连字符、下划线或大小写更改分隔的单词字符串,然后将这些单词转换为小写并用下划线分隔符(“_”)将它们连接起来。

SNAKECASE() 函数在编程中非常有用,可根据可接受的代码编写约定(coding conventions)转换变量名称。


BASIC 函数代码 Snake Case

以下是创建自定义函数的宏代码,该函数可以将文本转换为 LibreOffice Calc 中用下划线分隔的单个单词 (Snake Case)。

打开菜单 Tools - Macros - Edit Macros...,选择 Module1 并将以下文本复制到模块中:

Function SnakeCase(ByVal str As String) As String
  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, " ")            
    
  SnakeCase = Join(words,"_")
End Function

然后关闭 Macro Editor,返回到 LibreOffice Calc 并在任何单元格中使用我们的新函数。