$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 |
Надеюсь на помощь гуру, заранее спасибо!