如何迭代F＃中的散列表？

Question

let dic = Environment.GetEnvironmentVariables() 
dic 
|> Seq.filter(fun k -> k.Contains("COMNTOOLS")) 

無法編譯。 我試過使用Array.filter, Seq.filter, List.filter 我試過只得到dic.Keys來迭代，但F＃似乎並不希望我強制將KeyCollection轉換爲IEnumerable。

我試圖向上轉型哈希表到IEnumerable<KeyValuePair<string,string>>

如何走是從Environment.GetEnvironmentVariables()返回的哈希表？

Answer 1

由於Environment.GetEnvironmentVariables()返回非通用IDictionary並在DictionaryEntry存儲鍵/值對，你必須使用Seq.cast第一：

let dic = Environment.GetEnvironmentVariables() 

dic 
|> Seq.cast<DictionaryEntry> 
|> Seq.filter(fun entry -> entry.Key.ToString().Contains("COMNTOOLS")) 

請參閱相關的文檔在https://msdn.microsoft.com/en-us/library/system.collections.idictionary(v=vs.110).aspx。請注意，entry.Key類型爲obj，因此在檢查字符串包含之前必須將其轉換爲字符串。

代替使用高次函數的，序列表達可能是方便的：

let dic = Environment.GetEnvironmentVariables() 
seq { 
    for entry in Seq.cast<DictionaryEntry> dic -> 
     (string entry.Key), (string entry.Value) 
} 
|> Seq.filter(fun (k, _) -> k.Contains("COMNTOOLS")) 

Answer 2

F＃SEQ只能與System.Collections.Generic.IEnumerable<_>操作。由Environment.GetEnvironmentVariables返回的System.IDictionary不是通用的，但它實現了非通用的System.Collections.IEnumerable而不是System.Collections.Generic.IEnumerable<_>。 System.Collections.IEnumerable不包含類型信息並且允許列舉盒裝類型的集合，即System.Object的實例。 無論如何System.IDictionary可以枚舉爲System.Collections.DictionaryEntry對象的集合，所以你可以簡單地調用Seq.cast就可以了。它會讓您訪問Key和Value屬性，但仍然將其作爲對象裝箱，所以您應該將它們解除框。

let dic = System.Environment.GetEnvironmentVariables() 
dic 
|> Seq.cast<System.Collections.DictionaryEntry> 
|> Seq.filter(fun k -> (k.Key :?> string).Contains("COMNTOOLS")) 

或者，你可以使用下面的函數

let asStringPairSeq (d : System.Collections.IDictionary) : seq<string * string> = 
    Seq.cast<System.Collections.DictionaryEntry> d 
    |> Seq.map (fun kv -> kv.Key :?> string, kv.Value :?> string) 

System.Environment.GetEnvironmentVariables() 
|> asStringPairSeq 
|> Seq.filter (fun (k,v) -> k.Contains("COMNTOOLS"))