HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуДва списка , нахождение не совпадающих строк. ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 157
Рейтинг: 1
#1: 2012-09-19 11:39:30 ЛС | профиль | цитата
Есть два списка один с которым сравнивают(основной) второй который просматривают в поисках совпадения с первым списком , формат списоков вот такой :

192.168.14.2 00-0F-EA-62-31-0B
192.168.14.5 00-27-19-C0-27-85
192.168.14.6 B0-48-7A-DC-CC-29

ip адрес через пробел идет мак адрес , вот написал схему но чет она не работает помогите разобраться ...

code_29104.txt

сначала сравниваем ip адрес и если он совпадает с основным списком сравниваем тогда мак адрес повторяется или нет если ip или мак адрес не совпадают все это дело записывается отдельно в список.
карма: 0

0
файлы: 1code_29104.txt [7.3KB] [91]
Ответов: 1536
Рейтинг: 176
#2: 2012-09-19 11:52:25 ЛС | профиль | цитата
Мартынов, так?
Add(MainForm,15293196,546,294)
{
 Width=1347
 Height=662
}
Add(Memo,4589503,399,133)
{
 @Hint=#19:Загружаеммый список|
 Left=15
 Top=40
 Width=350
 Height=495
 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:|
 AddHint(2,-81,133,13,@Hint)
}
Add(Memo,4861687,574,126)
{
 @Hint=#15:Основной список|
 Left=385
 Top=40
 Width=400
 Height=505
 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(38,-43,104,13,@Hint)
}
Add(Button,4594823,301,217)
{
 Left=30
 Top=555
 Width=540
 Height=70
 link(onClick,2570646:doStart,[])
}
Add(ArrayEnum,11886490,413,217)
{
 link(onItem,9992944:doEvent1,[])
 link(Array,4589503:Array,[])
}
Add(ArrayEnum,316350,588,217)
{
 link(onItem,7790496:doSplit,[])
 link(Array,6968832:Var2,[])
}
Add(Memo,10056972,938,217)
{
 Left=865
 Top=65
 Width=315
 Height=495
 Font=[MS Sans Serif,9,0,0,1]
 ScrollBars=2
 link(Str,11886490:Item,[(944,205)(922,205)(922,280)(419,280)])
}
Add(Hub,9992944,455,217)
{
 link(onEvent1,12238873:doSplit,[])
 link(onEvent2,15293196:doCaption,[(496,230)(496,300)])
}
Add(Thread,2570646,364,217)
{
 FastStop=0
 link(onExec,11886490:doEnum,[])
}
Add(MultiStrData,7790496,665,217)
{
 Char=" "
 Count=1
 link(onPart1,14348415:doCompare,[])
}
Add(If_else,14348415,714,217)
{
 link(onTrue,6102762:doEnum,[])
 link(Op1,12238873:Part1,[(720,205)(704,205)(704,267)(524,267)])
}
Add(MultiStrPart,12238873,518,217)
{
 Char=" "
 link(onSplit,316350:doEnum,[])
}
Add(ArrayEnum,6102762,777,217)
{
 link(onItem,16477902:doSplit,[])
 link(Array,6968832:Var3,[(783,194)])
}
Add(GetDataEx,6968832,588,189)
{
 link(Data,4861687:Array,[])
}
Add(If_else,2826146,882,217)
{
 link(onTrue,10056972:doAdd,[])
 link(Op1,12238873:Part2,[(888,205)(868,205)(868,256)(531,256)])
}
Add(MultiStrData,16477902,826,217)
{
 Char=" "
 From=1
 Count=1
 link(onPart1,2826146:doCompare,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 157
Рейтинг: 1
#3: 2012-09-19 12:00:15 ЛС | профиль | цитата
ser_davkin, спасибо хорошая реализация нужно будет взять на заметку но это чуть не то что нужно , в твоей схеме находит те записи которые у же есть в основном спике а нам нужно увидеть что как раз не соответствует этому списку будь то ip адрес или MAC адрес , тоесть основной список это фильтр того что нам не нужно видеть при выходе
карма: 0

0
Ответов: 1536
Рейтинг: 176
#4: 2012-09-19 12:17:16 ЛС | профиль | цитата
Мартынов, вот.
Add(MainForm,15293196,343,105)
{
 Width=1347
 Height=662
}
Add(Button,4594823,280,175)
{
 Left=30
 Top=555
 Width=540
 Height=70
 link(onClick,2570646:doStart,[])
}
Add(Thread,2570646,343,175)
{
 FastStop=0
 link(onExec,15105812:doEvent1,[])
}
Add(Memo,3022806,427,91)
{
 @Hint=#19:Загружаеммый список|
 Left=15
 Top=40
 Width=350
 Height=495
 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:|
 AddHint(-85,-32,133,13,@Hint)
}
Add(Memo,10573632,504,91)
{
 @Hint=#15:Основной список|
 Left=385
 Top=40
 Width=400
 Height=505
 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(-17,-32,104,13,@Hint)
}
Add(ArrayEnum,16381520,441,182)
{
 link(onItem,3015017:doGetIndex,[(495,188)(495,202)])
 link(Array,3022806:Array,[])
}
Add(Hub,15105812,399,175)
{
 link(onEvent1,3015017:doText,[])
 link(onEvent2,16381520:doEnum,[])
}
Add(StrList,3015017,504,154)
{
 Point(doGetIndex)
 Point(onGetIndex)
 link(Str,10573632:Text,[])
 link(onGetIndex,7262403:doCompare,[])
}
Add(If_else,7262403,553,161)
{
 Op2=Integer(-1)
 link(onTrue,2594129:doAdd,[])
}
Add(Memo,2594129,609,161)
{
 Left=865
 Top=65
 Width=315
 Height=495
 Font=[MS Sans Serif,9,0,0,1]
 ScrollBars=2
 link(Str,16381520:Item,[(615,152)(597,152)(597,227)(447,227)])
}

Если в условии поставить неравенство (<>-1), то в список будут загоняться совпадения.
Первую мою схему можешь выбросить.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
Голосовали:Мартынов
Ответов: 157
Рейтинг: 1
#5: 2012-09-19 12:18:24 ЛС | профиль | цитата
ser_davkin, спасибо ))) все оказалось так просто ))) схема проста но если например ip адрес сменит мак адрес то прийдется глазами пересматривать весь список , может быть есть еще какой подход ?
карма: 0

