|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Скрипт создания файла данных через диологовое окно. как? |
|
|
[решено] Скрипт создания файла данных через диологовое окно. как?
|
Ветеран Сообщения: 2756 |
Помогите создать скрипт который бы создовал файл с расширением exp (обычный текстовый файл только с переименованным расширением). При этом нужно чтобы в файл вносились данные по определенному алгоритму.
Пример файла который нужно получить: [mm]p9=128 [mm]p10=133 [mm]p11=137 [mm]p12=25 [mm]p13=65 [mm]p14=60 [mm]p15=8 [mm]p16=89 [mm]p17=17 При запуске скрипта должно выскачить окно в котором можно ввести данные. Пример окна: То что текстом - это пояснения, а для цифр должно быть поле для их ввода. При этом каждой фразе пояснения должно автоматически подставлятся [mm]p17=. Но не по порядку как в примере. Фраза в скобках и цифра после p может быть любая, заранее мною определенная для каждой фразы пояснения. После того как все данные введены нажимаем OK и должен получится нужный файл. |
|
Отправлено: 20:50, 21-12-2009 |
Пользователь Сообщения: 143
|
Профиль | Отправить PM | Цитировать Pozia,
#include <Excel.au3> $sheet = "Лист1" ; Название листа на котором находятся данные $num_row_start = 6 ; начальная строка $num_col_start = 2 ; начальный столбец $num_row_end = $num_row_start+8 ; конечная строка $sFile = @ScriptDir & '\file.ext' $sFilePath1 = @ScriptDir & "\book.xls" $oExcel = _ExcelBookOpen($sFilePath1,0) If @error = 1 Then MsgBox(0, "Error!", "Unable to Create the Excel Object") Exit ElseIf @error = 2 Then MsgBox(0, "Error!", "File does not exist - Shame on you!") Exit EndIf _ExcelSheetActivate($oExcel, $sheet) If @error = 1 Then MsgBox(0, "Error!", "Specified object does not exist") Exit ElseIf @error = 2 Then MsgBox(0, "Error!", "Specified sheet number does not exist") Exit ElseIf @error = 3 Then MsgBox(0, "Error!", "Specified sheet name does not exist") Exit EndIf $hWrite = FileOpen($sFile, 2) For $i = 0 to ($num_row_end - $num_row_start) $sCellValue_t = _ExcelReadCell($oExcel, $num_row_start + $i, $num_col_start) ; название ячейки $sCellValue_d = _ExcelReadCell($oExcel, $num_row_start + $i, $num_col_start+1);значение ячейки FileWriteLine($hWrite, $sCellValue_t & $sCellValue_d) Next FileClose($hWrite) _ExcelBookClose($oExcel, 0, 0) MsgBox(0,"", "Файл записан",3) |
Последний раз редактировалось HORRIBLE, 22-12-2009 в 23:05. Отправлено: 22:10, 22-12-2009 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать HORRIBLE, добавте еще закрытие экселя после отработки скрипта пожалуйста и его скрытие. И мне в принципе не нужно окно диалога ввода данных после запуска екселя. я их один раз в скрипт задам и мне нормально. Просто нужен запуск скрипта и получения данных из экселя в файл. Спасибо!
|
------- Отправлено: 22:38, 22-12-2009 | #22 |
Пользователь Сообщения: 143
|
Профиль | Отправить PM | Цитировать Pozia, изменил как просили.
|
Отправлено: 22:59, 22-12-2009 | #23 |
|
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
VBS/WSH/JS - [решено] Как вызвать диалоговое окно открытия файла? | jaki | Скриптовые языки администрирования Windows | 4 | 30-03-2011 12:12 | |
[решено] Как написать скрипт о проверке нужного файла на съемном носителе? | Pozia | AutoIt | 12 | 05-03-2009 20:20 | |
Интернет - Диалоговое окно загрузки файла IE убрать через реестр... | 12usver12 | Microsoft Windows 2000/XP | 6 | 26-05-2008 15:41 | |
Как остановить скрипт, пока юзер не закроет всплывающее окно? | Gamover jr | Вебмастеру | 5 | 16-04-2008 20:08 | |
Как взять дату создания файла из перла? | radioamator | Вебмастеру | 2 | 30-04-2004 11:14 |
|