$sSettings_ini = @ScriptDir & "\settings.ini" ; путь к ini файлу с настройками If FileExists ($sSettings_ini) = 0 Then $hSettings_ini = FileOpen ($sSettings_ini, 2+512); открываем файл для записи в ANSI FileWrite ($hSettings_ini, "[urls]"&@CRLF&"URL1_name=Поиск в Google"&@CRLF&"URL1_data=https://google.gik-team.com/?q="&@CRLF& _ "URL2_name=Поиск в Yandex"&@CRLF&"URL2_data=https://yandex.ru/search/?text=") FileClose ($hSettings_ini) EndIf HotKeySet("+!d", "_Calculate") ; комбинация Shift-Alt-d While 1; бесконечный цикл Sleep (100) WEnd Func _Calculate () $sCurClipboard = ClipGet ( ) ; читаем буфер обмена If $sCurClipboard = "" Then ;проверяем пуст ли буфер TrayTip ("", "Буфер обмена пуст!", 3) Sleep (1000) Return ; возвращаемся из функции EndIf TrayTip ("", "Текст: "&$sCurClipboard, 3) Sleep (1000) $sResultString = StringReplace ($sCurClipboard, " ", "-") ; заменяем все символы "TAB" на "-" $sResultString = StringReplace ($sResultString, @CRLF, "|") ; заменяем все символы переноса строки на "|" If StringRight ($sResultString, 1) ="|" Then ; проверяем последний символ строки $sResultString = StringTrimRight ($sResultString, 1); обрезаем последний символ EndIf ClipPut ($sResultString); вставляем результат в буфер обмена $Form1 = GUICreate("Копирование из Таблицы", 500, 150) $Label1 = GUICtrlCreateLabel("Результат: ", 5, 5, 60, 17) $Label2 = GUICtrlCreateLabel("Ссылка 1: ", 5, 106, 60, 17) $Label3 = GUICtrlCreateLabel("Ссылка 2: ", 5, 128, 60, 17) $Label4 = GUICtrlCreateLabel("", 66, 5, 429, 17) GUICtrlSetData ($Label4, $sResultString); заносим результат в форму $Label5 = GUICtrlCreateLabel("", 66, 106, 429, 17) GUICtrlSetColor ($Label5, 0x0000FF) GUICtrlSetData ($Label5, IniRead ($sSettings_ini, "urls", "URL1_name", "" )); формируем название ссылки $Label6 = GUICtrlCreateLabel("", 66, 128, 429, 17) GUICtrlSetColor ($Label6, 0x0000FF) GUICtrlSetData ($Label6, IniRead ($sSettings_ini, "urls", "URL2_name", "" )); формируем название ссылки GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ; закрытие окна GUIDelete ($Form1); удаляем окно Return ; вызващаемся из функции Case $Label5 ShellExecute(IniRead ($sSettings_ini, "urls", "URL1_data", "" )&$sResultString);формируем ссылку Case $Label6 ShellExecute(IniRead ($sSettings_ini, "urls", "URL2_data", "" )&$sResultString);формируем ссылку EndSwitch WEnd EndFunc |