将单元格值转换为 snake_case

Question

我有一些数据清理任务。我有一个从 H6 开始并进一步向下的列。该列包含的数据应该在snake_case 中，但事实并非如此。单元格值的格式为：

• 搭配骆驼套：“CamelCase”
• 带空格：“间隔值”
• 有一些初始呼叫上限：ALLCAPSPREFIX_rest
• 以上组合

我知道没有具体的算法将这一切带到snake_case，但我想提出至少将大多数单元格带到snake_case的代码。

我尝试用 VBA 代码用下划线替换空格并获取下划线的索引。现在我正在考虑将下划线后的所有字符设为小写。此外，我正在考虑替换两个字符的序列：第一个小写，下一个大写，说lCtol_c因为我不想CCC转换为c_c_c，而是转换为ccc. 但在继续之前，我想知道是否有更简单的方法来解决这个问题。

Answer 1

这是一种可以满足您要求的方法：

Option Explicit
Function Snake_case(s As String) As String
    Dim RE As Object
    Const sPat As String = "([A-Za-z0-9]+)(?=[ _A-Z])[ _]?(\S+)"
    Const sRepl As String = "$1_$2"
    Dim v As Variant

Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .ignorecase = False
    .Pattern = sPat
    v = Split(.Replace(s, sRepl), "_")
End With

v(0) = WorksheetFunction.Proper(v(0))
v(1) = LCase(v(1))
Snake_case = Join(v, "_")

End Function

这是对正则表达式和替换字符串的解释：

Snake_case 转换

([A-Za-z0-9]+)(?=[ _A-Z])[ _]?(\S+)

选项：区分大小写；^$ 匹配换行符

• 匹配下面的正则表达式并将其匹配捕获到反向引用编号 1 ([A-Za-z0-9]+)
  • 匹配以下列表中的单个字符 [A-Za-z0-9]+
    • 在一次和无限次之间，尽可能多次，根据需要回馈（贪婪） +
    • 介于“A”和“Z”之间的字符 A-Z
    • 介于“a”和“z”之间的字符 a-z
    • 介于“0”和“9”之间的字符 0-9
• 断言下面的正则表达式可以从这个位置开始匹配（正向前瞻） (?=[ _A-Z])
  • 匹配以下列表中的单个字符 [ _A-Z]
    • 列表中的单个字符“_” _
    • 介于“A”和“Z”之间的字符 A-Z
• 匹配列表“_”中的单个字符 [ _]?
  • 0 到 1 次之间，尽可能多次，按需回馈（贪婪） ?
• 匹配下面的正则表达式并将其匹配项捕获到反向引用编号 2 (\S+)
  • 匹配不是“空白字符”的单个字符 \S+
    • 在一次和无限次之间，尽可能多次，根据需要回馈（贪婪） +

$1_$2

• 通过捕获组号 1 插入最后匹配的文本 $1
• 按字面插入字符“_” _
• 通过捕获组号 2 插入最后匹配的文本 $2

使用RegexBuddy创建