到达标记时停止读取文件

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？

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