Считать из файла MAC-адреса, и добавить их в список без повторов

@JuliaDulceFlor · Регистрация: 28.09.2010

Студворк — интернет-сервис помощи студентам

есть файл такого типа:

Кликните здесь для просмотра всего текста

10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,4,10.0.40.25,5,5 ,30,00-20-B0-7F-79-50:ASU Corp,31,44-6D-57-0D-35-7A,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.40.25,4116,0,4128,ap-8r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053460,4127,5,4149,wi-fi policy,4136,1,4142,0
10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053460,27,30,4149,wi-fi policy,4108,10.0.40.25,4116,0,4128,ap-8r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,4127,5,4136,11,4142 ,0
10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,4,10.0.40.25,5,5 ,30,00-20-B0-7F-79-50:ASU Corp,31,44-6D-57-0D-35-7A,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.40.25,4116,0,4128,ap-8r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053461,4127,5,4149,wi-fi policy,4136,1,4142,0
10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053461,27,30,4108,10.0.40.25,4116,0,412 8,ap-8r-hk,4149,wi-fi policy,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,4127,5,4136,11,4142 ,0
10.0.48.19,STUD\Emelyanov.121,03/01/2013,00:04:18,IAS,SRV15,4,10.0.48.19,5,4 ,30,14-D6-4D-D0-EC-88:ASU Corp,31,74-DE-2B-DF-6F-E9,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.48.19,4116,0,4128,ap-4r-h2,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\Emelyanov .121,4130,STUD\Emelyanov.121,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053548,4127,5,4149,wi-fi policy,4136,1,4142,0
10.0.48.19,STUD\Emelyanov.121,03/01/2013,00:04:18,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053548,27,30,4149,wi-fi policy,4108,10.0.48.19,4116,0,4128,ap-4r-h2,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\Emelyanov .121,4130,STUD\Emelyanov.121,4127,5,4136 ,11,4142,0
10.0.40.22,stud\vaal.763,03/01/2013,00:04:41,IAS,SRV15,4,10.0.40.22,5,1 0,30,00-20-B0-7F-7A-98:ASU Corp,31,94-39-E5-BA-20-C9,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.40.22,4116,0,4128,ap-7r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\vaal.763, 4130,STUD\vaal.763,4149,wi-fi policy,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053608,8153,0,8111,0,4127,11,4136,1,414 2,0
10.0.40.22,stud\vaal.763,03/01/2013,00:04:41,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053608,27,60,8153,0,8111,0,4127,11,4108 ,10.0.40.22,4116,0,4128,ap-7r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\vaal.763, 4130,STUD\vaal.763,4149,wi-fi policy,4136,11,4142,0

нужно выдернуть МАС-адреса (те, что выделила жирным шрифтом) и добавить их в список, желательно без повторов. Что-то совсем не пойму как.

@S_el · 28.12.2014, 20:57

Сообщение от JuliaDulceFlor

нужно выдернуть МАС-адреса (те, что выделила жирным шрифтом) и добавить их в список, желательно без повторов. Что-то совсем не пойму как.

Показывайте наработки.

P.S Вы уверены,что Erlang самый подходящий ЯП для этой задачи?

@Catstail · 30.12.2014, 13:23

Здесь стоит применить regexp

Добавлено через 53 минуты
Если работаете в Windows, то выделение mac-адресов решается на VBScript элементарно:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    Set objRegExp = CreateObject("VBScript.RegExp")
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    Set File = FSO.GetFile("tst.txt")
    Set tinp = File.OpenAsTextStream(1)
    Set tout = FSO.CreateTextFile("mac.txt")
 
    objRegExp.Pattern =  "[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]-"+ _
                         "[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]-"+ _
                         "[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]"
                         
    objRegExp.Global = True
 
    While Not tinp.AtEndOfStream
          stri=tinp.ReadLine()
          'msgbox stri
          Set objMatches = objRegExp.Execute(Stri)
          For i=0 To objMatches.Count-1
              Set objMatch = objMatches.Item(i)
              tout.Writeline objMatch.Value
          Next
    Wend
 
    tinp.Close
    tout.Close
 
    MsgBox "OK"

Вот результат (файл mac.txt):

Code
1
2
3
4
5
6
7
8
00-20-B0-7F-79-50
44-6D-57-0D-35-7A
00-20-B0-7F-79-50
44-6D-57-0D-35-7A
14-D6-4D-D0-EC-88
74-DE-2B-DF-6F-E9
00-20-B0-7F-7A-98
94-39-E5-BA-20-C9

