Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Создать список WEB-ссылок / запустить их в браузере 
Author Message
Loopback



PostPosted: Sat Nov 27, 2010 23:51    Post subject: Reply with quote

Flasher
Парсер хамелеона сделал. Закрытие сделал тоже, поставил ожидание закрытия окна, так что процесс это может быть небыстрый. У меня, например, опера с тремя десятками окон может выгружаться по полторы-две минуты. В какой момент она запишет окна - кто ее знает. Попробуй, если работать не будет, возможно придется отслеживать закрытие процесса.
Andrey_A wrote:
Хотелось бы иметь возможность прописывать разные пути оперы и других браузеров:

Это можно делать и сейчас. Каждый парсер оформлен в функцию, ее можно вызывать несколько раз с разными именами файлов. Функция возвращает массив ссылок. Если хочется сохранить их отдельно - просто можно сохранять строки каждого этого массива в свои файлы. Вот функция сохранения массива в файл:
Code:

Func _ArraySave(ByRef $aArray, $sFileName)
    Local $hFile = FileOpen($sFileName, 2)
    For $i = 0 To UBound($aArray) - 1
        FileWriteLine($hFile, $aArray[$i])
    Next
    FileClose($hFile)
EndFunc

Andrey_A wrote:
Внести функцию разворачивания переменных окружения, чтобы %COMMANDER_PATH% прочитывался

В данной задаче вообще непонятно, к чему может понадобится эта переменная, да и другие в общем-то, кроме профиля пользователя. Если нужно развернуть любые переменные в строке - используй функцию:
Code:

Func _TCHExpandEnv($sText)
    $aResult = StringRegExp($sText, "%(\w+)%", 3)
    If IsArray($aResult) Then
        For $i = 0 To UBound($aResult)-1
            $sText = StringReplace($sText, "%" & $aResult[$i] & "%", EnvGet($aResult[$i]))
        Next
    EndIf
    Return $sText
EndFunc
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group