Add fExtractAndRename function and create fIfBlank file

power-query/fExtractAndRename.m

@@ -0,0 +1,16 @@
+let
+    ExpandAndRename = (tTarget          as table, 
+                       sDataColumnName  as text, 
+                       sTagString       as text) as table =>
+        
+        let
+            tagString =             sTagString,
+            tableSubstition =       try Table.SelectRows(fP("RENAMING_RULES"), each ([#"#"] = tagString)) otherwise error "No substitutions provided",
+            extractedColumnNames =  try Table.Column(tableSubstition, Table.ColumnNames(tableSubstition){0}) otherwise error "Bad column list",
+            newColumnNames =        try Table.Column(tableSubstition, Table.ColumnNames(tableSubstition){1}) otherwise error "Bad column list",
+            
+            ExpandData = Table.ExpandTableColumn(tTarget, sDataColumnName, extractedColumnNames, newColumnNames)
+        in
+            ExpandData
+in
+    ExpandAndRename