Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Скрипт создания файла данных через диологовое окно. как?

Ответить
Настройки темы
[решено] Скрипт создания файла данных через диологовое окно. как?

Аватара для Pozia

Ветеран


Сообщения: 2756
Благодарности: 211

Профиль | Отправить PM | Цитировать


Помогите создать скрипт который бы создовал файл с расширением 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
и так далее...

При запуске скрипта должно выскачить окно в котором можно ввести данные. Пример окна:

Код: Выделить весь код
Диаметр окружности впадин зубьев, df             128
Делительный диаметр, d                           133
Диаметр окружности вершин зубьев, da             137
Ширина, b                                        25
Диаметр ступицы, dst                             65
Длина ступицы, Lst                               60
Толщина венца, hv                                8
Диаметр расположения отверстий, dro              89
Диаметр отверстий, do                            17
То что текстом - это пояснения, а для цифр должно быть поле для их ввода. При этом каждой фразе пояснения должно автоматически подставлятся [mm]p17=. Но не по порядку как в примере. Фраза в скобках и цифра после p может быть любая, заранее мною определенная для каждой фразы пояснения. После того как все данные введены нажимаем OK и должен получится нужный файл.

Отправлено: 20:50, 21-12-2009

 

Пользователь


Сообщения: 143
Благодарности: 24

Профиль | Отправить 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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Pozia

Ветеран


Сообщения: 2756
Благодарности: 211

Профиль | Отправить PM | Цитировать


HORRIBLE, добавте еще закрытие экселя после отработки скрипта пожалуйста и его скрытие. И мне в принципе не нужно окно диалога ввода данных после запуска екселя. я их один раз в скрипт задам и мне нормально. Просто нужен запуск скрипта и получения данных из экселя в файл. Спасибо!

-------
Жизни вглядись в глаза: Это то, что ты всегда искал? Это то, что ты всегда хотел? Да или нет?


Отправлено: 22:38, 22-12-2009 | #22


Пользователь


Сообщения: 143
Благодарности: 24

Профиль | Отправить PM | Цитировать


Pozia, изменил как просили.
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:59, 22-12-2009 | #23



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Скрипт создания файла данных через диологовое окно. как?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход