Làm thế nào đọc một tập tin vào một seq các dòng trong F #

Question

Đây là C# phiên bản:

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(); 
    } 
    } 
} 

Nhưng nhu cầu trực tiếp dịch một biến có thể thay đổi.

Answer 1

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

Answer 2

Nếu bạn đang sử dụng .NET 4.0, bạn chỉ có thể sử dụng File.ReadLines.

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

val readLines : string -> seq<string> 

Answer 3

Để trả lời câu hỏi liệu có một chức năng thư viện để đóng gói mô hình này - không có một chức năng chính xác cho điều này, nhưng có một chức năng cho phép bạn tạo ra chuỗi từ một số trạng thái gọi là Seq.unfold . Bạn có thể sử dụng nó để triển khai chức năng ở trên như thế này:

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

Giá trị sr đại diện cho trình đọc luồng và được chuyển qua trạng thái. Miễn là nó cung cấp cho bạn các giá trị không null, bạn có thể trả lại Some chứa một phần tử để tạo và trạng thái (có thể thay đổi nếu bạn muốn). Khi nó đọc null, chúng tôi vứt bỏ nó và trả về None để kết thúc chuỗi. Đây không phải là một tương đương trực tiếp, bởi vì nó không xử lý đúng cách StreamReader khi một ngoại lệ được ném. Trong trường hợp này, tôi chắc chắn sẽ sử dụng biểu thức trình tự (có vẻ thanh lịch và dễ đọc hơn trong hầu hết các trường hợp), nhưng rất hữu ích khi biết rằng nó cũng có thể được viết bằng chức năng bậc cao hơn.

Answer 4

On NET 2/3 bạn có thể làm:

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

và trên 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)