[Creat0R]

NikLok,
Это не для AutoIt'а задачка, тут видимо нужно смотреть в сторону javascript/css, по этим вопросам лучше обратиться сюда

Senka11,

как теперь добавить чтоб и мак дописывал ся!

amel27 привёл функцию на предыдущей страничке:

Код:

MsgBox(0, "IP-Adress", @IPAddress1)
MsgBox(0, "Computer-name", @ComputerName)
$nEdit = InputBox("Input inventory ID", "Input inventory ID", "", "", -1,3,175,20)
$aEdit = InputBox("Input Everest ID", "Input Everest ID", "", "", -1,30,175,20)

$aMac = _NetAdapterGetProp()

$hOpen = FileOpen("\\192.168.0.254\public\senka1985\ipconfig.txt",1)
FileWriteLine($hOpen, "" & $nEdit & " " & $aEdit & " " & @IPAddress1 & " " & $aMac[0][2])
FileClose($hOpen)

Func _NetAdapterGetProp($sHostName = "localhost")
    Local $objItem, $objWMIService = ObjGet( "winmgmts:\\"& $sHostName &"\root\CIMV2")
    Local $sQuery = 'SELECT Index, Caption, MACAddress, IPAddress FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True'
    Local $colItems = $objWMIService.ExecQuery($sQuery, "WQL", 0x30)
    If IsObj($colItems) Then
        Local $aRes[1][3], $i=0
        For $colItem In $colItems
            ReDim $aRes[$i+1][3]
            $aRes[$i][0] = $colItem.Caption
            $aRes[$i][1] = $colItem.IPAddress(0)
            $aRes[$i][2] = $colItem.MACAddress
            $i+=1
        Next
        Return $aRes
    EndIf
    Return SetError(1)
EndFunc

[Creat0R]

Давно искал функцию для проверки цвета, содержится ли в нём оттенок тёмного или светлого, и наконец (с небольшой, однако значительной помощью на оф. форуме) мне удалось сделать подобную функию:

Код:

#include <GuiConstants.au3>
#include <Misc.au3>

Global $Bk_Color = 0xFFFFFF

$GUI = GUICreate("_ColorIsDarkShade Demo", 300, 200)

$Label = GUICtrlCreateLabel("Some Text", 20, 40, 55, 14)
GUICtrlSetBkColor(-1, $Bk_Color)

$ColorSet_Button = GUICtrlCreateButton("Set Color", 20, 80)

GUISetState(@SW_SHOW, $GUI)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ColorSet_Button
            $Bk_Color = _ChooseColor(2, $Bk_Color, 2, $GUI)
            Local $sShade = _ColorIsDarkShade($Bk_Color)

            GUICtrlSetBkColor($Label, $Bk_Color)

            If $sShade Then
                GUICtrlSetColor($Label, 0xFFFFFF)
            Else
                GUICtrlSetColor($Label, 0x000000)
            EndIf
    EndSwitch
WEnd

Func _ColorIsDarkShade($nColor)
    Local $i_Red = BitAND(BitShift($nColor, 16), 0xFF)
    Local $i_Green = BitAND(BitShift($nColor, 8), 0xFF)
    Local $i_Blue = BitAND($nColor, 0xFF)

    Local $iMidle_Color_Val = Int(765 / 2) ;765 is the total of 255 + 255 + 255

    Return ($i_Red + $i_Green + $i_Blue) < $iMidle_Color_Val
EndFunc

Суть в том, что если юзер выбрал тёмный/светлый цвет, то цвет текста соответственно меняется на противоположный (и вто время видимый на фоне) цвет .

[amel27]

2All
ламерский вопрос: для чего используется оператор #region ?

2Creat0R
случайно наткнулся на его цветовое обозначение - INDIGO

[Creat0R]

amel27,

для чего используется оператор #region ?

Обозначет блок кода, подобно комментариям для блока, только строки заключённые в этом блоке не комментируются

Пример:

Код:

#include <GuiConstants.au3>

$GUI = GUICreate("Test Script", 300, 200)

GUICtrlCreateButton("Button", 20, 40, 60, 20)

GUISetState(@SW_SHOW, $GUI)

#Region Main Loop
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
#EndRegion Main Loop
;

Кстати, ещё один стиль для раскарски - Т.н аббривиатуры (вольный перевод ), если ввести cw (эти значения выделяются красным цветом в SciTE), и нажать пробел, то оно раскроется в ConsoleWrite( & @CRLF), а курсор станет после открывающей скобки. Эти значения задаются в файле «abbrev.properties» (доступен из меню «Options - Open Abbriviations file»). Сам недавно узнал.

P.S
За эти аббривиатуры отвечает стиль №13.

случайно наткнулся на его цветовое обозначение - INDIGO

Имхо, не совсем подходит, мне кажется DarkOrchid чётче отражает #Region, по крайней мере тут на форуме.

[amel27]

Обозначет блок кода »

чем он лучше уже имеющихся операторов?.. в смысле чем не устраивали старые?

читать дальше »

Код:

#include <GuiConstants.au3>

$GUI = GUICreate("Test Script", 300, 200)

GUICtrlCreateButton("Button", 20, 40, 60, 20)

GUISetState(@SW_SHOW, $GUI)

;Region Main Loop
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
; /==> Region Main Loop

подобно комментариям для блока »

это что за зверь?... или ты имел ввиду блок комментариев?

только строки заключённые в этом блоке не комментируются »

прекрасно комментируются, причем какого-либо интеллекта у этого "оператора" я не заметил, получается что все они идентичны банальному ";"... только последний гораздо короче

читать дальше »

Код:

#include <GuiConstants.au3>

$GUI = GUICreate("Test Script", 300, 200)

GUICtrlCreateButton("Button", 20, 40, 60, 20)

GUISetState(@SW_SHOW, $GUI)

#EndRegion Main Loop
While 1
    $nMsg = GUIGetMsg()
    #Region Main Loop
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    #Region Main Loop
WEnd
#Region Main Loop

мне кажется DarkOrchid чётче отражает »

может огласишь весь список?

[Creat0R]

amel27,

чем он лучше уже имеющихся операторов?

Тем что можно свернуть (Fold) этот блок и он не будет "мешать" глазам

ты имел ввиду блок комментариев?

Да.

прекрасно комментируются

Я имел в виду что в отличие от #CS....#CE (кстати с этим стилем при раскраске есть проблемы, см. далее), все строки в блоке не становятся закомментированными после применения подобного комментирования.
А комментарии для отдельных строк конечно же всегда действуют

может огласишь весь список?

Не уверен что понял, но вот сравнение с “бумаги”:

Рисунок:


Текст (DarkOrchid):
#Region Main Loop

Текст (Indigo)
#Region Main Loop

Я даже как то давно показывал подобное сравнение.

---

По поводу раскраски, вот какие стили у меня уже имеются (до 15-ти)...

Подробнее...

Код:

; Расстановка стилей по тексту
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_0>(.*?)</t_0>", "\1") ; текст без стиля
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_1>(.*?)</t_1>", "[color=green][i]\1[/i][/color]") ; комментарии
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_2>(.*?)</t_2>", "[color=OliveDrab][i]\1[/i][/color]") ; комментарии (#CS..#CE)
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_3>(.*?)</t_3>", "[color=darkmagenta][i]\1[/i][/color]") ; числа
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_4>(.*?)</t_4>", "[color=darkblue][i]\1[/i][/color]") ; функции
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_5>(.*?)</t_5>", "[color=blue]\1[/color]") ; операторы управления
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_6>(.*?)</t_6>", "[color=magenta]\1[/color]") ; макросы-подстановки
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_7>(.*?)</t_7>", "[color=gray]\1[/color]") ; литеры
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_8>(.*?)</t_8>", "[color=red]\1[/color]") ; операторы
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_9>(.*?)</t_9>", "[color=brown]\1[/color]") ; имена переменных
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_10>(.*?)</t_10>", "[color=orange]\1[/color]") ; макросы клавиатуры
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_11>(.*?)</t_11>", "[color=magenta][i]\1[/i][/color]") ; макросы препроцессора
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_12>(.*?)</t_12>", "[color=DarkOrchid][i]\1[/i][/color]") ; Регион (#Region)
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_13>(.*?)</t_13>", "[color=red][i]\1[/i][/color]") ; аббривиатуры
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_14>(.*?)</t_14>", "[color=blue][i]\1[/i][/color]") ; свойства/методы объектов
	$sText = StringRegExpReplace($sText, "(?s)(?i)<t_15>(.*?)</t_15>", "[color=gray][i]\1[/i][/color]") ; штатные UDF

Но почему-то #CS..#CE неверно раскрашиваются, #CS и содержимое нормально, а вот #CE приобретает цвет magenta .

[amel27]

Не уверен что понял »

...в смысле может ты знаешь все возможные цвета?

вот какие стили у меня уже имеются »

хм, в скрипте с твоего сайта нет всех этих цветов

почему-то #CS..#CE неверно раскрашиваются »

посмотрел твой скрипт (тот что с сайта) - если XML подавать сразу на вход функции то все нормально - у тебя где-то по ходу подменяются стили, в частности проставляется "<t n='2'>"

[Creat0R]

amel27,

...в смысле может ты знаешь все возможные цвета? »

Нет, но подобрать не сложно - используем пипетку какого нибудь цветового пикера (Diamond написал один такой), наводим над нужным цветом и получаем Hex-значение, затем тут пытаемся найти наиболее подходящее текстовое значение

А ещё можно используя SciteConfig получить текущие значения для подсветок.

в скрипте с твоего сайта нет всех этих цветов

Я ещё не обновлял, хотел выложить работающй вариант со всеми стилями.

Вот вариант который плохо отрабатывает: Au3ToPst_Unstable.au3.

Просто включи ручной ввод кода, введи блок комментов:

Код:

#CS
Some comments
#CE

И выполни обработку, на выходе получается это:

Код:

#CS
Some comments
#CE

Есть идеи как поправить? - Возможно имеет значение порядок расстановки при замене стилей?

[amel27]

затем тут пытаемся найти наиболее подходящее текстовое значение»

супер!.. меня именно текстовый аналог интересовал

Есть идеи как поправить? - Возможно имеет значение порядок расстановки при замене стилей? »

посмотрел - это баг SciTE: при "ручном" формировании XML правильный, а при автоматическом стиль не тот

[Senka11]

спасибо за помощ доделал все что хотел!!!!!!!!!!!

огромное спасибо активным участникам обсуждения!!!!!
к стати вот что вышло!!!
я добавил еще одно поле для номера крнфигурации машины!!!

PHP код:

MsgBox(0, "IP-Adress", @IPAddress1)
MsgBox(0, "Computer-name", @ComputerName)
$nEdit = InputBox("Input inventory ID", "Input inventory ID", "", "", -1,3,175,20)
$aEdit = InputBox("Input Everest ID", "Input Everest ID", "", "", -1,30,175,20)
$xEdit = InputBox("Введите тип конфигурации", "Введите тип конфигурации", "", "", -1,3,175,20)
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
For $objItem In $colItems

$Output =  "" & $objItem.MACAddress & @CRLF
next

FileWrite(FileOpen("\\192.168.0.254\public\senka1985\ipconfig.txt",1),"" &$nEdit& " "& $aEdit &" "&@IPAddress1 &" "&$Output &"тип" &$xEdit)
Endif 

спс!!!