F＃：记录到查询字符串

Question

我正在寻找一个现有的解决方案来序列化记录查询字符串，但什么都没发现。我知道F＃漂亮的打印，但我不知道如何手动访问它。

在共同我想是这样的：

type Person = {first:string; last:string} 
type Group = {name:string; size:int} 

let person = {first="Mary"; last="Smith"} 
let personQueryString = Something.toQueryString person 

let group = {name="Full"; size=345} 
let groupQueryString = Something.toQueryString group 

其中

personQueryString -> "first=Mary&last=Smith" 
groupQueryString -> "name=Full&size=345" 

Answer 1

我不认为这样的功能存在，但你可以写一个使用反射：

open System.Reflection 

module Something = 
    let toQueryString x = 
     let formatElement (pi : PropertyInfo) = 
      sprintf "%s=%O" pi.Name <| pi.GetValue x 
     x.GetType().GetProperties() 
     |> Array.map formatElement 
     |> String.concat "&" 

由于它使用了反射，因此它不像预先知道类型的专用函数那样高效，所以无论这是否足以满足您的需求，只有您知道。

它产生所需的结果，虽然：

> let person = {first="Mary"; last="Smith"};; 

val person : Person = {first = "Mary"; 
         last = "Smith";} 

> let personQueryString = Something.toQueryString person;; 

val personQueryString : string = "first=Mary&last=Smith" 

> let group = {name="Full"; size=345};; 

val group : Group = {name = "Full"; 
        size = 345;} 

> let groupQueryString = Something.toQueryString group;; 

val groupQueryString : string = "name=Full&size=345"