pquery.m

(Haystack as text, Needle as text) as number =>
List.Count(Text.Split(Haystack, Needle)) - 1

(Rec as record, Lambda as function) as record =>
let
    Keys = Record.FieldNames(Rec),
    Values = Record.FieldValues(Rec),
    Renamed = List.Transform(Keys, each Lambda(_, Record.Field(Rec, _))),
    Recorded = Record.FromList(Values, Renamed),
    Return = Recorded
in
    Return