AutoHotkey Community

Code: Select all

AppendText("某文本文档.txt", 5, "新的文本")

AppendText(FileName, LineNum, Text) {
	f := FileOpen(FileName, "r")

	content_ := ""
	Loop, % LineNum
		content_ .= f.ReadLine()
	newContent := content_ . Text . "`r`n" f.Read()

	encoding := f.Encoding
	f.Close()

	FileOpen(FileName, "w", encoding).Write(newContent)
}

Code: Select all

AppendText(FileName, LineNum, Text) {
	f := FileOpen(FileName, "r")
	dat := f.Read()
	encoding := f.Encoding
	f.Close()

	dat := RegExReplace(dat, "^(.*?(\R)){" . LineNum . "}", "$0" . Text . "$2")
	FileOpen(FileName, "w", encoding).Write(dat)
}