0
Ответов: 1536
Рейтинг: 176
#6: 2012-09-19 12:25:00 ЛС | профиль | цитата
Мартынов писал(а):
но если например ip адрес сменит мак адрес то прийдется глазами пересматривать весь список
Да, всё правильно, позже набрасаю схему.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 157
Рейтинг: 1
#7: 2012-09-19 12:52:43 ЛС | профиль | цитата
ser_davkin, спасбо.
карма: 0

0
Ответов: 1536
Рейтинг: 176
#8: 2012-09-19 13:38:03 ЛС | профиль | цитата
Мартынов писал(а):
сначала сравниваем ip адрес и если он совпадает с основным списком сравниваем тогда мак адрес повторяется или нет если ip или мак адрес не совпадают все это дело записывается отдельно в список.

code_29106.txt
Но если список будет больше, ждать придётся дольше. (звучит сказочно )
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 1code_29106.txt [8.3KB] [418]
Ответов: 16884
Рейтинг: 1239
#9: 2012-09-19 13:59:44 ЛС | профиль | цитата
Мартынов, ещё один вариант
code_29108.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_29108.txt [1.4KB] [107]
Ответов: 157
Рейтинг: 1
#10: 2012-09-19 15:47:12 ЛС | профиль | цитата
Tad, спасибо ))
ser_davkin, сидел смотрел схему ))) все вроде как бы хорошо но обьясни в чем суть , последняя схема это усложненный вариант первой схемы , тоесть возможность узнать изменился ли мак адрес на конкретном ip адресе у нас нет ))) все тот же список с теме же адресами ))) зачем тогда проверять MAC ?
карма: 0

0
Ответов: 1536
Рейтинг: 176
#11: 2012-09-19 16:32:10 ЛС | профиль | цитата
Первая предложенная мной схема способна лишь выдать одинаковые строки как по IP так и по Mac. Но, она вылезла, исходя из твоего построения схемы предложенная в качестве исходной (для лучшего понимания).
Вторая тоже ищет одинаковые строки как по IP так и по Mac, и исключает их из загружаемого списка. А выдаёт уже несуществующие строки в основном списке. Производительность её значительно выше. Этот вариант, исходя из моего опыта.
А вот третья схема действительно соответствует поставленной тобой задаче.
Мартынов писал(а):
сначала сравниваем ip адрес и если он совпадает с основным списком сравниваем тогда мак адрес повторяется или нет если ip или мак адрес не совпадают все это дело записывается отдельно в список.
Но она отнимает много процессорного времени
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 157
Рейтинг: 1
#12: 2012-09-19 17:11:22 ЛС | профиль | цитата
ser_davkin писал(а):
сначала сравниваем ip адрес и если он совпадает с основным списком сравниваем тогда мак адрес повторяется или нет если ip или мак адрес не совпадают все это дело записывается отдельно в список.

Да да , все верно но .... в этой схеме нельзя пометить что вот этот адрес IP имеет другой MAC адрес в Загружаемом списке по отножения к Базовому , да схема медленная но это не имеет значения.
карма: 0

0
Ответов: 1536
Рейтинг: 176
#13: 2012-09-19 17:53:01 ЛС | профиль | цитата
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)])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 1code_29112.txt [9.2KB] [375]
Ответов: 157
Рейтинг: 1
#14: 2012-09-19 21:13:52 ЛС | профиль | цитата
ser_davkin, спасибо ))) за хороший пример ! буду знать как теперь пользоваться индексами ))) жаль что в Hiasm компоненты для сортировки не очень хорошие в питоне все на много проще.
Скажите а есть в Hiasm что то на подобии словарей как в Питоне ?
карма: 0

0
Ответов: 1173
Рейтинг: 49
#15: 2012-09-19 22:39:58 ЛС | профиль | цитата
[offtop]
Мартынов писал(а):
в питоне все на много проще
Разные вещи сравниваете, товарищ. [/offtop]
карма: 0

0
ФорумыПомощь по пакетуДва списка , нахождение не совпадающих строк. ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика