[архив

SvetlanaK · Отправлено: **10:27, 14-08-2007** | #**301**

Maza Faka, Sanja Alone,
к сожалению эксель появляется открыто, "мелькает" так сказать...потому что файл появляется в результате принудительной выгрузки из другой программы (та программа так делает, по-другому никак).
вот и висит этот листик на экране, и сохранить его в нужное место с нужным именем и закрыть- задача номер один....
спасибо за подсказку, Objekt - это интересная идея, но результат выполнения такого скрипта - "лежащее " окно "сохранение документа"

, и вытящить его на поверхность чтобы ввести наконец нужное имя файла никак не удается(((
и еще в связи с этим, в вашем примере $sFilePath = 'D:\MyDoc\Sample.xls' ;путь файла для выполнения действий над ним
непонятно , а каком месте оно применимо( ведь команда Save не предполагает опций - куда и с каким именем...
в англоязычном хелпе ничего не нашлось по этому поводу(((
Спасибо за ответ.

Creat0R, не работает этот вариант( все равно пишет s(((
кстати пробовала WinMenuSelectItem - не могу добиться чтобы работало хоть где-нибудь! хотя бы в том же самом вордпаде(((

spooll · Отправлено: **12:07, 14-08-2007** | #**302**

Блин, протестил на нескольких компах, все ок. Добавил в автозагрузку 100 юзерям и у всех на разных окнах позависало просто, подскажите вариант более надежный

PHP код:


Opt("RunErrorsFatal", 0)

If FileExists("C:\Program Files\1Cv77\BIN\1CV7s.exe") Then Exit

BlockInput(1)

Run("\\192.168.11.198\Distrib\1s_install\B770023\Disk1\setup.exe")
If @error Then Quit()

WinWait("Добро пожаловать", "Добро пожаловать в программу установки", 20)
ControlClick("Добро пожаловать", "Добро пожаловать в программу установки", "Button1")

WinWait("Выбор варианта установки", "Выберите вариант установки программы", 20)
ControlClick("Выбор варианта установки", "Выберите вариант установки программы", "Button6")

WinWait("Информация о пользователе", "Введите Ваше имя и название", 20)
ControlClick("Информация о пользователе", "Введите Ваше имя и название", "Button2")

WinWait("Информация о пользователе", "Вы сообщили следующую информацию", 20)
ControlClick("Информация о пользователе", "Вы сообщили следующую информацию", "Button1")

WinWait("Выбор каталога для установки", "Программа установки поместит 1С", 20)
ControlClick("Выбор каталога для установки", "Программа установки поместит 1С", "Button1")

WinWait("Создание нового каталога", "", 20)
ControlClick("Создание нового каталога", "", "Button1")

WinWait("Выбор программной группы", "Выберите из существующих или", 20)
ControlClick("Выбор программной группы", "", "Button2")

WinWait("Установка 1С:Предприятия", "Программа установки скопировала файлы", 20)
ControlClick("Установка 1С:Предприятия", "Программа установки скопировала файлы", "Button2")

WinWait("Установка 1С:Предприятия", "Установка программы 1С", 20)
ControlClick("Установка 1С:Предприятия", "Установка программы 1С", "Button1")

Run("\\192.168.11.198\Distrib\1s_install\B770025\Disk1\setup.exe")
If @error Then Quit()

WinWait("Добро пожаловать", "Добро пожаловать в программу установки", 20)
ControlClick("Добро пожаловать", "Добро пожаловать в программу установки", "Button1")

WinWait("Список установленных программ", "Из списка найденных на данном компьютере", 20)
ControlClick("Список установленных программ", "Из списка найденных на данном компьютере", "Button4")

WinWait("Обновление 1С:Предприятия", "При работе с сетевыми версиями", 20)
ControlClick("Обновление 1С:Предприятия", "При работе с сетевыми версиями", "Button2")

WinWait("Обновление 1С:Предприятия", "Обновление программы 1С", 20)
ControlClick("Обновление 1С:Предприятия", "Обновление программы 1С", "Button1")
 BlockInput(0)

Run("\\192.168.11.198\Distrib\1s_install\B770025\1C_patch_7725\1Cv77SQL_025_Patch.exe")
WinWaitActive("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", 25)
ControlClick ("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", "Button1")

WinWait("PatchWise Updater", "ОК", 20)
ControlClick("PatchWise Updater", "ОК", "Button1")

WinWait("Патч 1С:Предприятие 7.7.025", "&Обновить", 20)
ControlClick("Патч 1С:Предприятие 7.7.025", "&Обновить", "Button2")
Run("\\192.168.11.198\distrib\1s_install\link.cmd")

Quit()

Func Quit()   
    Exit
EndFunc

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

SvetlanaK

Цитата:

и сохранить его в нужное место с нужным именем и закрыть- задача номер один

Не проблема, привожу решение данной задачи без лишних мышкодвижений:

Код:

$dFilePath = "D:\MyDoc\Результирующий_файл.xls" ; путь целевого файла

;константы, определяющие формат сохраняемого файла
const $xlCSV = 6 ; формат файла - coma separated values
const $xlTextMSDOS = 21 ; формат файла - текст MSDOS
const $xlWorkbookNormal = -4143 ; формат файла - xls

$oExcel = ObjGet("", "Excel.Application") ; "схватить" существующий объект Excel
If @error Then Exit ; выйти в случае неудачи

$oExcel.DisplayAlerts = 0 ; отключить предупреждения
$oExcel.ActiveWorkbook.SaveAs($dFilePath, $xlWorkbookNormal) ; сохранить файл как (здесь даже можно его сразу конвертировать во что-нибудь другое - некоторые константы описаны выше)
$oExcel.Quit ; выйти

Цитата:

непонятно , а каком месте оно применимо( ведь команда Save не предполагает опций - куда и с каким именем...

Туда же и с тем же именем, т.е. в самого себя

Так как условия задачи были сформулированы расплывчато, то я подумал, что ее суть в выполнении определенных действий над существующим файлом с последующим сохранением оного.

SvetlanaK · Отправлено: **15:58, 15-08-2007** | #**304**

Sanja Alone, что-то не получилось...но вообще пример ваш интересен, пригодится в написании логов...
откуда только Вы это берете - не знаю, я весь хэлп перерыла, ничего подобного не нашла...видимо вы гений, или автор автоита

нашла я очень простое решение, публикую его. может кому-то пригодится.
Send("{Alt}{Ф}")
Send("{с}")
сочетание букв с альтом почему-то работает в отличие от контрола...
альт - ф активизация меню файл, а потом нажатие клавиши с и открывается окно сохранения.
а почему с контролом ни одна буква не работает - для меня большая загадка....
В общем - большое Вам спасибо за тепрение и внимание к моей проблеме.

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

SvetlanaK

Цитата:

что-то не получилось...

Должно было получиться. Правда, может в момент запуска скрипта в Excel-е открыто больше одного файла, а тогда могло и не получиться... А еще могла отстутствовать на диске директория, куда нужно поместить результирующий файл. В данной ситуации лучше дописать в скрипт (до вызова метода SaveAs) такой фрагмент:

Код:

If Not FileExists(StringLeft($dFilePath, StringInStr($dFilePath, '\', 0, -1))) Then DirCreate(StringLeft($dFilePath, StringInStr($dFilePath, '\', 0, -1)))

Цитата:

откуда только Вы это берете

Гуглю

Цитата:

сочетание букв с альтом почему-то работает в отличие от контрола...

Так и должно быть - так работают все контролы (элементы управления), для которых определены хоткеи.
Узнать хоткей для любого контрола легко - это будет Alt+буква с подчеркиванием в тексте. Если "посмотреть" на этот контрол с пом. AutoIt Window Info, то перед этой буквой будет амперсанд:

Код:

;фрагмент информационного окна AutoIt Window Info:
Control ID: 1
ClassNameNN: Button2
Text: &Next >

Цитата:

альт - ф активизация меню файл, а потом нажатие клавиши с и открывается окно сохранения.

Применительно к менюшкам так и есть - сначала Alt+хоткей менюшки, а затем просто хоткей пункта в этой менюшке.

Maza Faka · Отправлено: **19:37, 15-08-2007** | #**306**

PHP код:


HotKeySet("{LWIN}", "MyFunc")

HotKeySet("{Esc}", "Quit")



While 1

    Sleep(1000)

WEnd



Func MyFunc()

    MsgBox(0, "", "You pressed Windows Key")

EndFunc



Func Quit()

    Exit

EndFunc

Почему не работает, кто-нить может обьяснить?

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

Maza Faka

Цитата:

Почему не работает

Ну, допустим {ESC} то работает. А {LWIN} попадает в список исключений (я выделил красным). Цитирую AutoIt.chm:

Код:

The following hotkeys cannot be set:

Ctrl+Alt+Delete - It is reserved by Windows 
F12 - It is also reserved by Windows, according to its API. 
NumPad's Enter Key - Instead, use {Enter} which captures both Enter keys on the keyboard. 
Win+B,D,E,F,L,M,R,U; and Win+Shift+M - These are built-in Windows shortcuts. Note: Win+B and Win+L might only be reserved on Windows XP and above. 
Alt, Ctrl, Shift, Win - These are the modifier keys themselves! 
Other - Any global hotkeys a user has defined using third-party software, 
any combos of two or more "base keys" such as '{F1}{F2}', 
and any keys of the form '{LALT}' or '{ALTDOWN}'.

Angelus · Отправлено: **11:22, 16-08-2007** | #**308**

Я извеняюсь........может этот подымался.......просто интересно.......при установке винды устанавливается руская раскладка клавиатуры по умолчанию(есть люди которые так ставят).....в автоскрипт вписана смена раскладки на ангиский, работает........но вместо ввода с клавиатуры допустим...C:\Alcohol Soft......вводится......\A Ї.....че за бред может быть??.....англиский язык тоже установлен....но не основным!......когда чтоит Англиский по умолчанию...то все отлично....

Maza Faka · Отправлено: **18:42, 16-08-2007** | #**309**

Накарябал скрипт для поиска и удаления строк дубликатов, в принципе работает, но только если заменять строку дубликат любым символом, а вот просто удалить строку не заменяя её каким либо символом никак не получается, посоветуйте, как исправить?

PHP код:


#include <File.au3>

#include <Array.au3>

Dim $strArray, $file = "c:\test.txt"

_FileReadToArray($file ,$strArray)



For $i = 1 To $strArray[0]

    $search = _ArraySearch($strArray, $strArray[$i])

    If $search <> $i Then _FileWriteToLine($file, $i, " ", 1)

    Next

Если заменять строку-дубликат вот так:

PHP код:


_FileWriteToLine($file, $i, "", 1)

то, после удаления первого дубликата, строки смещаются на одну строку вверх и соответственно удаляются строки не являющиеся дубликатами.

Maza Faka · Отправлено: **19:13, 16-08-2007** | #**310**

Всё, разобрался.

Код:

#include <File.au3>
#include <Array.au3>
Dim $strArray, $file = "c:\test.txt"

Write($strArray)

Func Write($strArray)
_FileReadToArray($file ,$strArray)
For $i = 1 To $strArray[0]
    $search = _ArraySearch($strArray, $strArray[$i])
    If $search <> $i Then
        _FileWriteToLine($file, $i, "", 1)
        $strArray = 0
        Write($strArray)
    EndIf
Next
EndFunc

А, что скажут знатоки? Можно ли так обрабатывать текст?