]]>
varX := NeedLine(A_ScriptFullPath, -4)
varY := NeedLine(A_ScriptFullPath, -6)
Gui, Show, x%varX% y%varY%
NeedLine(FilePath, Line) {
FileRead, Text, usa.txt
Text := StrReplace(StrReplace(Text, "`r`n", "`n"), "`r", "`n") "`n"
s := InStr(Text, "`n", 0, (Line > 0), Abs(Line - 1)) + 1
Return SubStr(Text, s, InStr(Text, "`n", 0, (Line > 0), Abs(Line)) - s)
}
Такое вообще возможно сделать, чтобы функция NeedLine читала текст не с текстового документа, а с Gui, и Text, в котором и присутствуют строки (которые будут читаться функцией) будет выводиться как координаты в Gui, Show.
p.s Старался как можно внятней изложить мою мысль.
OFF: Если файл очень большой, и нужно прочитать определённую строчку с конца, то наиболее экономичным способом будет что-то вроде этого:
А не хотите OLE DB опробовать, как здесь: VBScript: работа с большими текстовыми файлами? AHK ж уже давно научился в Automation. Конечно, файлы должны быть реально большими, бо с нынешними гигабайтами оперативной памяти и ReadAll не слишком медленно будет.
]]>FileReadLineFromEnd(filePath, nLineFromEnd) {
oFile := FileOpen(filePath, "r")
oFile.Pos := oFile.Length
(!(enc := oFile.Encoding) && enc := "cp0")
charLen := enc = "UTF-16" ? 2 : 1
i := 0
Loop {
oFile.Pos -= charLen, prevPos := oFile.Pos
if (oFile.Pos < 0 && notFound := true)
break
char := oFile[ "Read" . (enc = "UTF-16" ? "UShort" : "UChar") ]()
if (char = 10 || char = 13) {
if ( prevChar = (char = 10 ? 13 : 10) )
prevChar := ""
else
i++, prevChar := char
}
if (i = nLineFromEnd)
break
oFile.Pos := prevPos
}
( !notFound && str := oFile.ReadLine() ), oFile.Close()
Return RTrim(str, "`r`n")
}x%varX%y%varY%
varX := NeedLine(A_ScriptFullPath, -4)
varY := NeedLine(A_ScriptFullPath, -6)
MsgBox % varX "`n" varY
Gui, Add, Button, x%varX% y%varY%, Button
NeedLine(FilePath, Line) {
FileRead, Text, %FilePath%
Text := StrReplace(StrReplace(Text, "`r`n", "`n"), "`r", "`n") "`n"
s := InStr(Text, "`n", 0, (Line > 0), Abs(Line - 1)) + 1
Return SubStr(Text, s, InStr(Text, "`n", 0, (Line > 0), Abs(Line)) - s)
}
varX := % NeedLine(A_ScriptFullPath, 4)и
varY := % NeedLine(A_ScriptFullPath, 6)Координаты кнопке устанавливаем как
Gui, Add, Button, x%varX%y%varY%, ButtonНо так - не выходит.
]]>var := % NeedLine(A_ScriptFullPath, -1); например??
]]>Или так:
Я тоже сразу подумал про StrSplit, но загонять в массив например 5000 строк ради вывода одной, кажется избыточным.
Наверняка ТС читает какой нибудь лог, и он со временем разрастается. Когда речь про какие нибудь последние строки в файле, это похоже на поиск новой инфо в логе, тогда проще так.
И добавить если указанная строка больше кол-ва строк в тексте, то при запросе назад показать первую строку, при запросе вперед показать последнюю строку.
Но ведь это не отвечает запросу.
]]>]]>TestFile=1`r2`r3
FileDelete, TestFile.txt
FileAppend, %TestFile%, TestFile.txt
MsgBox, % FileReadLineFromEnd("TestFile.txt", 2)
FileReadLineFromEnd(filePath, nLineFromEnd) {
FileRead, text, % filePath
arr := StrSplit(text, "`n", "`r")
Return arr[ObjMaxIndex(arr) - nLineFromEnd + 1]
}filePath := "D:\Downloads\test.txt"
MsgBox, % FileReadLineFromEnd(filePath, 2)
FileReadLineFromEnd(filePath, nLineFromEnd) {
FileRead, text, % filePath
arr := StrSplit(text, "`n", "`r")
Return arr[ObjMaxIndex(arr) - nLineFromEnd + 1]
}