Серый форум — AHK: Расстановка навигации в HTML-файлах

Re: AHK: Расстановка навигации в HTML-файлах

null@example.com (DD) — Sat, 14 Mar 2015 16:58:34 +0000

Malcev пишет:

Не проверял.

Я проверил: работает как часы)) Большое спасибо.

Re: AHK: Расстановка навигации в HTML-файлах

null@example.com (Malcev) — Sat, 14 Mar 2015 00:26:39 +0000

Не проверял.

#SingleInstance Force

^vk51::     ;CTRL + Q для запуска в каталоге (БЕЗ ПОДКАТАЛОГОВ) с HTM-файлами
   File_Path := GetActiveFolderPath()

   FileDelete, %a_desktop%\HTM_NAV.AHK
   n = 0
   Loop, %File_Path%\*.htm, 0, 1
  {
      if (A_LoopFileDir != Dir)
      n++
      list%n% .= A_LoopFileLongPath "`n"
      Dir := A_LoopFileDir
   }
   loop %n%
   {
   back1 := back2 := next1 := next2 := list%A_Index%


;==========================================================================
   StringReplace, back1, back1, `n, :::`n, All
   allback = %back1%%back2%
   Sort, allback
   allback := RegExReplace(allback, "U)(^.*\R)")                     ; удал перв строку
   StringReplace, allback, allback, `,, ```,, All
   StringReplace, allback, allback, `%, ```%, All
   allback := RegExReplace(allback, "m`a)^.*\\(.*):::(`n)|^\R", "FileAppend, ``r``n``r``n`, ")   ; отрез пути
   StringReplace, allback, allback, :::`n, `,%a_space%, All
   allback := RegExReplace(allback, "m`a).*?, $")                    ; удал послед строку

   FileAppend % allback, %a_desktop%\HTM_NAV.AHK, UTF-8
;==========================================================================

   StringReplace, next1, next1, `n, `|`n, All
   StringReplace, next2, next2, `n, :::`n, All
   allnext = %next1%%next2%
   Sort, allnext
   allnext := RegExReplace(allnext, "U)(^.*\R)")                   ; удал перв строку
   StringReplace, allnext, allnext, `,, ```,, All
   StringReplace, allnext, allnext, `%, ```%, All
   allnext := RegExReplace(allnext, "m`a)^.*\\(.*):::(`n)|^\R", "FileAppend, ``r``n← →``r``n$2") ; отрез пути
   StringReplace, allnext, allnext, `|`n, `|, All
   allnext := RegExReplace(allnext, "m`a)^(.*)\|(.*)", "$2, $1") ; отрез пути
   allnext := RegExReplace(allnext, "(`n`, \w:.*$)", "`n")       ; удал послед строку

   ;в первом файле перед первым next - чтобы открывалась таблица:
   allnext = :%allnext%
   StringReplace, allnext, allnext, :FileAppend`, ``r``n



Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (DD) — Sat, 14 Mar 2015 00:09:33 +0000
Любезный Мальцев, а можно показать на примере кода из №21 сообщения, потому что пробовал подставлять, но это не работает?


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (Malcev) — Fri, 13 Mar 2015 22:35:53 +0000
А чем не устроил код из 20 сообщения?
Loop, D:\test\*.txt, 0, 1
{
   if (A_LoopFileDir != Dir)
      n++
   a%n% .= A_LoopFileLongPath "`n"
   Dir := A_LoopFileDir
}
loop %n%
   msgbox % a%A_Index%


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (DD) — Fri, 13 Mar 2015 21:07:38 +0000
Скрипт из моего предыдущего поста по горячей клавише обрабатывает файлы активной папки без подкаталогов, а не худо бы, чтоб файлы и из подпапок обрабатывал.


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (Malcev) — Thu, 12 Mar 2015 20:58:03 +0000
Напиши на абстрактном примере, что имеешь и что хочешь получить.
А иначе вряд ли кто-то поможет.
Типа: имею 3 файла.
1.txt
1stroka1
1stroka2
1stroka3

2.txt
2stroka1
2stroka2
2stroka3

3.txt
3stroka1
3stroka2
3stroka3
Хочу получить:
4.txt

1stroka1
1stroka2
1stroka3
2stroka1
2stroka2
2stroka3
3stroka1
3stroka2
3stroka3


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (DD) — Sat, 07 Mar 2015 09:59:18 +0000
Всё-таки, как не кручу, а мозаика не складывается. Как это должно быть на конкретном примере, например, том, что ниже? От кода нашего teadrinker'а пришлось отказаться, пот что некоторые моменты не удавалось задействовать. Внимание: код реально меняет HTML докУменты, добавляя в конец каждого переходы на следующий/предыдущий. Кодировка файлов должна быть ANSI:

#SingleInstance Force

^vk51::     ;CTRL + Q для запуска в каталоге (БЕЗ ПОДКАТАЛОГОВ) с HTM-файлами
   File_Path := GetActiveFolderPath()

   FileDelete, %a_desktop%\HTM_NAV.AHK

   Loop, %File_Path%\*.htm*
   {
      list1 .= A_LoopFileLongPath "`n"
   }
   back1=%list1%
   back2=%list1%
   next1=%list1%
   next2=%list1%

