Недавние сообщения

Страницы: [1] 2 3 ... 10
1
Регулярные выражения и прочее / Re: Помогите с регулярным выражением
« Последний ответ от ra4o Отправлен Сегодня в 20:05:59 »
Цитировать
файл с уникальными адресами
по какому критерию отсеяли адреса "37.190.42.103;adm;1234" , "37.190.42.103;Administrator;1234"  ,"37.190.42.103;admin;1234" и почему оставили именно "37.190.42.103;system;1234" ?
2
Регулярные выражения и прочее / Помогите с регулярным выражением
« Последний ответ от Grizli Отправлен Сегодня в 19:13:37 »
Здравствуйте, не могу осилить задачу- есть текстовый файл вида
37.190.42.103;system;1234
37.110.1.87;root;12345
37.110.33.125;root;12345
37.110.54.119;admin;1234
37.190.42.103;adm;1234
37.190.42.103;Administrator;1234
37.190.83.238;adm;1234
37.190.42.103;admin;1234

нужно на выходе получить файл с уникальными адресами вида
37.110.1.87;root;12345
37.110.33.125;root;12345
37.110.54.119;admin;1234
37.190.42.103;system;1234
37.190.83.238;adm;1234
3
Общие вопросы по AutoIt / Шрифты, стили текста элементов управления
« Последний ответ от musicstashall Отправлен Сегодня в 17:12:51 »
Столкнулся с задачей, когда потребовалось устанавливать шрифт текста в элементах управления такой, чтобы соответствовал дефолтному шрифту системы в данный момент. Дело в том, что если я применяю стиль к шрифту, в данном случае это подчеркнутый текст, то непосредственно сам шрифт становится отличным от дефолтного. Вот пример:

Код: AutoIt [Выделить]
#include <GUICtrlOnHover.au3>

$Back = GUICtrlCreateLabel('<< Назад', $x + 30, $y + 352, 50)
    GUICtrlSetColor(-1, 0x696969)
    GUICtrlSetFont(-1, -1, -1, -1)
    $Complete = GUICtrlCreateLabel('Завершить', $x + 90, $y + 352, 60)
    GUICtrlSetColor(-1, 0x696969)
    GUICtrlSetFont(-1, -1, -1, -1)
    $forward = GUICtrlCreateLabel('Далее >>', $x + 160, $y + 352, 50)
    GUICtrlSetColor(-1, 0x696969)
    GUICtrlSetFont(-1, -1, -1, -1)

Func _Hover($CtrlID, $iParam)
    Switch $iParam
        Case 1 ;Hover
        Switch $CtrlID
            Case $Back
                GUICtrlSetFont($Back, -1, -1, 4)
            Case $Complete
                GUICtrlSetFont($Complete, -1, -1, 4)
            Case $forward Then 
                GUICtrlSetFont($forward, -1, -1, 4)    
           
        EndSwitch
        Case 2 ;Leave Hover
        Switch $CtrlID
            Case $Back
                GUICtrlSetFont($Back, -1, -1, -1)
            Case $Complete
                GUICtrlSetFont($Complete, -1, -1, -1)
            Case $forward
                GUICtrlSetFont($forward, -1, -1, -1)               
           
        EndSwitch
    EndSwitch
EndFunc
 


Вопрос: есть ли возможность получить системный шрифт и его применять к элементам? Либо что-то может иное посоветуете.
4
Общие вопросы по AutoIt / Шрифты, стили текста элементов управления
« Последний ответ от musicstashall Отправлен Сегодня в 17:11:15 »
Столкнулся с задачей, когда потребовалось устанавливать шрифт текста в элементах управления такой, чтобы соответствовал дефолтному шрифту системы в данный момент. Дело в том, что если я применяю стиль к шрифту, в данном случае это подчеркнутый текст, то непосредственно сам шрифт становится отличным от дефолтного. Вот пример:

Код: AutoIt [Выделить]
#include <GUICtrlOnHover.au3>

$Back = GUICtrlCreateLabel('<< Назад', $x + 30, $y + 352, 50)
    GUICtrlSetColor(-1, 0x696969)
    GUICtrlSetFont(-1, -1, -1, -1)
    $Complete = GUICtrlCreateLabel('Завершить', $x + 90, $y + 352, 60)
    GUICtrlSetColor(-1, 0x696969)
    GUICtrlSetFont(-1, -1, -1, -1)
    $forward = GUICtrlCreateLabel('Далее >>', $x + 160, $y + 352, 50)
    GUICtrlSetColor(-1, 0x696969)
    GUICtrlSetFont(-1, -1, -1, -1)

Func _Hover($CtrlID, $iParam)
    Switch $iParam
        Case 1 ;Hover
        Switch $CtrlID
            Case $Back
                GUICtrlSetFont($Back, -1, -1, 4)
            Case $Complete
                GUICtrlSetFont($Complete, -1, -1, 4)
            Case $forward Then 
                GUICtrlSetFont($forward, -1, -1, 4)    
           
        EndSwitch
        Case 2 ;Leave Hover
        Switch $CtrlID
            Case $Back
                GUICtrlSetFont($Back, -1, -1, -1)
            Case $Complete
                GUICtrlSetFont($Complete, -1, -1, -1)
            Case $forward
                GUICtrlSetFont($forward, -1, -1, -1)               
           
        EndSwitch
    EndSwitch
EndFunc
 


Вопрос: есть ли возможность получить системный шрифт и его применять к элементам? Либо что-то может иное посоветуете.
5
GUI - Графический интерфейс пользователя / Слайдер с элементами графики
« Последний ответ от musicstashall Отправлен Сегодня в 16:32:54 »
Доброго всем. Хочу изобразить слайдер с цветной полоской, что получается:

