Что нового

Цикл

Статус
Закрыто для дальнейших ответов.

altermim

Новичок
Сообщения
5
Репутация
0
Нужно зациклить выполнение определенных команд, при выполнении цикла создается новая папка с название соответствующим шага цикла у меня он +1 т.е. создается парка 1,2.3 и т.д. не знаю как это воткнуть в send, программа сначала ищет файл через поиск с таким названием, проделывает операции и открывает другой. Как мне выполнить код выделенный жирным, я уже и в переменные их воткнул и как только не шаманил это конечный вариант пока, голову сломал, может в send нельзя отправить переменные типа текста?




Код:
Run("C:\Program Files (x86)\Publisher2.exe")
WinWaitActive("Publisher")
Sleep(5000)

Dim $tab_, $tab_2, $pathSearch, $pathSave

$tab_=5
$tab_2=3
$pathSearch="{TAB "& $tab_ &"}$i"
$pathSave="E:\Publications\$i"


For $i = 900 To 910 Step +1


Send("^o")
WinWaitActive("Выберите файл проекта")

Send($pathSearch)
Send("{TAB "& $tab_2 &"}{DOWN}{UP}{ENTER}")

Sleep(40000)
Send("^+h")
WinWaitActive("Опубликовать")
Send("{TAB}")
Send("^a")
Send("{DELETE}")
Send("E:\Publications\$i" )
Send("{TAB "& $tab_ &"}")
Send("{ENTER}")
WinWaitActive("Некоторые символы отсутствуют в выбранном шрифте!")
Send("{ENTER}")
Sleep(5000)
Send("{ESC}")
Next
MsgBox(4096, "", "Done!")



Используйте для AutoIt кода тег [autoit]
autoit.gif

madmasles.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
altermim,
Используйте Tidy для удобочитаемости кода:
Код:
Run("C:\Program Files (x86)\Publisher2.exe")
WinWaitActive("Publisher")
Sleep(5000)

Dim $tab_, $tab_2, $pathSearch, $pathSave

$tab_ = 5
$tab_2 = 3
$pathSearch = "{TAB " & $tab_ & "}$i"
$pathSave = "E:\Publications\$i"


For $i = 900 To 910 Step +1


	Send("^o")
	WinWaitActive("Выберите файл проекта")

	Send($pathSearch)
	Send("{TAB " & $tab_2 & "}{DOWN}{UP}{ENTER}")

	Sleep(40000)
	Send("^+h")
	WinWaitActive("Опубликовать")
	Send("{TAB}")
	Send("^a")
	Send("{DELETE}")
	Send("E:\Publications\$i")
	Send("{TAB " & $tab_ & "}")
	Send("{ENTER}")
	WinWaitActive("Некоторые символы отсутствуют в выбранном шрифте!")
	Send("{ENTER}")
	Sleep(5000)
	Send("{ESC}")
Next
MsgBox(4096, "", "Done!")
 
Автор
A

altermim

Новичок
Сообщения
5
Репутация
0
Жирным куски кода не выделились, пришлось убрать тэг, в хелпе написано простенько, там не написано как подставлять меняющиеся переменные , другими словами нужно чтобы работала вот такая часть

Код:
Dim $pathSearch
$pathSearch="E:\Publisher\$i
For $i = 1 To 5 Step +1
	"
    MsgBox(4096, "Window", $pathSearch)
Next
MsgBox(4096, "", "Done!")
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
altermim,
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.






Добавлено:
Сообщение автоматически объединено:

aleratorio,
Не надо отвечать до реакции на предупреждение.
 
Автор
A

altermim

Новичок
Сообщения
5
Репутация
0
madmasles сказал(а):
altermim,
[warn]За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.[/warn]





Добавлено:
Сообщение автоматически объединено:

aleratorio,
Не надо отвечать до реакции на предупреждение.









Боже мой, я поковыряюсь с оформлением и в итоге мне дадут ссылку на хелп, проходили, не на 1 мой вопрос не ответили нигде, я должен парится над фигней в итоге ничего не получу, спасибо я сам разберусь, форум никчемный, не разу не помог. Можете удалять тему, САМ разберусь.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Тема закрыта.
 
Статус
Закрыто для дальнейших ответов.
Верх