VBScript совпадение в матче

Question

Добрый день всем.

Я выполняю некоторые команды Cisco на маршрутизаторе. Я записываю вывод в массив. Я хочу использовать Regex, чтобы найти определенную информацию в выводе. Регулярное выражение работает в том смысле, что оно находит строку, содержащую его, однако не хватает уникальной информации, с которой я могу создать свое регулярное выражение, поэтому я получаю больше, чем хочу. Вот вывод:

 ROUTERNAME#sh diag 
Slot 0:
        C2821 Motherboard with 2GE and integrated VPN Port adapter, 2 ports
        Port adapter is analyzed 
        Port adapter insertion time 18w4d ago
        Onboard VPN             : v2.3.3
        EEPROM contents at hardware discovery:
        PCB Serial Number        : FOC1XXXXXXXXX
        Hardware Revision        : 1.0
        Top Assy. Part Number    : 800-26921-04
        Board Revision           : E0
        Deviation Number         : 0
        Fab Version              : 03
        RMA Test History         : 00
        RMA Number               : 0-0-0-0
        RMA History              : 00
        Processor type           : 87 
        Hardware date code       : 20090816
        Chassis Serial Number    : FTXXXXXXXXXX
        Chassis MAC Address      : 0023.ebf4.5480
        MAC Address block size   : 32
        CLEI Code                : COMV410ARA
        Product (FRU) Number     : CISCO2821      
        Part Number              : 73-8853-05
        Version Identifier       : V05 
        EEPROM format version 4
        EEPROM contents (hex):
          0x00: 04 FF C1 8B 46 4F 43 31 33 33 33 31 4E 36 34 40
          0x10: 03 E8 41 01 00 C0 46 03 20 00 69 29 04 42 45 30
          0x20: 88 00 00 00 00 02 03 03 00 81 00 00 00 00 04 00
          0x30: 09 87 83 01 32 8F C0 C2 8B 46 54 58 31 33 33 36
          0x40: 41 30 4C 41 C3 06 00 23 EB F4 54 80 43 00 20 C6
          0x50: 8A 43 4F 4D 56 34 31 30 41 52 41 CB 8F 43 49 53
          0x60: 43 4F 32 38 32 31 20 20 20 20 20 20 82 49 22 95
          0x70: 05 89 56 30 35 20 D9 02 40 C1 FF FF FF FF FF FF

AIM Module in slot: 0
        Hardware Revision        : 1.0
        Top Assy. Part Number    : 800-27059-01
        Board Revision           : A0
        Deviation Number         : 0-0
        Fab Version              : 02
        PCB Serial Number        : FOXXXXXXXXX
        RMA Test History         : 00
        RMA Number               : 0-0-0-0
        RMA History              : 00
        Product (FRU) Number     : AIM-VPN/SSL-2
        Version Identifier       : V01
        EEPROM format version 4
        EEPROM contents (hex):
          0x00: 04 FF 40 04 F4 41 01 00 C0 46 03 20 00 69 B3 01
          0x10: 42 41 30 80 00 00 00 00 02 02 C1 8B 46 4F 43 31
          0x20: 33 33 31 36 39 59 55 03 00 81 00 00 00 00 04 00
          0x30: CB 8D 41 49 4D 2D 56 50 4E 2F 53 53 4C 2D 32 89
          0x40: 56 30 31 00 D9 02 40 C1 FF FF FF FF FF FF FF FF
          0x50: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
          0x60: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
          0x70: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF

То, что я хочу зафиксировать, это номер модели, который содержится в разделе «Номер продукта (FRU):». В этом примере «CISCO2821». Я хочу вывести или MsgBox только CISCO2821, хотя другие возможности могут быть «CISCO2911 / K9» или что-то подобное.

Это шаблон регулярного выражения, который я использую:

Product\s\(FRU\)\sNumber\s*:\s*CIS.*

Используя инструмент тестирования регулярных выражений, я смог сопоставить всю строку, содержащую то, что я хочу, но я хочу написать только номер модели.

Я смотрел на «итрим» и «ритрим», но не думал, что это могло бы сделать.

Любая помощь будет принята с благодарностью.

Привет.

Answer 1

Инвестируйте в 2 маленькие вспомогательные функции:

Function qq(sT) : qq = """" & sT & """" : End Function

Function newRE(sP, sF)
  Set newRE = New RegExp
  newRE.Pattern = sP
  newRE.Global     = "G" = Mid(sF, 1, 1)
  newRE.IgnoreCase = "I" = Mid(sF, 2, 1)
  newRE.MultiLine  = "M" = Mid(sF, 3, 1)
End Function

и используйте

  ' 3 ways to skin this cat
  Dim sInp : sInp = Join(Array( _
      "CLEI Code: COMV410ARA" _
    , "Product (FRU) Number : CISCO2821" _
    , "Part Number:73-8853-05" _
  ), vbCrLf) ' or vbLf, vbCr 
  WScript.Echo sInp
  ' (1) just search for CIS + sequence of non-spaces - risky if e.g. CLEI Code starts with CIS
  WScript.Echo 0, "=>", qq(newRE("CIS\S+", "gim").Execute(sInp)(0).Value)
  ' (2) use a capture/group (idea stolen from skyburner; just 'ported' to VBScript)
  WScript.Echo 1, "=>", qq(newRE("\(FRU\)[^:]+:\s(\S+)", "gim").Execute(sInp)(0).Value)
  WScript.Echo 2, "=>", qq(newRE("\(FRU\)[^:]+:\s(\S+)", "gim").Execute(sInp)(0).SubMatches(0))
  ' (3) generalize & use a Dictionary
  Dim dicProps : Set dicProps = CreateObject("Scripting.Dictionary")
  Dim oMT
  For Each oMT in newRe("^\s*(.+?)\s*:\s*(.+?)\s*$", "GiM").Execute(sInp)
      Dim oSM : Set oSM = oMT.SubMatches
      dicProps(oSM(0)) = oSM(1)
  Next
  Dim sName
  For Each sName In dicProps.Keys
      WScript.Echo qq(sName), "=>", qq(dicProps(sName))
  Next

чтобы получить этот вывод:

CLEI Code: COMV410ARA
Product (FRU) Number : CISCO2821
Part Number:73-8853-05
0 => "CISCO2821"
1 => "(FRU) Number : CISCO2821"
2 => "CISCO2821"
"CLEI Code" => "COMV410ARA"
"Product (FRU) Number" => "CISCO2821"
"Part Number" => "73-8853-05"

и - я надеюсь - немного пищи для размышлений.

Важно

1. (простой) шаблон соответствует / находит некоторую часть ввода
2. захватывает / группы / подсовпадения / скобки вырезают части из этого совпадения
3. иногда имеет дело с обобщенной версией проблемы, дает Вы больше выигрываете за меньшую работу

Answer 2

Хорошо, это в VB.NET, а не в VBScript, но это может помочь вам в этом:

Dim RegexObj As New Regex("Product\s\(FRU\)\sNumber[\s\t]+:\s(CIS.+?)$", RegexOptions.IgnoreCase Or RegexOptions.Multiline)
ResultString = RegexObj.Match(SubjectString).Groups(1).Value