Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → Прочие скриптовые технологии → AutoIt: Получить расширения выделенных файлов
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Привет. Задача получить расширения выделенных файлов. Я в Total Commander выделяю файлы с параметром %P%S.
Существует ли в AutoIt такой метод, который возвращает расширения файлов?
Вот скрипт
#include <Array.au3>
If WinExists("[CLASS:TTOTAL_CMD]") Then
WinActivate("[CLASS:TTOTAL_CMD]")
endif
$aaa = _ArrayToString($CmdLine, ' ', 1)
MsgBox ( 1, "text", $aaa)Вместо полных имён, в конечном итоге должно выглядить так.
*.txt; *.htm; *.mp3
For $i = 1 To $CmdLine[0]
$Path = $CmdLine[$i]
Msgbox(0,"", StringRegExpReplace($Path, '^(?:.*?)(\.[^.]+)?$', '*\1'))
NextFlasher, так получается поочерёдное перебирание элементов массива.
А мне надо, чтобы это было одной строкой.
Понятно.
Dim $Exts
For $i = 1 To $CmdLine[0]
$Exts &= '; ' & StringRegExpReplace($CmdLine[$i], '^(?:.*?)(\.[^.]+)?$', '*\1')
Next
Msgbox(0,"", StringMid($Exts, 3))Спасибо. Почти то. Вот задача теперь, как удалить первую ненужную точку с запятой, вместе с пробелом.
Точно. Я просто делал под другую задачу, и это опустил.
А вообще зачем это нужно? Какой толк от повторяющихся масок?
Задача была получить все расширения файлов.
Я выделяю по одному экземпляру выделенных файлов, и с помощью этого скрипта можно делать любые вещи
с полученными расширениями. Копировать, перемещать, изменять атрибуты, архивировать и так далее.
Я облазил всю справку, но так и не нашёл ту функцию, которая возвращает расширения переданных файлов.
Я облазил всю справку, но так и не нашёл ту функцию, которая возвращает расширения переданных файлов.
Parazit
Я всё равно не понимаю.
1. Файлы могут быть выделены с одним и тем же расширением. В итоге получатся дубликаты.
2. Зачем вообще получать имена, чтобы вытащить из них только расширения? Нет проще задать расширения сразу?
Malcev
Инклюды не в счёт.
Malcev
Инклюды не в счёт.
А че̇м они плохи?
Странно видеть такой вопрос от разработчика, который кроме разве что с #Include, Gdip.ahk нигде их не использует.
А мораль сей басни такова: чтобы выкорчевать маленькую козюльку, нужно запустить в тело 3 банки соплей.
$FPath = 'C:\bla bla bla\bla lba.ext3.ext2.ext1.ext'
MsgBox(0,"", ObjCreate('Scripting.FileSystemObject').GetExtensionName($FPath))
Согласен. Но для новичка это, по-моему, самый простой вариант.
Проще того, что в крайнем коде? 
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
