1 
    open System
//helpfunction
let fileReplace filename needle replace =
  let replaceIn (reader:System.IO.StreamReader) needle (replace: String) =
    while not(reader.EndOfStream) do
      let mutable allText = reader.ReadToEnd()
      allText <- allText.Replace(needle, replace)
    reader.Close()

  //start
  let reader = System.IO.File.OpenText filename
  let newText = replaceIn reader needle replace
  let writer = System.IO.File.CreateText filename
  writer.Write newText ; writer.Close()

// testing
let filename = @".\abc.txt"
let needle = "med"
let replace = "MED"
fileReplace filename needle replace

我已经尝试了一堆移动的 reader.Close()，但还没有结果。我知道如果我在printfn "%A" allText下面插入reader.Close()，它会打印出正确的结果，所以当我打电话给 writer 时我怀疑它出错了。我需要用 abc.txt 中的 MED 替换 med 的代码。但相反，它留下了一个空的 abc.txt

4

1 回答 1

2

您编写的replaceIn函数不执行任何操作。让我们把它分开：

let replaceIn (reader:System.IO.StreamReader) needle (replace: string) =
    while not(reader.EndOfStream) do
        let mutable allText = reader.ReadToEnd()
        allText <- allText.Replace(needle, replace)
    reader.Close()

首先看一下这个函数的类型：

val replaceIn :  reader:System.IO.StreamReader -> needle:string -> replace:string -> unit

首先要注意的是此函数返回unit，这意味着无论文件内容如何，newText​​它的值始终为。()这意味着您始终不会向文件中写入任何内容。

此外，您的循环是多余的。您正在阅读到流的末尾，但一直循环到流的末尾——这个循环是不必要的。无论如何也无法观察循环的结果，因为您创建用于存储结果的可变变量位于循环内部。

所以，让我们看一个替代方案：

let fileReplace filename (needle : string) (replace : string) =
    let allText = System.IO.File.ReadAllText filename
    let newText = allText.Replace(needle, replace)
    System.IO.File.WriteAllText(filename, newText)

如您所见，您甚至不需要创建阅读器，您只需在System.IO.File.

于 2016-11-02T14:02:05.557 回答