F# 伤了我的脑……谁能帮忙把 C# 翻译成 F# 吗？

Question

我发现了一个我认为非常适合学习 F# 的快速项目。然而，出于某种原因，我就是无法全神贯注于它。经过几个小时的教程甚至一些电影之后我仍然...不明白。

因此，我想开始使用企业管理器“生成脚本”对工作中的存储过程进行版本控制，并希望清空脚本日期。我放弃了，用 C# 做了，但现在我真的很好奇，希望能得到一些见解。

我并不是完全空手而归，这是我的 C# 代码：

string path = @"C:\Subversion\CompanyName\SQL\DBName";
string fileSpec = "*.sql";
string pattern = @"Script Date: \d{2}/\d{2}/\d{4} \d{2}:\d{2}:\d{2}";
string replace = "Script Date: ";

foreach (var file in Directory.EnumerateFiles(path, fileSpec))
{
    string content = File.ReadAllText(file);

    content = Regex.Replace(content, pattern, replace);

    File.WriteAllText(file, content, Encoding.Unicode);
}

我猜 F# 中有一些看起来很酷的 2-3 行解决方案...我很想看到它。

谢谢你的提示！我已经更新了它以匹配下面正在做的事情，使视觉比较可能更具启发性。下面的评论也很棒。

Answer 1

let path = @"C:\Subversion\CompanyName\SQL\DBName"
let fileSpec = "*.sql"
let pattern = @"Script Date: \d{2}/\d{2}/\d{4} \d{2}:\d{2}:\d{2}"
let replace = "Script Date: "

Directory.EnumerateFiles (path, fileSpec)
|> Seq.iter (fun file ->
    let content = Regex.Replace (File.ReadAllText file, pattern, replace)
    File.WriteAllText (file, content, Encoding.Unicode))

请注意，您的 C# 代码is（编辑：曾经）也比必要的更加冗长。

Answer 2

您所需要做的几乎就是用 let 关键字替换变量声明中的类型名称（在 C# 中可以编写 var），删除所有分号和大括号，然后将 foreach 替换为
对于文件中的文件执行。您还使用了一些命名空间，因此在 F# 中，您需要类似以下内容：

open System.IO
open System.Text.RegularExpressions

您正在使用一个可变变量 (content)，但您实际上并不需要更改它。您可以仅使用不同的变量（例如newContent）来存储替换结果。因此，中间部分将是：

let content = File.ReadAllText(file)  // No need for a stream reader here!

let pattern = @"Script Date: \d{2}/\d{2}/\d{4} \d{2}:\d{2}:\d{2}"
let replace = "Script Date: "    
let newContent = Regex.Replace(content, pattern, replace)

您还可以使用相同的变量名称，这意味着您正在声明一个新的（不可变的）变量，该变量隐藏了作用域其余部分中的前一个变量（请参阅此 SO 答案以获取更多信息）

我还会更改最后一位（即使在 C# 中！）以关闭流，即使发生异常。在 C# 中，您可以使用 using。要在 F# 中编写相同的内容，您可以使用 use 关键字：

use fileStream = new FileStream(file, FileMode.Truncate, FileAccess.Write, FileShare.None)
use writer = new StreamWriter(fileStream, Encoding.Unicode)
writer.Write(content)
writer.Flush()

use 关键字确保对象在超出范围时被释放（关闭） - 即，在 for 循环迭代结束时（在本例中）。

Answer 3

琐碎的。编译。在反射器中打开。选择反编译语言为F#。