[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

HORRIBLE · Отправлено: **00:10, 08-02-2008** | #**101**

Creat0R,

Спасибо.

только вот ReDim $aData_Inputs[$aData_Inputs[0]+1]
[0]+1 что это делает?

а с другим моим вопросом, по поводу екселя, нет никаких соображений?

Creat0R · Конфигурация компьютера

HORRIBLE,

Цитата:

[0]+1 что это делает?

При (пере)обьявлении массива, добавляет ещё один элемент (ячейку), а когда заполняем данные, то используем текущую ячейку (из [0]).

Цитата:

а с другим моим вопросом, по поводу екселя, нет никаких соображений?

Нет, я с Excel не очень знаком. У меня даже в Office его кажется нету.

amel27 · Отправлено: **04:22, 08-02-2008** | #**103**

Цитата HORRIBLE:

а с другим моим вопросом, по поводу екселя, нет никаких соображений? »

ходи сюда: ExcelCOM UDF - качай UDF и смотри примеры

thief_89 · Отправлено: **08:18, 08-02-2008** | #**104**

Creat0R

вот в принцыпе такой простенький скрипт

PHP код:


Dim $date = @MDAY&@MON&@YEAR

Dim $path = 'D:\my documents\victor_docs\backup\'& @MDAY&@MON&@YEAR



DirCreate($path)

DirCopy(@ScriptDir & 'to_work', $path, 1)

MsgBox(0, "BuckUP", "Копирование завершено")

Maza Faka · Отправлено: **08:29, 08-02-2008** | #**105**

thief_89

Код:

; Windows - copy with progress
; Author - JdeB

;~ 4 Do not display a progress dialog box.
;~ 8 Give the file being operated on a new name in a move, copy, or rename operation if a file with the target name already exists.
;~ 16 Respond with "Yes to All" for any dialog box that is displayed.
;~ 64 Preserve undo information, if possible.
;~ 128 Perform the operation on files only if a wildcard file name (*.*) is specified.
;~ 256 Display a progress dialog box but do not show the file names.
;~ 512 Do not confirm the creation of a new directory if the operation requires one to be created.
;~ 1024 Do not display a user interface if an error occurs.
;~ 2048 Version 4.71. Do not copy the security attributes of the file.
;~ 4096 Only operate in the local directory. Don't operate recursively into subdirectories.
;~ 9182 Version 5.0. Do not copy connected files as a group. Only copy the specified files.

_FileCopy("C:\Installed Apps\Patches\WindowsXP-KB835935-SP2-ENU.exe","C:\temp")

Func _FileCopy($fromFile,$tofile)
    Local $FOF_RESPOND_YES = 16
    Local $FOF_SIMPLEPROGRESS = 256
    $winShell = ObjCreate("shell.application")
    $winShell.namespace($tofile).CopyHere($fromFile,$FOF_RESPOND_YES)
EndFunc

Creat0R · Конфигурация компьютера

thief_89,
Я (и не только) пару раз приводил примеры тут в теме (возможно осталось в форумных архивах), были более продвинутые, а были просто с использованием системного диалога. Нужно просто поискать по темам (возможные поисковые запросы: progress, CopyWithProgress, MoveTo и т.п).

thief_89 · Отправлено: **08:43, 08-02-2008** | #**107**

Creat0R

ок, спасибо щас буду искать.

Maza Faka

спасибо

Creat0R · Конфигурация компьютера

amel27,
По поводу функции FileSaveDialog...
Diamond её немного переделал (см. далее), чтобы в качестве фильтра можно было указывать обычные круглые скобки, почти как в функции VB(s).

Всё отлично работает, но хотелось бы иметь ещё две возможности:

1) Чтобы можно было указать умолчальное расширение, т.е к примеру у меня в фильтре есть *.au3 и *.gif, и в качестве расширения по умолчанию я указываю *.gif, вот нужно чтобы автоматом в списке функция выбрала это расширение. Сейчас если указать расширение, то оно просто подставляется в случае когда юзер не указал расширение вовсе, но это не подходит (отчасти по причине в хотелке #2

).

2) Чтобы функция возвращала выбранное расширение, если я (как юзер) не указал расширение, но при этом выбрал его в списке, то именно то самое умолчальное расширение будет использовано, хотя не логично брать "старое" расширение когдя юзер выбрал другое из списка. Если функция ещё и выбранное расширение будет возвращать, то можно будет "знать" чего конкретно хочет юзер, и соответственно делать выводы (действия).

функция _FileSaveDialog() (Мод. от Diamond)

Код:

