ser_davkin писал(а):
но .... в этой схеме нельзя пометить что вот этот адрес IP имеет другой MAC адрес в Загружаемом списке по отножения к Базовому , да схема медленная но это не имеет значения.------------ Дoбавленo в 17.52:
Забыл добавить уничтожение строчки во временном списке, ну, и в целом оптимизировал:
Add(MainForm,15293196,119,266)
{
Width=1183
Height=574
}
Add(Button,4594823,70,196)
{
Left=15
Top=490
Width=1150
Height=40
link(onClick,2570646:doStart,[])
}
Add(Thread,2570646,119,196)
{
Delay=100
FastStop=0
link(onExec,15105812:doEvent1,[])
}
Add(Memo,3022806,196,42)
{
@Hint=#19:Загружаеммый список|
Left=15
Top=40
Width=225
Height=445
Strings=#30:192.168.14.2 00-0F-EA-62-31-0B|30:192.168.14.3 C8-3A-35-D8-FD-B5|30:192.168.14.5 00-27-19-C0-27-85|30:192.168.14.6 B0-48-7A-DC-CC-29|31:192.168.14.10 C8-3A-35-38-DF-88|31:192.168.14.12 F4-EC-38-D1-4B-1F|31:192.168.14.15 00-02-DC-E1-66-12|31:192.168.14.18 00-1D-7D-E5-28-60|31:192.168.14.21 00-24-54-29-E1-65|31:192.168.14.22 F4-6D-04-02-2F-1A|31:192.168.14.24 00-25-22-3D-0C-FB|31:192.168.14.26 00-0D-9D-5D-69-E0|31:192.168.14.27 00-1F-C6-C8-BD-E6|31:192.168.14.33 90-F6-52-6D-12-07|31:192.168.14.36 20-CF-30-B4-6B-B1|31:192.168.14.38 10-78-D2-D4-5E-3B|31:192.168.14.39 54-E6-FC-A1-93-43|31:192.168.14.41 00-A1-B0-11-14-5C|31:192.168.14.45 00-30-67-74-7E-45|31:192.168.14.56 B0-48-7A-F4-27-C5|31:192.168.14.57 00-25-22-52-37-4D|31:192.168.14.58 00-25-22-40-64-35|31:192.168.14.60 00-13-77-9F-82-EB|31:192.168.14.61 B0-48-7A-DB-D2-D3|31:192.168.14.62 00-E0-4C-19-0E-D6|31:192.168.14.66 00-E0-4D-41-C8-01|31:192.168.14.68 10-78-D2-D4-5E-D1|31:192.168.14.70 00-24-54-6A-25-8E|31:192.168.14.74 88-AE-1D-2B-6D-6A|31:192.168.14.75 00-16-17-B7-45-18|31:192.168.14.77 00-25-22-76-78-C6|31:192.168.14.86 00-9C-02-1B-0C-D4|31:192.168.14.87 60-EB-69-60-0F-21|31:192.168.14.90 00-E0-4C-7E-62-47|31:192.168.14.93 BC-AE-C5-D1-44-C7|31:192.168.14.94 00-18-F3-6A-D8-2C|31:192.168.14.95 00-26-22-D2-56-87|31:192.168.14.96 00-E0-4D-85-24-35|31:192.168.14.98 00-0B-6A-59-25-DA|31:192.168.14.99 00-1F-C6-F1-4F-02|32:192.168.14.102 90-F6-52-A9-CA-3D|32:192.168.14.107 00-25-22-94-5F-94|32:192.168.14.109 00-1B-B9-9A-41-F0|32:192.168.14.115 B8-A3-86-0B-BA-BD|32:192.168.14.117 00-30-4F-5B-BD-64|32:192.168.14.118 00-24-54-DF-73-B3|32:192.168.14.122 00-25-22-63-F7-A2|32:192.168.14.126 BC-AE-C5-E5-C4-1C|32:192.168.14.127 00-E0-52-B9-84-7E|32:192.168.14.129 F4-EC-38-EE-F9-69|32:192.168.14.131 CC-B2-55-93-BB-49|32:192.168.14.141 00-24-54-EC-87-1C|32:192.168.14.143 14-DA-E9-6C-86-53|32:192.168.14.153 00-1F-C6-26-DC-E4|32:192.168.14.154 00-19-DB-D8-5D-61|32:192.168.14.155 B8-70-F4-0F-3E-5B|32:192.168.14.157 8C-89-A5-66-BE-F1|32:192.168.14.159 90-F6-52-2F-41-43|32:192.168.14.161 1C-6F-65-FA-56-2F|32:192.168.14.169 00-24-54-0D-27-86|32:192.168.14.171 00-25-22-01-2A-AB|32:192.168.14.174 1C-C1-DE-98-A3-5B|32:192.168.14.175 00-1D-92-51-77-F6|32:192.168.14.176 F8-D1-11-CF-0F-97|32:192.168.14.178 F0-DE-F1-8D-AA-E5|32:192.168.14.179 00-8A-8D-8D-92-8F|32:192.168.14.180 00-24-54-CF-A0-37|32:192.168.14.252 48-5B-39-2C-7E-89|32:192.168.14.253 14-DA-E9-A3-C0-04|0:|
ScrollBars=2
AddHint(16,10,133,13,@Hint)
}
Add(Memo,10573632,420,266)
{
@Hint=#15:Основной список|
Left=250
Top=40
Width=235
Height=445
FileName="Base14.txt"
Strings=#30:192.168.14.2 00-0F-EA-62-31-0B|30:192.168.14.5 00-27-19-C0-27-85|30:192.168.14.6 B0-48-7A-DC-CC-29|31:192.168.14.10 C8-3A-35-38-DF-88|31:192.168.14.11 00-25-22-8A-0E-10|31:192.168.14.12 F4-EC-38-D1-4B-1F|31:192.168.14.15 00-02-DD-60-1E-DA|31:192.168.14.18 00-1D-7D-E5-28-60|31:192.168.14.24 00-25-22-3D-0C-FB|31:192.168.14.25 00-13-77-3C-78-97|31:192.168.14.26 00-0D-9D-5D-69-E0|31:192.168.14.27 00-1F-C6-C8-BD-E6|31:192.168.14.32 00-13-8F-C6-D2-10|31:192.168.14.33 90-F6-52-6D-12-07|31:192.168.14.36 20-CF-30-B4-6B-B1|31:192.168.14.37 00-E0-4C-4D-0F-85|31:192.168.14.39 54-E6-FC-A1-93-43|31:192.168.14.41 00-A1-B0-11-14-5C|31:192.168.14.44 88-AE-1D-79-89-88|31:192.168.14.48 14-DA-E9-5C-DC-73|31:192.168.14.50 00-25-22-34-C4-DB|31:192.168.14.51 88-AE-1D-C9-06-6A|31:192.168.14.52 00-21-91-3D-E9-C3|31:192.168.14.55 00-1B-B9-DD-66-BF|31:192.168.14.56 B0-48-7A-F4-27-C5|31:192.168.14.57 00-25-22-52-37-4D|31:192.168.14.58 00-25-22-40-64-35|31:192.168.14.60 00-E0-4D-3C-A7-94|31:192.168.14.61 B0-48-7A-DB-D2-D3|31:192.168.14.62 00-E0-4C-19-0E-D6|31:192.168.14.66 00-E0-4D-41-C8-01|31:192.168.14.67 28-10-7B-EF-FF-CB|31:192.168.14.68 10-78-D2-D4-5E-D1|31:192.168.14.69 00-1D-92-A0-A7-81|31:192.168.14.70 00-24-54-6A-25-8E|31:192.168.14.72 50-E5-49-D1-AB-F0|31:192.168.14.73 00-13-D4-3B-5A-CC|31:192.168.14.74 88-AE-1D-2B-6D-6A|31:192.168.14.75 00-16-17-B7-45-18|31:192.168.14.76 00-E0-4D-8A-0E-28|31:192.168.14.77 00-25-22-76-78-C6|31:192.168.14.78 00-1B-22-07-3A-64|31:192.168.14.82 C8-60-00-28-D2-8D|31:192.168.14.83 1C-6F-65-77-16-C9|31:192.168.14.84 1C-6F-65-47-0B-12|31:192.168.14.86 00-9C-02-1B-0C-D4|31:192.168.14.90 00-E0-4C-7E-62-47|31:192.168.14.91 00-30-67-2F-8D-C9|31:192.168.14.93 BC-AE-C5-D1-44-C7|31:192.168.14.94 00-18-F3-6A-D8-2C|31:192.168.14.95 00-26-22-D2-56-87|31:192.168.14.96 48-5B-39-E9-81-8C|31:192.168.14.97 00-1E-EC-52-E7-DC|31:192.168.14.98 00-0B-6A-59-25-DA|32:192.168.14.102 90-F6-52-A9-CA-3D|32:192.168.14.105 00-E0-4D-63-F9-05|32:192.168.14.107 00-25-22-94-5F-94|32:192.168.14.108 00-1D-0F-C0-9D-26|32:192.168.14.109 00-1B-B9-9A-41-F0|32:192.168.14.111 00-E0-52-92-76-8E|32:192.168.14.113 F4-6D-04-D7-96-5E|32:192.168.14.115 B8-A3-86-0B-BA-BD|32:192.168.14.118 00-24-54-DF-73-B3|32:192.168.14.122 00-25-22-63-F7-A2|32:192.168.14.123 00-E0-4D-42-06-5E|32:192.168.14.126 BC-AE-C5-E5-C4-1C|32:192.168.14.127 00-E0-52-B9-84-7E|32:192.168.14.129 F4-EC-38-EE-F9-69|32:192.168.14.131 CC-B2-55-93-BB-49|32:192.168.14.137 00-30-67-A4-40-D8|32:192.168.14.140 E8-11-32-78-9C-EE|32:192.168.14.141 00-24-54-EC-87-1C|32:192.168.14.147 B8-70-F4-DF-19-10|32:192.168.14.152 00-25-22-CE-7E-D4|32:192.168.14.153 00-1F-C6-26-DC-E4|32:192.168.14.154 00-19-DB-D8-5D-61|32:192.168.14.155 B8-70-F4-0F-3E-5B|32:192.168.14.159 90-F6-52-2F-41-43|32:192.168.14.160 B8-70-F4-47-14-32|32:192.168.14.161 1C-6F-65-FA-56-2F|32:192.168.14.162 6C-62-6D-0B-00-F6|32:192.168.14.163 B8-70-F4-DC-4B-A7|32:192.168.14.169 00-24-54-0D-27-86|32:192.168.14.171 00-25-22-01-2A-AB|32:192.168.14.172 54-42-49-FA-F6-5F|32:192.168.14.174 1C-C1-DE-98-A3-5B|32:192.168.14.175 00-1D-92-51-77-F6|32:192.168.14.176 F8-D1-11-CF-0F-97|32:192.168.14.178 F0-DE-F1-8D-AA-E5|0:|
ScrollBars=2
AddHint(15,3,104,13,@Hint)
}
Add(ArrayEnum,16381520,210,203)
{
link(onItem,4888716:doSplit,[(251,209)(251,321)])
link(onEndEnum,11293015:doData,[])
link(Array,3022806:Array,[])
}
Add(Hub,15105812,168,196)
{
link(onEvent1,3015017:doText,[(197,202)(197,139)])
link(onEvent2,16381520:doEnum,[])
}
Add(StrList,3015017,280,112)
{
@Hint=#28:Удаляем из списка совпадения|
Point(doGetIndex)
Point(onGetIndex)
link(Str,3022806:Text,[(286,100)(202,100)])
link(onGetIndex,3015017:doDelete,[(326,125)(326,90)(268,90)(268,132)])
AddHint(17,21,178,13,@Hint)
}
Add(Memo,2594129,336,189)
{
@Hint=#19:Всё что не совпало.|
Left=495
Top=40
Width=220
Height=445
Font=[MS Sans Serif,9,0,0,1]
ScrollBars=2
AddHint(18,12,116,13,@Hint)
}
Add(StrMask,8416881,497,308)
{
Point(doMask)
link(onTrue,13809677:doSplit,[])
}
Add(FormatStr,1852423,343,315)
{
@Hint=#23:Проверяем совпадения IP|
DataCount=1
Mask="%1 *"
link(onFString,8337336:doEvent1,[])
AddHint(-88,-34,149,13,@Hint)
}
Add(Hub,8337336,399,315)
{
link(onEvent1,8416881:doMask,[])
link(onEvent2,4501908:doEnum,[])
}
Add(ArrayEnum,4501908,434,322)
{
link(onItem,8416881:doCompare,[(478,328)(478,314)])
link(Array,10573632:Array,[])
}
Add(MultiStrData,4888716,294,315)
{
Char=" "
Count=1
link(onPart1,1852423:doString,[])
}
Add(DoData,11293015,280,210)
{
link(onEventData,2594129:doText,[])
link(Data,3015017:Text,[])
}
Add(MultiStrData,13809677,546,315)
{
Char=" "
From=1
Count=1
link(onPart1,7080035:doCompare,[])
}
Add(If_else,7080035,602,315)
{
Type=5
link(onTrue,2987941:doString,[])
link(onFalse,15873736:doData,[(656,328)(656,377)])
link(Op1,4888716:RemaindStr,[(608,307)(591,307)(591,382)(300,382)])
}
Add(Memo,687613,721,315)
{
@Hint=#29:Одинаковый IP, но разный Mac.|
Left=725
Top=40
Width=425
Height=445
Font=[MS Sans Serif,9,0,0,1]
ScrollBars=2
AddHint(14,7,178,13,@Hint)
}
Add(FormatStr,2987941,665,315)
{
Mask="%1 < - > %2"
link(onFString,687613:doAdd,[])
link(Str1,4501908:Item,[(671,301)(536,301)(536,366)(440,366)])
link(Str2,2072084:Var2,[])
}
Add(Label,296031,77,308)
{
Left=20
Top=15
Width=114
Height=17
Caption="Загружаемый список"
}
Add(Label,3933459,91,315)
{
Left=255
Top=15
Width=93
Height=17
Caption="Основной список"
}
Add(Label,1588732,105,322)
{
Left=500
Top=15
Width=169
Height=17
Caption="Отсутствуют в основном списке"
}
Add(Label,15627645,119,329)
{
Left=730
Top=15
Width=164
Height=17
Caption="Одинаковый IP, но разный Mac"
}
Add(DoData,15873736,756,371)
{
link(onEventData,3015017:doGetIndex,[(802,377)(802,179)(275,179)(275,160)])
link(Data,2072084:Var3,[(762,252)])
}
Add(GetDataEx,2072084,672,247)
{
Angle=3
link(Data,16381520:Item,[(216,252)])
}