如何正確關閉流？

Question

我被分配一個任務，寫一個程序，將：

1. 打開文件。

2. 閱讀內容。

3. 用另一個詞替換某個單詞。

4. 保存對文件的更改。

我知道我的代碼可以打開，閱讀和替換單詞。當我添加「將更改保存到文件」 - 部分時，會出現問題。下面是代碼：

open System.IO 

//Getting the filename, needle and replace-word. 
System.Console.WriteLine "What is the name of the file?" 
let filename = string (System.Console.ReadLine()) 

System.Console.WriteLine "What is your needle?" 
let needle = string (System.Console.ReadLine()) 

System.Console.WriteLine "What you want your needle replaced with?" 
let replace = string (System.Console.ReadLine()) 

//Saves the content of the file 
let mutable saveLine = "" 

//Opens a stream to read the file 
let reader = File.OpenText filename 

//Reads the file, and replaces the needle. 
let printFile (reader : System.IO.StreamReader) = 
    while not(reader.EndOfStream) do 
    let line = reader.ReadLine() 
    let lineReplace = line.Replace(needle,replace) 
    saveLine <- saveLine + lineReplace 
    printfn "%s" lineReplace 

//Opens a stream to write to the file 
let readerWrite = File.CreateText(filename) 

//Writes to the file 
let editFile (readerWrite : System.IO.StreamWriter) = 
    File.WriteAllText(filename,saveLine) 

printf "%A" (printFile reader) 

我收到錯誤消息「的路徑共享衝突......」，這讓我相信，閱讀流不關閉正常。我試圖玩弄我的代碼結構，並嘗試了.NET庫的不同的東西，但我總是得到相同的錯誤消息。任何幫助深表感謝。

Answer 1

流通常通過致電Stream.Close()或處置它們而關閉。

System.IO有方法來讀取或寫入線陣列的完整文件。這會縮短操作的步驟：

File.ReadAllLines filePath 
|> Array.map (fun line -> line.Replace(needle, replace)) 
|> fun editedLines -> File.WriteAllLines(filePath, editedLines) 

您使用的是哪些文檔？在.NET/CLR中查看the MSDN documentation for System.IO和類似的MSDN文檔以瞭解各種內容;這些快速回答這個問題。

Answer 2

我保留了大部分原始代碼，雖然它不是很習慣。如果您將use用於可隨意使用的資源，則.NET將在您之後清理。例如參見F# Docs和Fun&Profit，後者在Expressions and syntax上也有一個很好的部分。

如果你執行你的代碼，你應該得到System.IO.IOException：

未處理的異常信息：System.IO.IOException：該進程無法訪問 文件「C：\用戶\ XCS \文件\ Visual Studio 2015 \ Projects \ StackOverflow6 \ ConsoleApplication11 \ bin \ Release \ testout.txt' 因爲它正在被另一個進程使用。在 System.IO .__ Error.WinIOError（的Int32的errorCode，字符串maybeFullPath）
在System.IO.FileStream.Init（字符串路徑，的FileMode模式，FileAccess的 訪問，權限的Int32，布爾useRights，文件共享份額，的Int32 BUFFERSIZE， FileOptions選項，SECURITY_ATTRIBUTES secAttrs，字符串 MSGPATH，布爾bFromProxy，布爾useLongPath，布爾checkHost）
在System.IO.FileStream..ctor（字符串路徑，的FileMode模式，FileAccess的 訪問，文件共享份額，緩衝區大小的Int32，FileOptions選項，字符串 msgPath，布爾bFromProxy，布爾useLongPath，布爾checkHost）
at System.IO.StreamWriter.CreateFile（String path，Boolean append， 布爾checkHost）在System.IO.StreamWriter ..ctor（String path， Boolean append，Encoding encoding，Int32 bufferSize，Boolean checkHost）at System.IO.StreamWriter..ctor（String path，Boolean append）at System.IO.File.CreateText（String path）at Program.op@46（Unit unitVar0）in C：\ Users \ xcs \ Documents \ Visual Studio 2015 \ Projects \ StackOverflow6 \ ConsoleApplication11 \ Program.fs：line 74
at Program.main（String [] argv）in C：\用戶\ XCS \文檔\ Visual Studio中 2015年 \項目\ StackOverflow6 \ ConsoleApplication11 \ Program.fs：線83

它開始於線83，其是對函數的調用，請轉到第74行。第74行如下：let readerWrite = File.CreateText(filename)。你的代碼中沒有任何地方關閉了reader。還有另一個問題，你打開StreamWriter與File.CreateText。然後你試圖用File.WriteAllText寫入這個打開的流，打開文件，寫入並關閉它。於是一幫IO手柄的漂浮圍在那裏......

快速修復它考慮以下幾點：

//Getting the filename, needle and replace-word. 
System.Console.WriteLine "What is the name of the file?" 
let filename = string (System.Console.ReadLine()) 

System.Console.WriteLine "What is your needle?" 
let needle = string (System.Console.ReadLine()) 

System.Console.WriteLine "What you want your needle replaced with?" 
let replace = string (System.Console.ReadLine()) 

//Saves the content of the file 


//Opens a stream to read the file 
//let reader = File.OpenText filename 

//Reads the file, and replaces the needle. 
let printFile (filename:string) (needle:string) (replace:string) = 
    let mutable saveLine = "" 
    use reader = File.OpenText filename //use will ensure that the stream is disposed once its out of scope, i.e. the functions exits 
    while not(reader.EndOfStream) do 
    let line = reader.ReadLine() 
    let lineReplace = line.Replace(needle,replace) 
    saveLine <- saveLine + lineReplace + "\r\n" //you will need a newline character 
    printfn "%s" lineReplace 
    saveLine  


//Writes to the file 
let editFile filename saveLine = 
    File.WriteAllText(filename,saveLine) //you don't need a stream here, since File.WriteAllText will open, write, then close the file 

let saveLine = printFile filename needle replace //read the file into saveLine 
editFile filename saveLine  //write saveLine into the file 

它做了兩件事情：

1. 創建內部的StreamReaderprintFile
2. 將它綁定到use的閱讀器，不讓它確保一旦我們不再需要它就關閉
3. 換行符添加到字符串，既然你堅持重建一個可變的字符串
4. 封裝功能
5. 內的可變saveLine通過針和替換的參數明確
6. 返回一個新字符串到7
使用
7. 被使用File.WriteAllText擺脫Streamwriter，並也通過在明確的文件名和字符串寫入