Серый форум — AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (Desire) — Mon, 11 Aug 2014 11:15:35 +0000

serzh82saratov пишет:

в справке смотрел, но не там
1 Документация по программе AutoHotkey
2 Ctrl+F в браузере
3 пишем FileRead в строку поиска
???

Всегда так делаю, у меня даже страница справки в закладках, просто по невнимательности пытался найти ответ на свой вопрос в FileReadLine.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (serzh82saratov) — Mon, 11 Aug 2014 10:54:32 +0000

в справке смотрел, но не там

1 Документация по программе AutoHotkey
2 Ctrl+F в браузере
3 пишем FileRead в строку поиска

???

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (Desire) — Mon, 11 Aug 2014 10:50:08 +0000

serzh82saratov пишет:

Русская справка не катит?
Все эти заморочки для полной универсальности, так как файлы могут быть с тремя вариантами перевода строк - `r`n, `n, `r. Если вариант заранее известен, то это надо указывать в задаче.
Поэтому я сказал Malcev что StringReplace не совсем то, а также поправил свой вариант.

Спасибо, я что-то в справке смотрел, но не там.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (serzh82saratov) — Mon, 11 Aug 2014 10:37:01 +0000

Русская справка не катит?

Все эти заморочки для полной универсальности, так как файлы могут быть с тремя вариантами перевода строк - `r`n, `n, `r. Если вариант заранее известен, то это надо указывать в задаче.
Поэтому я сказал Malcev что StringReplace не совсем то, а также поправил свой вариант.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (Desire) — Mon, 11 Aug 2014 10:28:48 +0000

serzh82saratov пишет:

Не то чтобы лучше для конкретной задачи, но если потом надо будет вернуть пред-пред-пред-пред последнюю строку, то с Loop, read будет не очень удобно это делать.
Поправка в мой вариант с StrSplit:
b := 2 ; 0 последняя, 1 предпоследняя, и.т.д. 
FileRead, Text, *t %A_ScriptFullPath% 
MsgBox % (a := StrSplit(Text, ["`n","`r"]))[a.maxindex()-b]

Можно вопрос? Что означает "*t" в этой строке:

FileRead, Text, *t %A_ScriptFullPath%

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (serzh82saratov) — Mon, 11 Aug 2014 10:12:37 +0000

Не то чтобы лучше для конкретной задачи, но если потом надо будет вернуть пред-пред-пред-пред последнюю строку, то с Loop, read будет не очень удобно это делать.

Поправка в мой вариант с StrSplit:


b := 2 ; 0 последняя, 1 предпоследняя, и.т.д. 
FileRead, Text, *t %A_ScriptFullPath% 
MsgBox % (a := StrSplit(Text, ["`n","`r"]))[a.maxindex()-b]

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (Desire) — Mon, 11 Aug 2014 10:09:57 +0000

serzh82saratov пишет:

Desire
Ну и причём тут Loop, read?

Да я уже въехал, что ваш вариант лучше.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (serzh82saratov) — Mon, 11 Aug 2014 10:08:39 +0000

Desire
Ну и причём тут Loop, read?

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (Desire) — Mon, 11 Aug 2014 10:05:10 +0000

serzh82saratov, просто необходимо считывать Log-файл, а он постоянно обновляет и содержит разное кол-во строк.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (serzh82saratov) — Mon, 11 Aug 2014 10:04:02 +0000

Так в чём необходимость Loop, read? С FileRead варианты выглядят как то проще:


b := 2 ; 0 последняя, 1 предпоследняя, и.т.д.
FileRead, Text, % A_ScriptFullPath 
RegExReplace(Text, "m`a)$", "", RowCount)
FileReadLine, Line, % A_ScriptFullPath, % RowCount - b
MsgBox % Line

или

b := 2 ; 0 последняя, 1 предпоследняя, и.т.д.
FileRead, Text, % A_ScriptFullPath 
MsgBox % (a := StrSplit(Text, "`n", "`r"))[a.maxindex()-b]

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (Desire) — Mon, 11 Aug 2014 09:59:44 +0000

Помог этот код

YMP пишет:


Loop, read, C:\Text.txt
{
    predpred_line := pred_line
    pred_line := last_line
    last_line := A_LoopReadLine
}

Только "predpred_line" почему-то всегда оказывалась пустой, а вот "pred_line" выдает нужный результат.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (serzh82saratov) — Mon, 11 Aug 2014 09:52:28 +0000

Malcev
Хороший вариант.

Хотя лучше RegExReplace:

FileRead, Text, %A_ScriptFullPath% 
RegExReplace(Text, "m`a)$", "", RowCount)
MsgBox % RowCount

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (Malcev) — Mon, 11 Aug 2014 09:49:36 +0000

Можно узнать общее количество строк с помощью StringReplace и UseErrorLevel.
И потом прочитать нужную строку с помощью FileReadLine.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (serzh82saratov) — Mon, 11 Aug 2014 09:49:00 +0000

Если без Loop подойдёт, то:


Text=
(
Строка1

Строка2

Строка3

Нужная строка


)
b := 2 ; 0 последняя, 1 предпоследняя, и.т.д.

MsgBox % (a := StrSplit(Text, "`n", "`r"))[a.maxindex()-b]

Конечно тут подразумевается FileRead.

Re: AHK: Loop (Read). Как вернуть пред-пред последнюю строку?

null@example.com (YMP) — Mon, 11 Aug 2014 09:42:20 +0000

Так, наверно.


Loop, read, C:\Text.txt
{
    predpred_line := pred_line
    pred_line := last_line
    last_line := A_LoopReadLine
}