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"