Код: AutoIt [Выделить]
#include <WinAPI.au3>
#include <ComboConstants.au3>
#Include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <Constants.au3>
#include <TabConstants.au3>
#Include <WinAPIEx.au3>
#include <File.au3>
#include <GuiTab.au3>
#include <GDIPlus.au3>
Local $gui1 = GUICreate("", 400, 250, -1, -1)

GUIRegisterMsg($WM_HSCROLL, "WM_HVSCROLL")
GUIRegisterMsg($WM_VSCROLL, "WM_HVSCROLL")
Local $x = 3
Local $y = 75

_GDIPlus_Startup()
$hImage = _GDIPlus_BitmapCreateFromScan0(240, 5)
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hImage)
$hBrush = _GDIPlus_BrushCreateSolid(0xFF00FF4d)
_GDIPlus_GraphicsFillRect($hGraphics, 0, 0, 240, 5, $hBrush)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_BitmapDispose($hImage)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
$Pic1 = GUICtrlCreatePic("", $x + 130, $y+10, 240, 5)
$Pic2 = GUICtrlCreatePic("", $x + 130, $y+60, 240, 5)
Local $iSlider1 = GUICtrlCreateSlider($x + 130, $y, 240, 25)
Local $iSlider2 = GUICtrlCreateSlider($x + 130, $y+50, 240, 25)
GUICtrlSetStyle($iSlider1, BitOR(0x00001018, $WS_CHILD, $WS_VISIBLE))
GUICtrlSetStyle($iSlider2, BitOR(0x00001018, $WS_CHILD, $WS_VISIBLE))
;GUICtrlSetStyle($iSlider1, $TBS_NOTICKS, $WS_EX_TRANSPARENT)
;GUICtrlSetStyle($iSlider2, $TBS_NOTICKS, $WS_EX_TRANSPARENT)
GUICtrlSetLimit($iSlider1, 240)
GUICtrlSetLimit($iSlider2, 240)
GUISetState()
GUICtrlSendMsg($Pic1, 0x0172, 0, $hBitmap)
GUICtrlSendMsg($Pic2, 0x0172, 0, $hBitmap)

_WinAPI_DwmEnableBlurBehindWindow($gui1, 1, 1)
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $iSlider1, $iSlider2
            ;_WinAPI_RedrawWindow($gui1)
            ;GUICtrlSendMsg($Pic1, 0x0172, 0, $hBitmap)
            ;GUICtrlSendMsg($Pic2, 0x0172, 0, $hBitmap)
    EndSwitch
WEnd

Func WM_HVSCROLL($hWnd, $MsgID, $wParam, $lParam)
    Switch $lparam
        Case GUICtrlGetHandle($iSlider1)
            Update()
        Case GUICtrlGetHandle($iSlider2)
            Update()
    EndSwitch
EndFunc

Func Update()
    GUICtrlSendMsg($Pic1, 0x0172, 0, $hBitmap)
    GUICtrlSetState($iSlider1, $GUI_ONTOP + $GUI_NOFOCUS)
    GUICtrlSendMsg($Pic2, 0x0172, 0, $hBitmap)
    GUICtrlSetState($iSlider2, $GUI_ONTOP + $GUI_NOFOCUS)
EndFunc
 


Пока ползунок двигаешь, полоска перекрывает его, как только отпустишь, всё как надо, красиво, аккуратно. Так же когда элемент теряет фокус, полоски исчезают. В общем хочу спросить совета у тех, кто что-то подобное уже делал и знает все нюансы, как это реализовать. Так же хочется, чтобы вокруг слайдера не рисовалась рамка, выделяющая его, какой для этого нужен стиль.
6
Стол заказов / Re: Как скомпилировать несколько скриптов в 1 портабельный exe
« Последний ответ от ra4o Отправлен Сегодня в 12:46:38 »
Цитировать
Спасибо. Сори, не понял как применить?
Подключаете UDF к скрипту
Код: AutoIt [Выделить]
#include <Restart.au3>

и когда нужен рестарт скрипта вызываете функцию
Код: AutoIt [Выделить]
_ScriptRestart()

7
да нет все проше. там дерево файлов и папок в сетевой шаре. и там много -много уровней вложенности. и мне надо обработать каждый файл. а именно - скормить его конвертилке
8
памяти будет занято сколько сам размер файла. и если он большой, то и читаться в память будет дольше
вот поэтому можно через чтение строк.
а что за файл? может там структура типа ini?
9
Вопрос такой. У меня есть очень большой текстовый файл. А именно дерево файлов в папке. Я собираюсь автоитом пробежать по каждой строке этого файла, и что то с ней делать.

Вопрос - как грамотнее поступить чтобы не нагрузить память и проц?
есть такие функции как FileReadLine (считывать строки по одной и работать с ними)
а есть FileReadToArray - она пихает сразу весь файл в массив.
так вот. текстовый файл очень большой и я боюсь что если AutoIt начнет весь его грузить в массив то что нибудь случится..
а насчет FileReadLine - в самой справке AutoIt'а есть такая фраза

Цитировать
From a performance standpoint it is a bad idea to read line by line specifying "line" parameter whose value is incrementing by one. This forces AutoIt to reread the file from the beginning until it reach the specified line.

ну тоесть мол плохая идея с точки зрения производительности читать файл построчно так как AutoIt будет каждый раз с первой строки бежать по файлу пока не дойдет до нужной.
10
GUI - Графический интерфейс пользователя / Re: Получить массив из ComboBox
« Последний ответ от Атос Отправлен Сегодня в 11:28:14 »
ra4o, спасибо.
Страницы: [1] 2 3 ... 10