Что нового
Автор:
Фильтры

Ваши приёмы по оптимизации написания кода

Автор
C

cnm

Новичок
Сообщения
58
Репутация
2
Мой пример

Надо вывести много параметров, сохраняющихся в ini - file

Создавемые Label и input пишу в массивы,


Код: 
$a_Label[20] = GUICtrlCreateLabel("Файл", 25, 51, 165, 25)
			$a_Input[20] = GUICtrlCreateInput("c:\1.xls", 244, 51, 425, 29)
			$a_Button[20] = GUICtrlCreateButton("Выбрать", 672, 51, 75, 25)



			$a_Label[12] = GUICtrlCreateLabel("", 25, 91, 97, 25)
			$a_Input[01] = GUICtrlCreateInput("", 244, 91, 425, 29)


			$a_Button[12] = GUICtrlCreateButton("", 168, 184, 123, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")

			$a_Input[03] = GUICtrlCreateInput("", 244, 251, 425, 29)
			$a_Input[04] = GUICtrlCreateInput("", 244, 291, 425, 29)


			$a_Button[15] = GUICtrlCreateButton("", 672, 91, 75, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")

			$a_Label[21] = GUICtrlCreateLabel("Размер видео, ширина", 24, 52, 185, 25)
			$a_Label[22] = GUICtrlCreateLabel("Размер видео, высота", 24, 92, 180, 30)
			$a_Label[23] = GUICtrlCreateLabel("Видео, частота", 24, 132, 125, 25)
			$a_Label[24] = GUICtrlCreateLabel("Длительность показа одной картинки", 24, 172, 308, 25)
			$a_Label[25] = GUICtrlCreateLabel("Надпись", 24, 212, 73, 25)


			$a_Input[08] = GUICtrlCreateInput("", 224, 52, 121, 29)
			$a_Input[09] = GUICtrlCreateInput("", 224, 92, 121, 29)
			$a_Input[10] = GUICtrlCreateInput("", 224, 132, 121, 29)
			$a_Input[11] = GUICtrlCreateInput("", 352, 172, 121, 29)
			$a_Input[12] = GUICtrlCreateInput("", 224, 212, 417, 29)



Затем создаю массив в процедуре инициализации

Код: 
Global $arr_ini_data[18][2]=[ _
				  ["Path", "Path_Input_Folder_Pictires" ],	_
				  ["Path", "Path_Input_File_audio" ],		_
				  ["Path", "Path_Output_File_video" ],		_
				  ["Youtube_video_msg", "YT_msg_01" ],		_
				  ["Youtube_video_msg", "YT_msg_02" ],		_
				  ["Youtube_video_msg", "YT_msg_03" ],		_
				  ["Youtube_video_msg", "YT_msg_04" ],		_
				  ["Youtube_video_msg", "YT_msg_05" ],		_
				  ["Video_config", "Video_Width" ],			_
				  ["Video_config", "Video_Height" ],		_
				  ["Video_config", "Video_FPS" ],			_
				  ["Video_config", "Video_Image_Time" ],	_
				  ["Video_config", "Video_Image_Text" ],	_
				  ["Youtube_accaunt_data", "YT_data_01" ],	_
				  ["Youtube_accaunt_data", "YT_data_02" ],	_
				  ["Youtube_accaunt_data", "YT_data_03" ],	_
				  ["Youtube_accaunt_data", "YT_data_04" ],	_
				  ["Youtube_accaunt_data", "YT_data_05" ]]



Здесь можно даже улучшить код - добавиьт в массив input b и label в 3-4 столбец


и процедура чтения из ини файла в инпуты

Код: 
For $i=0 To 17
	  GUICtrlSetData($a_Input[$i], IniRead($file_INI, $arr_ini_data[$i][0] ,$arr_ini_data[$i][1] , ""))
   Next


процедура сохранения из массива в ини файл

Код: 
For $i=0 To 17
	  If IniRead($file_INI, $arr_ini_data[$i][0] ,$arr_ini_data[$i][1] , "")<>GUICtrlRead($a_Input[$i]) Then
		 IniWrite ( $file_INI, $arr_ini_data[$i][0] ,$arr_ini_data[$i][1] , GUICtrlRead($a_Input[$i]) )
	  EndIf
   Next





Структрура данных такая


Label [##] ; Input [##] ; $arr_ini_data[##, 1] = section ; $arr_ini_data[##, 2] = value;

В структуру можно добавить значение Label.

Получается массив типизированных данных, который можно обрабатывать одним циклом (устаналивать значения лабелов, инпутов, считывать данные с формы, считывать из ини-файла, итд).
 
inververs

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
Что бы для всех контролов задать одну и ту же функцию я пишу:
Код: 
For $control = 3 To GUICtrlCreateDummy()
	GUICtrlSetOnEvent($control, 'gui_control_event')
Next



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

Состояние галочки (True или False) легко записать в переменную вот так:
Код: 
$CONFIG_ON_TOP = GUICtrlRead($Checkbox_ontop) = 1
 
Автор
C

cnm

Новичок
Сообщения
58
Репутация
2
Прием для отладки.

Код написан на Дельфи, но легко модифицируется для аутоит.

procedure _WriteLog(value:variant);
var
str:string;
begin
str:=FormatDateTime('hh:mm:ss', time) + ' ' + VarAsType(value, varOleStr);
Form1.MemoLog.Lines.Add(str);
// WriteLn(logfile, str);
end;

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

_writelog('hello, world!')
 
Yashied

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
inververs сказал(а):
Что бы для всех контролов задать одну и ту же функцию я пишу:
Код: 
For $control = 3 To GUICtrlCreateDummy()
	GUICtrlSetOnEvent($control, 'gui_control_event')
Next
Нажмите, чтобы раскрыть...

Поскольку последовательная нумерация элементов GUI в AutoIt нигде не документирована, то я бы не советовал так делать. Правильнее было бы создать массив.

Вот мой прием, когда необходимо проверять множество действий на предмет успешного выполнения (довольно часто встречается):

Код: 
$Error = True
Do
	...
	If Ошибка Then ExitLoop
	...
	If Ошибка Then ExitLoop
	...
	If Ошибка Then ExitLoop
	$Error = False
Until True
If $Error Then
	...
Else
	...
EndIf
 
Автор
C

cnm

Новичок
Сообщения
58
Репутация
2
Работа с FF или другим глючным оле-объектом,

Выношу все действия с объектом в отдельные процедуры, в которых происходит обращение к этому объекту. В этих же процедурах происходит обработка исключительных ситуаций.

В самой программе нет действий с объектом, только обращения к процедурам посредникам.

Код из дельфи

Код: 
Function F_600_open_URL(BrowserChromium: TChromium; url:string):string;
begin
  WB100isLoaded:=False;
  BrowserChromium.Load(url);
  F_601_Wait_Browser(BrowserChromium);
end;



Код: 
function F_602_ReturnURL(BrowserChromium: TChromium): string;
begin
  try
    result:=BrowserChromium.Browser.MainFrame.Url;
  except
   result:='ERROR F_642_ReturnURL';
   _WriteLog(result);
  end;
end;



Код: 
Function F_610_WB_ObjectSetValue(BrowserChromium: TChromium; id,value:string):string;
var
  CodeStr:string;
begin

 result:='ok';

 try
    CodeStr := 'document.getElementById("' + id + '").value="' + value+ '";' ;
    BrowserChromium.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);


 except
    result:='ERROR 610_ObjectSetValue = ' + id;
    _WriteLog(result);
 end;
end;


Код: 
Function F_611_WB_ObjectClick(BrowserChromium: TChromium; id:string):string;
var
  CodeStr:string;
begin

 WB100isLoaded:=False;

 result:='ok';

 try
    CodeStr := 'document.getElementById("' + id + '").click();';
    BrowserChromium.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);

    F_601_Wait_Browser(BrowserChromium);

 except
    result:='ERROR 611_WB_ObjectClick = ' + id;
    _WriteLog(result);
 end;

end;
 
inververs

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
cnm
В autoit нету механизма исключений. Поэтому ваш пример тут не в тему.


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

Yashied [?]
Вот мой прием, когда необходимо проверять множество действий на предмет успешного выполнения (довольно часто встречается):
Нажмите, чтобы раскрыть...
Аналогично можно выходить из select или switch
Код: 
Do
	Select
		Case $a = 1
 			;какой то код                       
			If $b = 3 Then ExitLoop

		Case $a = 2
		Case $a = 3
	EndSelect
Until True




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

Вот интересный вариант организации Callback вызова в StringRegExpReplace. Здесь для каждого совпадения будет вызвана функция с параметром.
Это можно использовать в функциях перекодирования.
Код: 
Local $string = "abc123"
$string = Execute("'" & StringRegExpReplace($string, "(\D)", "' & _test(""\1"") & '") & "'")
ConsoleWrite($string & @LF)
Func _test($in)
	Return Random(1, 9, 1)
EndFunc   ;==>_test

В этом примере все не цифры будут переданы в функцию _test


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

Эта регулярка разрежет строку аккуратно по 30 символов так, что не будет "разрезанных" слов.
Код: 
Local $sString = "Эту длинную строку я разрежу максимум по 30 символов, но никогда не поделю слово на части."
$res = StringRegExpReplace($sString, ".{1,30}(\h|$)\K", @crlf)
Msgbox(0,"", $res)
 
Автор
C

cnm

Новичок
Сообщения
58
Репутация
2
inververs сказал(а):
cnm
В autoit нету механизма исключений. Поэтому ваш пример тут не в тему.
Нажмите, чтобы раскрыть...

В аутоит есть глючные объекты, а обработка исключений проводится вручную через обработку @error.

Поэтому мой пример годится и для аутоит.
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
CreatoR CertIt - Создание сертификата и подписи ваших программ Примеры и рабочие проекты 0
CreatoR Перенесено: Недобросовестные заказчики ваших услуг. Разработка ботов 0
A Если вернуть времена DOS'a, 'школоты' не будет в этих ваших интернетах Общение 11
S Зарплаты программистов в ваших городах Общение 15
madmasles Перенесено: Ваши приёмы по оптимизации написания кода Примеры и рабочие проекты 0
Похожие темы
CertIt - Создание сертификата и подписи ваших программ
Перенесено: Недобросовестные заказчики ваших услуг.
Если вернуть времена DOS'a, 'школоты' не будет в этих ваших интернетах
Зарплаты программистов в ваших городах
Перенесено: Ваши приёмы по оптимизации написания кода
Верх