ocaml - 到达标记时停止读取文件

Question

我有以下代码，只是我正在尝试做的基础知识：

let ic = open_in "file.txt" in
try
  while true do
    let line = input_line ic in
    print_endline line
  done
with End_of_file -> close_in ic

我想要做的是将文件读入一个附加每一行的字符串，直到我到达“stop_here”这个词我尝试了几种我自己的方法并且完全搞砸了..这是在Windows操作系统上。

感谢帮助

Answer 1

在while循环内，添加一个测试if line = "stop_here" then raise End_of_file？

如果您想在仅包含此标记的行上停止，请对其进行优化。