;==========================================================================
   StringReplace, back1, back1, `n, :::`n, All
   allback = %back1%%back2%
   Sort, allback
   allback := RegExReplace(allback, "U)(^.*\R)")                     ; удал перв строку
   StringReplace, allback, allback, `,, ```,, All
   StringReplace, allback, allback, `%, ```%, All
   allback := RegExReplace(allback, "m`a)^.*\\(.*):::(`n)|^\R", "FileAppend, ``r``n``r``n`, ")   ; отрез пути
   StringReplace, allback, allback, :::`n, `,%a_space%, All
   allback := RegExReplace(allback, "m`a).*?, $")                    ; удал послед строку

   FileAppend % allback, %a_desktop%\HTM_NAV.AHK, UTF-8
;==========================================================================

   StringReplace, next1, next1, `n, `|`n, All
   StringReplace, next2, next2, `n, :::`n, All
   allnext = %next1%%next2%
   Sort, allnext
   allnext := RegExReplace(allnext, "U)(^.*\R)")                   ; удал перв строку
   StringReplace, allnext, allnext, `,, ```,, All
   StringReplace, allnext, allnext, `%, ```%, All
   allnext := RegExReplace(allnext, "m`a)^.*\\(.*):::(`n)|^\R", "FileAppend, ``r``n← →``r``n$2") ; отрез пути
   StringReplace, allnext, allnext, `|`n, `|, All
   allnext := RegExReplace(allnext, "m`a)^(.*)\|(.*)", "$2, $1") ; отрез пути
   allnext := RegExReplace(allnext, "(`n`, \w:.*$)", "`n")       ; удал послед строку

   ;в первом файле перед первым next - чтобы открывалась таблица:
   allnext = :%allnext%
   StringReplace, allnext, allnext, :FileAppend`, ``r``n



Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (Malcev) — Wed, 04 Mar 2015 19:25:06 +0000
Loop, D:\test\*.txt, 0, 1
{
   if (A_LoopFileDir != Dir)
      msgbox, novaja papka
   Dir := A_LoopFileDir
   msgbox % A_LoopFileLongPath
}


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (DD) — Wed, 04 Mar 2015 08:36:48 +0000
А возможна ли рекурсия в подпапки, чтобы при этом программа не рассматривала весь список с подфайлами в качестве единого, а поочередно заглядывая в папки и подпапки, дописывала бы результат по содержанию каждой из них в один определенный файл?
Т.е. например папка содержит:

D:\dir\001.htm
D:\dir\002.htm
D:\dir\003.htm
D:\dir\004.htm
D:\dir\005.htm
D:\dir\006.htm
Её подпапка содержит:

D:\dir\sub\001.htm
D:\dir\sub\002.htm
D:\dir\sub\003.htm
D:\dir\sub\004.htm
D:\dir\sub\005.htm
D:\dir\sub\006.htm
А содержание файла, в который собираются результаты, был бы таким:

FileAppend, 002.htm, D:\dir\001.htm
FileAppend, 003.htm, D:\dir\002.htm
FileAppend, 004.htm, D:\dir\003.htm
FileAppend, 005.htm, D:\dir\004.htm
FileAppend, 006.htm, D:\dir\005.htm
FileAppend, 007.htm, D:\dir\006.htm
FileAppend, 002.htm, D:\dir\sub\001.htm
FileAppend, 003.htm, D:\dir\sub\002.htm
FileAppend, 004.htm, D:\dir\sub\003.htm
FileAppend, 005.htm, D:\dir\sub\004.htm
FileAppend, 006.htm, D:\dir\sub\005.htm
FileAppend, 007.htm, D:\dir\sub\006.htm



Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (DD) — Tue, 03 Mar 2015 23:19:37 +0000
Когда запускал, не ожидал виденное увидеть))) Спасибо тебе!


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (teadrinker) — Tue, 03 Mar 2015 15:04:32 +0000
Если я правильно понял задачу, то как-то так:
^vk51::     ;CTRL + Q для запуска в каталоге с HTM-файлами
   File_Path := GetActiveFolderPath()

   list := PrevPath := ""
   Loop, %File_Path%\*.htm
   {
      if A_Index != 1
         list .= (list = "" ? "" : "`n") . "FileAppend, " . A_LoopFileName . ", " . PrevPath
      PrevPath := A_LoopFileLongPath
   }

   MsgBox, % list
   Return

GetActiveFolderPath()
{
   hActiveHwnd := WinExist("A")
   for item in ComObjCreate("Shell.Application").Windows
      if (hActiveHwnd = item.hwnd)
         Return item.Document.Folder.Self.Path
}


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (Malcev) — Tue, 03 Mar 2015 13:04:35 +0000
Мне так вообще ничего непонятно.
Нужен пример с исходными файлами и что в итоге надо получить.


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (DD) — Tue, 03 Mar 2015 11:39:16 +0000
Чтобы строки со следующими файлами, шли в строку с предыдущими (или наоборот), как по действию кода из 11 поста.


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (ypppu) — Tue, 03 Mar 2015 10:41:55 +0000
Что значит "сводить списки"?


Re: AHK: Расстановка навигации в HTML-файлах
null@example.com (DD) — Tue, 03 Mar 2015 10:32:32 +0000
Очень возможно, но я не ухватываю, как там сводить списки.