sql - F# 从 CSV 生成 SQL

Question

我最近一直在学习 F# 和函数式编程。我发现一个非常有用的应用程序是为从具有一些关联 ID 的 CSV(或 excel 表)加载的数据生成 SQL 插入。

下面的代码是我的结果，相信以后用起来会很顺手。我认为其他人也可以从中受益，我欢迎人们在他们的收藏中发现宝贵的建议和其他脚本:

// Returns some dataload SQL for area mapping.
open System
open System.IO

// Read and split CSV into lists
let map_ngo_area = File.ReadAllLines(@"P:\MY_TABLE.csv") 
                        |> Array.to_list
                        |> List.map(fun x -> (x.Split([|','|]) 
                                                |> Array.map(fun y -> y.Trim())) 
                                                |> Array.to_list)

// Output Formatting function
let format_sql_record = "INSERT INTO MyTable
     (ID, REF1_ID, REF2_ID, CreatedUser, CreatedDateTime, LastModifiedUser, LastModifiedDateTime)
     VALUES
     ( {0}, {1}, {2}, 'system', getDate(), 'system', getDate() )"

 // Generate the SQL for the given list.  
let generate_sql list = list |> List.mapi(fun index row -> 
                                            match row with
                                                | [ngo_id; area_id] -> String.Format(format_sql_record, ((int index)+1), ngo_id, area_id) |> printfn "%s"
                                                | _ -> printfn "")

// Main Execution
map_ngo_area |> generate_sql |> ignore

// End of program, pause to view console output.
System.Console.ReadKey() |> ignore

关于改进我的 F# 代码或过程的任何建议？也欢迎发表评论，因为我对这种范式还很陌生，而且思维转变并不像我预期的那样迅速。

谢谢:)

Answer 1

这里有一些建议:

• 不要将 List.mapi 与返回 unit 的函数一起使用，因为您对生成的 unit list 无能为力。您应该改用 List.iteri，这样您就可以省略主执行部分末尾的 |> ignore。
• 更进一步，与其让 generate_sql 一次打印生成的行，不如生成一个字符串列表可能更好。请注意，在这种情况下，您将返回使用 List.mapi，因为您应用的函数将为每一行返回一个结果。
• 使用 F# 的打印格式而不是 String.Format。例如，与其让 format_sql_record 成为一个字符串，不如让它成为一个 int->string->string->string 类型的函数: let format_sql_record = sprintf "插入 ... 值(%i、%s、%s、...)"
• 根据您使用的 F# 版本，您可能应该使用重命名的函数 Array.toList 而不是 Array.to_list，因为这就是名称将在 F# 的最终版本中使用。