如何在某文本文档(共60行)里的第5行的下一行追加新的文本

遇到了问题?请先进行搜索(中文和英文),然后在此提问

Moderators: arcticir, tmplinshi

autu
Posts: 14
Joined: 04 Apr 2015, 11:09

如何在某文本文档(共60行)里的第5行的下一行追加新的文本

01 May 2015, 04:01

如题 : 我要在某文本文档中间追加新的文本。




谢谢···········!
tmplinshi
Posts: 1529
Joined: 01 Oct 2013, 14:57

Re: 如何在某文本文档(共60行)里的第5行的下一行追加新的文本

01 May 2015, 12:51

先读取前 5 行,然后接上要追加的文本,以及剩余的内容。

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)
}
tmplinshi
Posts: 1529
Joined: 01 Oct 2013, 14:57

Re: 如何在某文本文档(共60行)里的第5行的下一行追加新的文本

02 May 2015, 02:56

另一个办法是用正则替换:

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)
}

Return to “请求帮助”

Who is online

Users browsing this forum: No registered users and 31 guests