[RegExp] выборка имен принтеров

[F9]

Снова привет.
Продолжаю осваивать RegExp :whistle:

Как из текста (имя принтера) получить только определенные принтеры
например, имеется набор принтеров:

Имя принтера: Авто EZ2 на ZAKAZ, Имя порта: \\ZAKAZ\EZ2
Имя принтера: Авто BZB на ZAV, Имя порта: \\ZAV\BZB
Имя принтера: Microsoft XPS Document Writer, Имя порта: XPSPort:
Имя принтера: \\KASSA3\HP LaserJet 1022, Имя порта: USB001
Имя принтера: \\ZAKAZ\Zebra LP2824 Plus - ZPL, Имя порта: LPT1:
Имя принтера: \\ZAV\HP LaserJet P2035, Имя порта: USB001

Как мне выбрать только те, имя которых содержит:
BZB, EZ2,EZ-2, Zebra, Zebra LP2824, Zebra2824

 

[inververs]

Имя принтера: ([^,]*(?:BZB|EZ2|EZ-2|Zebra|Zebra LP2824|Zebra2824)[^,]*)

 

[Alofa]

#include <Array.au3>
$sText = 'Имя принтера: Авто EZ2 на ZAKAZ, Имя порта: \\ZAKAZ\EZ2' & @CRLF & _
		'Имя принтера: Авто BZB на ZAV, Имя порта: \\ZAV\BZB' & @CRLF & _
		'Имя принтера: Microsoft XPS Document Writer, Имя порта: XPSPort:' & @CRLF & _
		'Имя принтера: \\KASSA3\HP LaserJet 1022, Имя порта: USB001' & @CRLF & _
		'Имя принтера: \\ZAKAZ\Zebra LP2824 Plus - ZPL, Имя порта: LPT1:' & @CRLF & _
		'Имя принтера: \\ZAV\HP LaserJet P2035, Имя порта: USB001' & @CRLF & _ 
		'Имя принтера: LaLaLa\EZ-2 Plus, Имя порта: USB001'
		
$asText = StringRegExp($sText, '.+?(?:BZB|EZ2|EZ-2|Zebra).+', 3)
_ArrayDisplay($asText, 'Вариант 1')

... имя которых содержит:
BZB, EZ2,EZ-2, Zebra, Zebra LP2824, Zebra2824

Имена "Zebra LP2824" и "Zebra2824" не учитываются в поиске, потому что содержат общее слово "Zebra".

 

[F9]

#include <Array.au3>
$sText = 'Имя принтера: Авто EZ2 на ZAKAZ, Имя порта: \\ZAKAZ\EZ2' & @CRLF & _
		'Имя принтера: Авто BZB на ZAV, Имя порта: \\ZAV\BZB' & @CRLF & _
		'Имя принтера: Microsoft XPS Document Writer, Имя порта: XPSPort:' & @CRLF & _
		'Имя принтера: \\KASSA3\HP LaserJet 1022, Имя порта: USB001' & @CRLF & _
		'Имя принтера: \\ZAKAZ\Zebra LP2824 Plus - ZPL, Имя порта: LPT1:' & @CRLF & _
		'Имя принтера: \\ZAV\HP LaserJet P2035, Имя порта: USB001' & @CRLF & _ 
		'Имя принтера: LaLaLa\EZ-2 Plus, Имя порта: USB001'
		
$asText = StringRegExp($sText, '.+?(?:BZB|EZ2|EZ-2|Zebra).+', 3)
_ArrayDisplay($asText, 'Вариант 1')

... имя которых содержит:
BZB, EZ2,EZ-2, Zebra, Zebra LP2824, Zebra2824

Имена "Zebra LP2824" и "Zebra2824" не учитываются в поиске, потому что содержат общее слово "Zebra".

вывод инфы был в таком виде:

$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
For $objItem in $colItems
	ConsoleWrite ( "Имя принтера: " & $objItem.Caption & ", Имя порта: " & $objItem.PortName & @CRLF)
Next

Наверно поэтому паттерн

'.+?(?:BZB|EZ2|EZ-2|Zebra).+'

не выбирает из объекта $objItem.Caption, который содержит

Microsoft XPS Document Writer
HP LaserJet 5200 Series PCL 5
BZB

 

[Alofa]

F9, какой вопрос - такой ответ.
А в вашем случае, вообще лучше делать не так.

 

[F9]

F9, какой вопрос - такой ответ.
А в вашем случае, вообще лучше делать не так.

А что не так в моем случае? Поясните, пожалуйста, что имели ввиду