Alle Zeilen aus der Datei

Question

Ich möchte alle Zeilen aus der Datei lesen und implementieren erworben folgend:

let s1 = File.ReadAllText("\\test.txt") 

    let splitArr = s1.Split[|' '|] |> Array.toList 
    let checkList = check splitArr 
    let final = String.concat " " checkList |> toLower |> makeUpper 
    Console.Write(final) 

Ich habe sogar versucht, durch die Datei Looping aber vielleicht falsch gemacht habe:

 let myfile = File.OpenText("\\test.txt")  
     let fileLoop() = 
       let s1 = myfile.ReadLine()    
       let splitArr = s1.Split[|' '|] |> Array.toList 
       let checkList = check splitArr 
       let final = String.concat " " checkList |> toLower |> upper 
       Console.Write(s1) 
     while fileLoop() do ignore None 

Answer 1

Ihr vorhandener Code hat wenig Ähnlichkeit mit Ihrer Textbeschreibung dessen, was Sie erreichen möchten. Ignorieren Sie das, eine einfache Beobachtung, um Ihren aktuellen Code arbeiten zu lassen: Sie verwenden File.ReadAllText, die einen riesigen Textblob zurückgibt - aber Sie gehen danach davon aus, dass es bereits durch Linien getrennt ist. Verwenden Sie eine der Methoden im Modul File, die den Text zeilenweise zurückgibt, dh ReadLines oder ReadAllLines. Versuchen Sie Folgendes:

File.ReadLines("\\test.txt") 
|> Seq.iter (fun s1 -> 
    let splitArr = s1.Split[|' '|] |> Array.toList 
    let checkList = check splitArr 
    let final = String.concat " " checkList |> toLower |> makeUpper 
    Console.WriteLine(final) 
) 

Oder macht schwere Verwendung von Rohren:

File.ReadLines "\\test.txt" 
|> Seq.iter (fun s1 -> 
    s1.Split [|' '|] 
    |> Array.toList 
    |> check 
    |> String.concat " " 
    |> toLower 
    |> makeUpper 
    |> Console.WriteLine 
)