कैसे एफ #

Question

में लाइनों की एक seq में एक फ़ाइल को पढ़ने के इस सी # संस्करण है:

public static IEnumerable<string> ReadLinesEnumerable(string path) { 
    using (var reader = new StreamReader(path)) { 
    var line = reader.ReadLine(); 
    while (line != null) { 
     yield return line; 
     line = reader.ReadLine(); 
    } 
    } 
} 

लेकिन सीधे अनुवाद करने की जरूरत है एक परिवर्तनशील चर।

Answer 1

let readLines (filePath:string) = seq { 
    use sr = new StreamReader (filePath) 
    while not sr.EndOfStream do 
     yield sr.ReadLine() 
} 

Answer 2

आप .NET 4.0 का उपयोग कर रहे हैं, तो आप सिर्फ File.ReadLines उपयोग कर सकते हैं।

> let readLines filePath = System.IO.File.ReadLines(filePath);; 

val readLines : string -> seq<string> 

Answer 3

सवाल इस पैटर्न encapsulating के लिए एक पुस्तकालय समारोह है कि क्या वहाँ उत्तर देने के लिए - वहाँ एक समारोह वास्तव में इस के लिए नहीं है, लेकिन वहाँ एक समारोह से कुछ राज्य Seq.unfold कहा जाता है आप अनुक्रम उत्पन्न करने के लिए अनुमति देता है । आप इस तरह से ऊपर कार्यक्षमता को लागू करने के लिए इसका इस्तेमाल कर सकते हैं:

new StreamReader(filePath) |> Seq.unfold (fun sr -> 
    match sr.ReadLine() with 
    | null -> sr.Dispose(); None 
    | str -> Some(str, sr)) 

sr मूल्य धारा पाठक का प्रतिनिधित्व करता है और राज्य के रूप में पारित कर दिया है। जब तक यह आपको गैर-शून्य मान देता है, तो आप Some को उत्पन्न करने के लिए तत्व बना सकते हैं और राज्य (जो आप चाहते थे तो बदल सकता है)। जब यह null पढ़ता है, तो हम इसका निपटान करते हैं और अनुक्रम को समाप्त करने के लिए None लौटाते हैं। यह प्रत्यक्ष समतुल्य नहीं है, क्योंकि जब कोई अपवाद फेंक दिया जाता है तो यह ठीक से StreamReader का निपटान नहीं करता है।

इस मामले में, मैं निश्चित रूप से अनुक्रम अभिव्यक्ति का उपयोग करता हूं (जो अधिकतर मामलों में अधिक सुरुचिपूर्ण और अधिक पठनीय है), लेकिन यह जानना उपयोगी है कि इसे उच्च-आदेश फ़ंक्शन का उपयोग करके भी लिखा जा सकता है।

Answer 4

नेट 2/3 पर आप कर सकते हैं:

let readLines filePath = File.ReadAllLines(filePath) |> Seq.cast<string> 

और .NET 4 पर:

let readLines filePath = File.ReadLines(filePath);; 

Answer 5

let lines = File.ReadLines(path)     

    // To check 
    lines |> Seq.iter(fun x -> printfn "%s" x)