Преобразование значений ячеек в snake_case

Question

У меня есть задача по очистке данных.У меня есть колонка, которая начинается с H6 и дальше от них.Столбец содержит данные, которые должны были быть в snake_case, но это не так.Значения ячейки имеют вид:

• С регистром верблюда: "CamelCase"
• С пробелами: "Значение интервала"
• С некоторыми начальными заглавными буквами вызова: ALLCAPSPREFIX_rest
• Сочетание выше

Я знаю, что не может быть конкретного алгоритма, чтобы перенести все это в snake_case, но я хочу придумать код, который, по крайней мере, приведёт большинство клеток к snake_case.

Я попробовал код VBA заменить пробелы символами подчеркивания и получить индекс подчеркивания.Теперь я думал сделать все символы сразу после подчеркивания строчными.Далее я собирался заменить последовательность из двух символов: сначала строчными, а затем прописными, скажем, от lC до l_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
• Соответствует одному символу из списка «_» [ _]?
  • От нуля до одного раза, столько раз, сколько возможно, отдача по мере необходимости (жадный) ?
• Сопоставьте приведенное ниже регулярное выражение и сохраните его совпадение в обратном номере 2 (\S+)
  • Соответствует одному символу, который НЕ является «пробелом» \S+
    • От одного до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) +

$ 1_ $ 2

• Вставьте текст, который был в последний раз сопоставлен путем захвата номера группы 1 $1
• Вставьте символ «_» буквально _
• Вставьте текст, который был в последний раз сопоставлен путем захвата номера группы 2 $2

Создано с помощью RegexBuddy