在路径为: C:\ajjl.txt文本的每行内容后加上对应的行数,例如:ajjl-第1 行.请写出代码
nr = Plugin.File.ReadFileEx("c:\ajjl.txt")
hs = Split(nr, "|")
i = 0:ii = 1
fileLen = Plugin.File.GetFileLength("c:\ajjl.txt")
handle = Plugin.File.OpenFile("c:\ajjl.txt")
Call Plugin.File.SeekFile(handle, 0)
For UBound(hs)
Call Plugin.File.WriteFile(handle,hs(i)&"-第"&ii&"行"& vbcrlf)
i = i + 1:ii = ii + 1
Next
Call Plugin.File.CloseFile(handle)
Delay 500
RunApp "c:\ajjl.txt"
EndScript