Fixed fP issue with self calling
This commit is contained in:
236
power-query/fP.m
236
power-query/fP.m
@@ -1,138 +1,140 @@
|
||||
(P_NAME as text, optional P_FORCED_TYPE as nullable text) => let
|
||||
let
|
||||
fP = (P_NAME as text, optional P_FORCED_TYPE as nullable text) => let
|
||||
//Получаем параметр из таблицы с настройками
|
||||
GET_PARAMETER = try
|
||||
let
|
||||
GetTable = Excel.CurrentWorkbook(){[Name="PARAMETERS_TABLE"]}[Content],
|
||||
KeepNeeded = Table.SelectColumns(GetTable,{"ПАРАМЕТР", "ЗНАЧЕНИЕ","ТИП"}),
|
||||
SetTypes = Table.TransformColumnTypes(KeepNeeded,{{"ПАРАМЕТР", type text}, {"ЗНАЧЕНИЕ", type any}, {"ТИП", type text}}),
|
||||
Filter = Table.SelectRows(SetTypes, each ([ПАРАМЕТР] = P_NAME)),
|
||||
Value = Table.SingleRow(Filter)
|
||||
in
|
||||
Value otherwise null,
|
||||
|
||||
//Получаем параметр из таблицы с настройками
|
||||
GET_PARAMETER = try
|
||||
let
|
||||
GetTable = Excel.CurrentWorkbook(){[Name="PARAMETERS_TABLE"]}[Content],
|
||||
KeepNeeded = Table.SelectColumns(GetTable,{"ПАРАМЕТР", "ЗНАЧЕНИЕ","ТИП"}),
|
||||
SetTypes = Table.TransformColumnTypes(KeepNeeded,{{"ПАРАМЕТР", type text}, {"ЗНАЧЕНИЕ", type any}, {"ТИП", type text}}),
|
||||
Filter = Table.SelectRows(SetTypes, each ([ПАРАМЕТР] = P_NAME)),
|
||||
Value = Table.SingleRow(Filter)
|
||||
PATH_OVERRIDE = try if P_NAME = "PATH_OVERRIDE" then null else @fP("PATH_OVERRIDE") otherwise null,
|
||||
|
||||
P_TYPE = if GET_PARAMETER <> null then
|
||||
if P_FORCED_TYPE = null then GET_PARAMETER[ТИП] else P_FORCED_TYPE
|
||||
else
|
||||
null,
|
||||
|
||||
P_VALUE = if GET_PARAMETER <> null then
|
||||
if PATH_OVERRIDE <> null and
|
||||
List.Contains({"FILE", "EXCEL", "DIR", "PATH", "CSVL"}, P_TYPE) then
|
||||
fReplaceFunction(GET_PARAMETER[ЗНАЧЕНИЕ], false, PATH_OVERRIDE )
|
||||
else
|
||||
GET_PARAMETER[ЗНАЧЕНИЕ]
|
||||
else
|
||||
null,
|
||||
|
||||
// Определяем функции
|
||||
// БУЛЕВО
|
||||
F_Boolean = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type logical)
|
||||
in
|
||||
Value otherwise null,
|
||||
Result,
|
||||
|
||||
PATH_OVERRIDE = try if P_NAME = "PATH_OVERRIDE" then null else fP("PATH_OVERRIDE") otherwise null,
|
||||
// ЦЕЛОЕ ЧИСЛО
|
||||
F_Integer = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, Int64.Type)
|
||||
in
|
||||
Result,
|
||||
|
||||
P_TYPE = if GET_PARAMETER <> null then
|
||||
if P_FORCED_TYPE = null then GET_PARAMETER[ТИП] else P_FORCED_TYPE
|
||||
else
|
||||
null,
|
||||
// ЧИСЛО С ЗАПЯТОЙ
|
||||
F_Float = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type number)
|
||||
in
|
||||
Result,
|
||||
|
||||
P_VALUE = if GET_PARAMETER <> null then
|
||||
if PATH_OVERRIDE <> null and
|
||||
List.Contains({"FILE", "EXCEL", "DIR", "PATH", "CSVL"}, P_TYPE) then
|
||||
fReplaceFunction(GET_PARAMETER[ЗНАЧЕНИЕ], false, PATH_OVERRIDE )
|
||||
else
|
||||
GET_PARAMETER[ЗНАЧЕНИЕ]
|
||||
else
|
||||
null,
|
||||
// СТРОКА
|
||||
F_Text = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type text)
|
||||
in
|
||||
Result,
|
||||
|
||||
// Определяем функции
|
||||
// БУЛЕВО
|
||||
F_Boolean = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type logical)
|
||||
in
|
||||
Result,
|
||||
// ДАТА
|
||||
F_Date = (Input as any) => let
|
||||
Result = Value.ReplaceType(DateTime.Date(Input), type date)
|
||||
in
|
||||
Result,
|
||||
|
||||
// ЦЕЛОЕ ЧИСЛО
|
||||
F_Integer = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, Int64.Type)
|
||||
in
|
||||
Result,
|
||||
// ДАТА И ВРЕМЯ
|
||||
F_DateTime = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type datetime)
|
||||
in
|
||||
Result,
|
||||
|
||||
// ЧИСЛО С ЗАПЯТОЙ
|
||||
F_Float = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type number)
|
||||
in
|
||||
Result,
|
||||
// СПИСОК В ФОРМАТЕ PQ
|
||||
F_List = (Input as any) => let
|
||||
Result = Text.Split(Text.Replace(Text.From(Input), "; ", ";"), ";")
|
||||
in
|
||||
Result,
|
||||
|
||||
// СТРОКА
|
||||
F_Text = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type text)
|
||||
in
|
||||
Result,
|
||||
// ТАБЛИЦА В ФОРМАТЕ PQ
|
||||
F_RcrdSet = (Input as any) => let
|
||||
RemoveSpaces = Text.Replace(Text.Replace(Input, " ;", ";"), "; ", ";"),
|
||||
SplitRows = Text.Split(RemoveSpaces, "};{"),
|
||||
Replace = List.ReplaceValue(List.ReplaceValue(SplitRows,"}","",Replacer.ReplaceText),"{","",Replacer.ReplaceText),
|
||||
Result = Table.FromList(Replace, Splitter.SplitTextByDelimiter(";"))
|
||||
in
|
||||
Result,
|
||||
|
||||
// ДАТА
|
||||
F_Date = (Input as any) => let
|
||||
Result = Value.ReplaceType(DateTime.Date(Input), type date)
|
||||
in
|
||||
Result,
|
||||
// СПИСОК ЗАМЕН
|
||||
F_Symlink = (Input as any) => let
|
||||
RemoveSpaces = Text.Replace(Text.Replace(Input, " ;", ";"), "; ", ";"),
|
||||
SplitRows = Text.Split(RemoveSpaces, ";"),
|
||||
Result = Table.FromList(SplitRows, Splitter.SplitTextByDelimiter(">>"))
|
||||
in
|
||||
Result,
|
||||
|
||||
// ДАТА И ВРЕМЯ
|
||||
F_DateTime = (Input as any) => let
|
||||
Result = Value.ReplaceType(Input, type datetime)
|
||||
in
|
||||
Result,
|
||||
// ФАЙЛ EXCEL
|
||||
F_ExcelFile = (Input as any) => let
|
||||
Result = Excel.Workbook(File.Contents(Input), null, true)
|
||||
in
|
||||
Result,
|
||||
|
||||
// СПИСОК В ФОРМАТЕ PQ
|
||||
F_List = (Input as any) => let
|
||||
Result = Text.Split(Text.Replace(Text.From(Input), "; ", ";"), ";")
|
||||
in
|
||||
Result,
|
||||
// СОДЕРЖИМОЕ ПАПКИ
|
||||
F_DirContent = (Input as any) => let
|
||||
Result = Folder.Files(Input)
|
||||
in
|
||||
Result,
|
||||
|
||||
// ТАБЛИЦА В ФОРМАТЕ PQ
|
||||
F_RcrdSet = (Input as any) => let
|
||||
RemoveSpaces = Text.Replace(Text.Replace(Input, " ;", ";"), "; ", ";"),
|
||||
SplitRows = Text.Split(RemoveSpaces, "};{"),
|
||||
Replace = List.ReplaceValue(List.ReplaceValue(SplitRows,"}","",Replacer.ReplaceText),"{","",Replacer.ReplaceText),
|
||||
Result = Table.FromList(Replace, Splitter.SplitTextByDelimiter(";"))
|
||||
in
|
||||
Result,
|
||||
// ЛОКАЛЬНАЯ ИМЕНОВАННАЯ ТАБЛИЦА
|
||||
F_LocalTable = (Input as any) => let
|
||||
Result = Excel.CurrentWorkbook(){[Name=Input]}[Content]
|
||||
in
|
||||
Result,
|
||||
|
||||
// СПИСОК ЗАМЕН
|
||||
F_Symlink = (Input as any) => let
|
||||
RemoveSpaces = Text.Replace(Text.Replace(Input, " ;", ";"), "; ", ";"),
|
||||
SplitRows = Text.Split(RemoveSpaces, ";"),
|
||||
Result = Table.FromList(SplitRows, Splitter.SplitTextByDelimiter(">>"))
|
||||
in
|
||||
Result,
|
||||
// CSV-ФАЙЛ В СТАНДАРТНОЙ ПАПКЕ
|
||||
F_LocalCSV = (Input as any) => let
|
||||
Result = Csv.Document(File.Contents("\\msk.mts.ru\msk\WORKDATA\OPSIMPAO-ANALYTICS\Aggregated CSV\" & Input & ".csv"), [Delimiter=",", Encoding=1251, QuoteStyle=QuoteStyle.None])
|
||||
in
|
||||
Result,
|
||||
|
||||
// ФАЙЛ EXCEL
|
||||
F_ExcelFile = (Input as any) => let
|
||||
Result = Excel.Workbook(File.Contents(Input), null, true)
|
||||
in
|
||||
Result,
|
||||
CaseValues = {
|
||||
{ List.Contains({"BOOL" , "LOGICAL" }, P_TYPE), try F_Boolean (P_VALUE) otherwise null},
|
||||
{ List.Contains({"INT" , "INT64" }, P_TYPE), try F_Integer (P_VALUE) otherwise null},
|
||||
{ List.Contains({"FLOAT" , "DOUBLE" }, P_TYPE), try F_Float (P_VALUE) otherwise null},
|
||||
{ List.Contains({"TEXT" , "STRING" }, P_TYPE), try F_Text (P_VALUE) otherwise null},
|
||||
{ List.Contains({"DATE" }, P_TYPE), try F_Date (P_VALUE) otherwise null},
|
||||
{ List.Contains({"DATETIME", "DTTM" }, P_TYPE), try F_DateTime (P_VALUE) otherwise null},
|
||||
|
||||
// СОДЕРЖИМОЕ ПАПКИ
|
||||
F_DirContent = (Input as any) => let
|
||||
Result = Folder.Files(Input)
|
||||
in
|
||||
Result,
|
||||
{ List.Contains({"LIST" }, P_TYPE), try F_List (P_VALUE) otherwise null},
|
||||
{ List.Contains({"RCRDSET", "PQTABLE" }, P_TYPE), try F_RcrdSet (P_VALUE) otherwise null},
|
||||
{ List.Contains({"SYMLNK" , "SYMLINK" }, P_TYPE), try F_Symlink (P_VALUE) otherwise null},
|
||||
|
||||
// ЛОКАЛЬНАЯ ИМЕНОВАННАЯ ТАБЛИЦА
|
||||
F_LocalTable = (Input as any) => let
|
||||
Result = Excel.CurrentWorkbook(){[Name=Input]}[Content]
|
||||
in
|
||||
Result,
|
||||
{ List.Contains({"TABLE" }, P_TYPE), try F_LocalTable (P_VALUE) otherwise null},
|
||||
|
||||
// CSV-ФАЙЛ В СТАНДАРТНОЙ ПАПКЕ
|
||||
F_LocalCSV = (Input as any) => let
|
||||
Result = Csv.Document(File.Contents("\\msk.mts.ru\msk\WORKDATA\OPSIMPAO-ANALYTICS\Aggregated CSV\" & Input & ".csv"), [Delimiter=",", Encoding=1251, QuoteStyle=QuoteStyle.None])
|
||||
in
|
||||
Result,
|
||||
{ List.Contains({"FILE" , "EXCEL" }, P_TYPE), try F_ExcelFile (P_VALUE) otherwise null},
|
||||
{ List.Contains({"DIR" , "PATH" }, P_TYPE), try F_DirContent (P_VALUE) otherwise null},
|
||||
{ List.Contains({"CSVL" }, P_TYPE), try F_LocalCSV (P_VALUE) otherwise null},
|
||||
|
||||
CaseValues = {
|
||||
{ List.Contains({"BOOL" , "LOGICAL" }, P_TYPE), try F_Boolean (P_VALUE) otherwise null},
|
||||
{ List.Contains({"INT" , "INT64" }, P_TYPE), try F_Integer (P_VALUE) otherwise null},
|
||||
{ List.Contains({"FLOAT" , "DOUBLE" }, P_TYPE), try F_Float (P_VALUE) otherwise null},
|
||||
{ List.Contains({"TEXT" , "STRING" }, P_TYPE), try F_Text (P_VALUE) otherwise null},
|
||||
{ List.Contains({"DATE" }, P_TYPE), try F_Date (P_VALUE) otherwise null},
|
||||
{ List.Contains({"DATETIME", "DTTM" }, P_TYPE), try F_DateTime (P_VALUE) otherwise null},
|
||||
{ true , P_VALUE }
|
||||
},
|
||||
|
||||
{ List.Contains({"LIST" }, P_TYPE), try F_List (P_VALUE) otherwise null},
|
||||
{ List.Contains({"RCRDSET", "PQTABLE" }, P_TYPE), try F_RcrdSet (P_VALUE) otherwise null},
|
||||
{ List.Contains({"SYMLNK" , "SYMLINK" }, P_TYPE), try F_Symlink (P_VALUE) otherwise null},
|
||||
SelectCase = List.First(List.Select(CaseValues, each _{0} = true)){1}
|
||||
|
||||
{ List.Contains({"TABLE" }, P_TYPE), try F_LocalTable (P_VALUE) otherwise null},
|
||||
|
||||
{ List.Contains({"FILE" , "EXCEL" }, P_TYPE), try F_ExcelFile (P_VALUE) otherwise null},
|
||||
{ List.Contains({"DIR" , "PATH" }, P_TYPE), try F_DirContent (P_VALUE) otherwise null},
|
||||
{ List.Contains({"CSVL" }, P_TYPE), try F_LocalCSV (P_VALUE) otherwise null},
|
||||
|
||||
{ true , P_VALUE }
|
||||
},
|
||||
|
||||
SelectCase = List.First(List.Select(CaseValues, each _{0} = true)){1}
|
||||
|
||||
in
|
||||
SelectCase
|
||||
in
|
||||
SelectCase
|
||||
in
|
||||
fP
|
||||
Reference in New Issue
Block a user