@S_el · 02.01.2015, 19:32

Сообщение от Catstail

Если работаете в Windows, то выделение mac-адресов решается на VBScript элементарно:

Мне захотелось реализовать эту задачу на Erlang и вот,что вышло:

Code
1
2
3
4
5
6
{ok,Bin} = file:read_file("1.txt").
Str=binary_to_list(Bin).
{_,Nw}=re:run(Str,"[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]-[0-9A-Fa-f][0-9A-Fa-f]",[global]).
Print = fun R([],Str)->io:format("end~n");
R([X|T],Str)->io:format("~p~n",[string:substr(Str,element(1,lists:nth(1,X))+1,element(2,lists:nth(1,X)))]),R(T,Str) end.
Print(Nw,Str).

В результате:

Code
1
2
3
4
5
6
7
8
"00-20-B0-7F-79-50"
"44-6D-57-0D-35-7A"
"00-20-B0-7F-79-50"
"44-6D-57-0D-35-7A"
"14-D6-4D-D0-EC-88"
"74-DE-2B-DF-6F-E9"
"00-20-B0-7F-7A-98"
"94-39-E5-BA-20-C9"

Всевозможные проверки и вывод в файл не делал,оставил это для ТС.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@JuliaDulceFlor 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 36

	Считать из файла MAC-адреса, и добавить их в список без повторов 28.12.2014, 17:24. Показов 1643. Ответов 3 Метки erlang (Все метки) есть файл такого типа: Кликните здесь для просмотра всего текста 10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,4,10.0.40.25,5,5 ,30,00-20-B0-7F-79-50:ASU Corp,31,44-6D-57-0D-35-7A,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.40.25,4116,0,4128,ap-8r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053460,4127,5,4149,wi-fi policy,4136,1,4142,0 10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053460,27,30,4149,wi-fi policy,4108,10.0.40.25,4116,0,4128,ap-8r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,4127,5,4136,11,4142 ,0 10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,4,10.0.40.25,5,5 ,30,00-20-B0-7F-79-50:ASU Corp,31,44-6D-57-0D-35-7A,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.40.25,4116,0,4128,ap-8r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053461,4127,5,4149,wi-fi policy,4136,1,4142,0 10.0.40.25,stud\popov.513,03/01/2013,00:00:30,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053461,27,30,4108,10.0.40.25,4116,0,412 8,ap-8r-hk,4149,wi-fi policy,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\popov.513 ,4130,STUD\popov.513,4127,5,4136,11,4142 ,0 10.0.48.19,STUD\Emelyanov.121,03/01/2013,00:04:18,IAS,SRV15,4,10.0.48.19,5,4 ,30,14-D6-4D-D0-EC-88:ASU Corp,31,74-DE-2B-DF-6F-E9,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.48.19,4116,0,4128,ap-4r-h2,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\Emelyanov .121,4130,STUD\Emelyanov.121,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053548,4127,5,4149,wi-fi policy,4136,1,4142,0 10.0.48.19,STUD\Emelyanov.121,03/01/2013,00:04:18,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053548,27,30,4149,wi-fi policy,4108,10.0.48.19,4116,0,4128,ap-4r-h2,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\Emelyanov .121,4130,STUD\Emelyanov.121,4127,5,4136 ,11,4142,0 10.0.40.22,stud\vaal.763,03/01/2013,00:04:41,IAS,SRV15,4,10.0.40.22,5,1 0,30,00-20-B0-7F-7A-98:ASU Corp,31,94-39-E5-BA-20-C9,12,1400,61,19,77,CONNECT 54Mbps 802.11g,4108,10.0.40.22,4116,0,4128,ap-7r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\vaal.763, 4130,STUD\vaal.763,4149,wi-fi policy,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053608,8153,0,8111,0,4127,11,4136,1,414 2,0 10.0.40.22,stud\vaal.763,03/01/2013,00:04:41,IAS,SRV15,25,311 1 fe80::c1c2:e42c:9771:7dec 02/06/2013 02:53:01 1053608,27,60,8153,0,8111,0,4127,11,4108 ,10.0.40.22,4116,0,4128,ap-7r-hk,4154,Использовать проверку подлинности Windows для всех пользователей,4155,1,4129,STUD\vaal.763, 4130,STUD\vaal.763,4149,wi-fi policy,4136,11,4142,0 нужно выдернуть МАС-адреса (те, что выделила жирным шрифтом) и добавить их в список, желательно без повторов. Что-то совсем не пойму как. 0

Считать из файла MAC-адреса, и добавить их в список без повторов

Решение