读取文本文件的最后几行内容并显示

 

MsgBox % FileReadLastLines(A_ScriptFullPath, 10)

; MsgBox % FileReadLastLines("C:\Users\Dianbo\Desktop\FindText.ahk", 10)

; 读取文本文件的最后x行
FileReadLastLines(FileName, LastLines := 5) {
  if (IsObject(file := FileOpen(FileName, "r-d", "UTF-8"))) {
    CountLines := LinesCount := 0, GetLine := GetLines := ""
    while !(file.AtEOF)
      file.ReadLine(), CountLines++
    file.Seek(0)
    while !(file.AtEOF) {
      GetLine := file.ReadLine()
      if (LinesCount >= CountLines - LastLines)
        GetLines .= GetLine
      LinesCount++
    }
    return GetLines, file.Close()  
  }
  return false
}

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。