;~ В этом варианте можно использовать круглые скобки для "отображаемой части фильтра"...
;~ В самом же фильтре круглые скобки больше не нужны!
;~ Синтаксис:
;~ "Видимый_текст_1|Файловый_фильтр_1|текст_2|фильтр_2|текст_N|фильтр_N"
Func _FileSaveDialog($sTitle, $sInitDir, $sFilter = 'All (*.*)', $iOpt = 0, $sDefaultFile = "", $sDefaultExt = "", $hWnd = 0)
    Local $iFileLen = 65536 ; Max chars in returned string
    ; API flags prepare
    Local $iFlag = BitOR(BitShift(BitAND($iOpt, 2), -10), BitShift(BitAND($iOpt, 16), 3))
    ; Filter string to array convertion
    Local $asFLines = StringSplit($sFilter, '|')
    Local $i, $suFilter = ''
    For $i = 1 To $asFLines[0] Step 2
        If $i < UBound($asFLines) Then _
            $suFilter &= 'byte[' & StringLen($asFLines[$i]) + 1 & '];char[' & StringLen($asFLines[$i+1]) + 1 & '];'
    Next
    ; Create API structures
    Local $uOFN = DllStructCreate('dword;int;int;ptr;ptr;dword;dword;ptr;dword' & _
            ';ptr;int;ptr;ptr;dword;short;short;ptr;ptr;ptr;ptr;ptr;dword;dword')
    Local $usTitle = DllStructCreate('char[' & StringLen($sTitle) + 1 & ']')
    Local $usInitDir = DllStructCreate('char[' & StringLen($sInitDir) + 1 & ']')
    Local $usFilter = DllStructCreate($suFilter & 'byte')
    Local $usFile = DllStructCreate('char[' & $iFileLen & ']')
    Local $usExtn = DllStructCreate('char[' & StringLen($sDefaultExt) + 1 & ']')
    For $i = 1 To $asFLines[0]
        DllStructSetData($usFilter, $i, $asFLines[$i])
    Next
    ; Set Data of API structures
    DllStructSetData($usTitle, 1, $sTitle)
    DllStructSetData($usInitDir, 1, $sInitDir)
    DllStructSetData($usFile, 1, $sDefaultFile)
    DllStructSetData($usExtn, 1, $sDefaultExt)
    DllStructSetData($uOFN, 1, DllStructGetSize($uOFN))
    DllStructSetData($uOFN, 2, $hWnd)
    DllStructSetData($uOFN, 4, DllStructGetPtr($usFilter))
    DllStructSetData($uOFN, 7, 1)
    DllStructSetData($uOFN, 8, DllStructGetPtr($usFile))
    DllStructSetData($uOFN, 9, $iFileLen)
    DllStructSetData($uOFN, 12, DllStructGetPtr($usInitDir))
    DllStructSetData($uOFN, 13, DllStructGetPtr($usTitle))
    DllStructSetData($uOFN, 14, $iFlag)
    DllStructSetData($uOFN, 17, DllStructGetPtr($usExtn))
    DllStructSetData($uOFN, 23, BitShift(BitAND($iOpt, 32), 5))
    ; Call API function
    Local $sRet = DllCall('comdlg32.dll', 'int', 'GetSaveFileName', 'ptr', DllStructGetPtr($uOFN))

    If $sRet[0] Then Return StringStripWS(DllStructGetData($usFile, 1), 3)
    Return SetError(1, 0, "")
EndFunc   ;==>_FileSaveDialog

тег [ht] имеет характерный javascript'у баг - одиночная кавычка в названии текста (сылки) делает тег не рабочим

)

P.S
Я пробовал разного рода манипулляции с DllStructGetData(), почти все структуры перепотрошил, но немогу найти нужные мне данные (хотябы чтобы вернуть выбранное расширение).

amel27 · Отправлено: **05:25, 11-02-2008** | #**109**

Цитата Creat0R:

Сейчас если указать расширение, то оно просто подставляется в случае когда юзер не указал расширение вовсе »

Такое поведение прописано в MSDN для "умолчального" расширения, собственно в этой фиче нет большого смысла если научить функцию возвращать выбранный фильтр - можно тем же RegExp проверить наличие расширения и добавить при необходимости.

Цитата Creat0R:

Если функция ещё и выбранное расширение будет возвращать, то можно будет "знать" чего конкретно хочет юзер, и соответственно делать выводы (действия). »

Все возможные фильтры нумеруются по порядку следования/отображения начиная с 1, индекс выбранного пользователем фильтра сохраняется в структуре под индексом 7 (nFilterIndex), в принципе его тоже можно вывести... только нужно определиться куда и в каком виде.

тут есть еще одна тонкость - пользователь может задать свой фильтр (nFilterIndex=0), судя по доке ф-ция поддерживает фиксирование такого фильтра... но для этого нужно инициализировать дополнительные структуры (lpstrCustomFilter, nMaxCustFilter).

Creat0R · Конфигурация компьютера

amel27,

Цитата:

Такое поведение прописано в MSDN для "умолчального" расширения

Я так и понял.

Цитата:

собственно в этой фиче нет большого смысла если научить функцию возвращать выбранный фильтр - можно тем же RegExp проверить наличие расширения и добавить при необходимости.

Однозначно!
Но всё же хотелось бы чтобы эта (подобная) фича устанавливала выбранный фильтр.

Цитата:

Все возможные фильтры нумеруются по порядку следования/отображения начиная с 1, индекс выбранного пользователем фильтра сохраняется в структуре под индексом 7 (nFilterIndex), в принципе его тоже можно вывести... только нужно определиться куда и в каком виде.

Нука попробуем... а в каком виде, это не проблема, в массиве можно, или лучше наверное в @extended (как индекс).

Цитата:

тут есть еще одна тонкость - пользователь может задать свой фильтр (nFilterIndex=0)

Имеется в виду ручной ввод фильтра в поле для вода имени файла? Я почему то думал что это баг (при чём забавный) виндоуса. Ну это вобщем не моя проблема, а уже пользователя

- Пока такое поведение приемлемо во всех других программах, я спокоен

Цитата:

судя по доке ф-ция поддерживает фиксирование такого фильтра

Т.е предотвращение ручного ввода фильтра? Было бы неплохо, хоть и не критично.