计算文本文件中的行数

MsgBox % CountLines("C:\Users\Dianbo\Desktop\FindText.ahk")

CountLines(file){ 
  If !InStr(file,"`n"){
    if !FileExist(file)
      Return 0
    FileRead, Text, %file%
  } else
    Text := file

  if !text
    Return 0
  StringReplace, Text, Text, `n, `n, UseErrorLevel
  Return ErrorLevel + 1
}

; 第二种函数
MsgBox % FileCountLines("C:\Users\Dianbo\Desktop\FindText.ahk")

FileCountLines(FileName) {
  if (IsObject(file := FileOpen(FileName, "r-d", "UTF-8"))) {
    CountLines := 0
    while !(file.AtEOF)
      file.ReadLine(), CountLines++
    return CountLines, file.Close()
  }
  return false
}