在Access VBA中使用RegExp

时间：2015-09-23 09:42:18

标签： regex vba access-vba

我似乎无法在VBA中使用RegExp函数的语法正确，这就是我所拥有的，任何人都可以告诉我出错的地方或VBA中的一些使用示例。我不明白如何将RegExp找到的匹配项分配到variable或array()。当它遇到RegEx.Execute

时，我得到一个错误，说错误的参数数量 
Dim RegEx As New RegExp
Dim textOrders As String
Dim RawText as String

FileNum = FreeFile()
Open FileName For Input As #FileNum
Do Until EOF(FileNum)
Input #FileNum, ShortText

RawText = RawText & ShortText

loop

With RegEx
    .Global = True
    .MultiLine = False
    .IgnoreCase = True
    .Pattern = ("ORDER NUMBER :\s+[^\s]+\s+Ship Date:\s+[^\s]+\n\n\s+Style Desc : .+\n\s+Linecode : .+\n\s+Qty\s+.+")

End With

textOrders = RegEx.Execute(RawText)  *This is where the error occurs*

然后我尝试了这个，但仍然没有运气

Sub GetMatches(ByRef Str As String, ByRef coll As Collection)

Dim rExp As Object, rMatch As Object

Set rExp = CreateObject("vbscript.regexp")
With rExp
    .Global = True
    .Pattern = "ORDER NUMBER :\s+[^\s]+\s+Ship Date:\s+[^\s]+\n\n\s+Style Desc : .+\n\s+Linecode : .+\n\s+Qty\s+.+"
End With

Set rMatch = rExp.Execute(Str)
If rMatch.Count > 0 Then
    For Each rMatch In rMatch
        coll.Add rMatch.Value
        Debug.Print rMatch.Value
    Next rMatch
End If
Debug.Print ""
End Sub

然后我尝试了这个：JavaScript 

Public Sub x()
     Dim o As New ScriptControl

     Dim OriginalText As String
     Dim RegExPattern As String

     OriginalText = ""

     RegExPattern = ""
     Str = "ORDER NUMBER :   M0773175            Ship Date: 23-Nov-15" & _
            "Style Desc : BLACKOUT CURTAINS CR 46X54" & _
            "Linecode:        M878966" & _
            "Qty 36"

     o.Language = "JScript"
     With o
         .AddCode "Function x() {return m(0);}" & _
                    "var str = Str;" & _
                    "var re = '/ORDER NUMBER :\s+[^\s]+\s+Ship Date:\s+[^\s]+\n\n\s+Style Desc : .+\n\s+Linecode : .+\n\s+Qty\s+.+/g';" & _
                    "var m;" & _
                    "while ((m = re.exec(str)) !== null) {" & _
                        "if (m.index === re.lastIndex) {" & _
                        "re.lastIndex++;" & _
                        "};" & _
                    "};"

         Debug.Print .run("x", 1, 2)
     End With
 End Sub

尝试查找的模式样本文本：

ORDER NUMBER :   M0773175            Ship Date: 23-Nov-15

      Style Desc : BLACKOUT CURTAINS CR 46X54
      Linecode : M85466
      Qty              36

要搜索的输入文本示例：它包含9个订单，但每次尝试使用正则表达式时可能包含50或10个动态数据

Purchase Order Supplier Copy                                                                   Printed Date: 18/08/2015 3.32 PM              Page 1 of         15

  ORDER DETAILS                                                    INVOICE ADDRESS             SHIPMENT & PAYMENT TERMS   STYLE DETAILS

 DATE: 18-AUG-15                        ORDER NUMBERS:             Purchase Ledger             COM:CHINA                            STYLE DESCRIPTION             SUPPLIER STYLE REF    LINECODE
 ORDER TYPE: Standard                   M0773175   M0773177        Retail Ltd              COO:UK
 SEASON: S16                            M0773180   M0773183        Perimeter Road              Port:UK                              BLACKOUT CURTAINS CR 46X54    HRW14CT001            M878966
 DIVISION: HOMEWARE                     M0773186   M0773189        Knowsley Industrial Park    Factory:                             BLACKOUT CURTAINS CR 66X72    HRW14CT001            M878967
 DEPT: HOME FURNISHINGS                 M0773192   M0773195        Liverpool                   Buying Terms:                        BLACKOUT CURTAINS CR 90X90    HRW14CT001            M878972
 BUYER: Harpal Rai-Hilton               M0773198                   United Kingdom              Payment Terms:ENDMONTH           BLACKOUT CURTAINS GR 46X54    HRW14CT001            M878974
 SUPPLIER:                                         L33 7SZ                     Shipping Method:LAND                 BLACKOUT CURTAINS GR 66X72    HRW14CT001            M878975
 AGENT: 9999 N/A                                                   0151                        Pack Desc:Solid Boxed                BLACKOUT CURTAINS GR 90X90    HRW14CT001            M878976
                                                                                               Currency:STERL
                                                                                                                                    BLACKOUT CURTAINS BG 46X54    HRW14CT001            M878977
                                                                                               FOB value:5086.62
                                                                                                                                    BLACKOUT CURTAINS BG 66X72    HRW14CT001            M878978
                                                                                                                                    BLACKOUT CURTAINS BG 90X90    HRW14CT001            M878979

   PRODUCTION SUMMARY

   GRAND TOTAL

  ORDER NUMBER :   M0773175            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS CR 46X54
  Linecode : M878966
  Qty              36

  ORDER NUMBER :   M0773177            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS CR 66X72
  Linecode : M878967
  Qty              27

  ORDER NUMBER :   M0773180            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS CR 90X90
  Linecode : M878972
  Qty              38

  ORDER NUMBER :   M0773183            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS GR 46X54
  Linecode : M878974
  Qty              30

  ORDER NUMBER :   M0773186            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS GR 66X72
  Linecode : M878975
  Qty              15

  ORDER NUMBER :   M0773189            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS GR 90X90
  Linecode : M878976
  Qty              60

  ORDER NUMBER :   M0773192            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS BG 46X54
  Linecode : M878977
  Qty              42

  ORDER NUMBER :   M0773195            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS BG 66X72
  Linecode : M878978
  Qty              21

  ORDER NUMBER :   M0773198            Ship Date: 23-Nov-15

  Style Desc : BLACKOUT CURTAINS BG 90X90
  Linecode : M878979
  Qty              40

1 个答案:

答案 0 :(得分：0)

我认为正则表达式可能存在问题，其中换行符（及其类型）的数量可能不符合预期（\r\n或仅\n？）。我认为切换到只匹配任何可选空格的\s*会更安全。

正则表达式看起来像

ORDER NUMBER\s*:\s*\S+\s*Ship Date:\s*\S+\s*Style Desc : .+\s*Linecode\s*: .+\s*Qty\s*.+

请参阅regex demo

以下是有效的代码：

收集所有比赛的子：

Sub GetMatches2(ByRef str As String, ByRef coll As collection)

Dim rExp As Object, rMatch As Object, r_item As Object

Set rExp = CreateObject("vbscript.regexp")
With rExp
    .Global = True
    .MultiLine = False
    .IgnoreCase = True
    .pattern = "ORDER NUMBER\s*:\s*\S+\s*Ship Date:\s*\S+\s*Style Desc : .+\s*Linecode\s*: .+\s*Qty\s*.+"
End With

Set rMatch = rExp.Execute(str)
If rMatch.Count > 0 Then
    For Each r_item In rMatch
        coll.Add r_item.Value
    Next r_item
End If

End Sub

将字符串传递给GetMatches2的主要子<：

Sub ProcessStr()
Dim s As String
s = "Purchase Order Supplier Copy                                                                   Printed Date: 18/08/2015 3.32 PM              Page 1 of         15" & vbCrLf & vbCrLf & "  ORDER DETAILS                                                    INVOICE ADDRESS             SHIPMENT & PAYMENT TERMS   STYLE DETAILS" & vbCrLf & "" & vbCrLf & " DATE: 18-AUG-15                        ORDER NUMBERS:             Purchase Ledger             COM:CHINA                            STYLE DESCRIPTION             SUPPLIER STYLE REF    LINECODE" & vbCrLf & " ORDER TYPE: Standard                   M0773175   M0773177        Retail Ltd              COO:UK" & vbCrLf & " SEASON: S16                            M0773180   M0773183        Perimeter Road              Port:UK                              BLACKOUT CURTAINS CR 46X54    HRW14CT001            M878966" & vbCrLf & _
" DIVISION: HOMEWARE                     M0773186   M0773189        Knowsley Industrial Park    Factory:                             BLACKOUT CURTAINS CR 66X72    HRW14CT001            M878967" & vbCrLf & " DEPT: HOME FURNISHINGS                 M0773192   M0773195        Liverpool                   Buying Terms:                        BLACKOUT CURTAINS CR 90X90    HRW14CT001            M878972" & vbCrLf & " BUYER: Harpal Rai-Hilton               M0773198                   United Kingdom              Payment Terms:ENDMONTH           BLACKOUT CURTAINS GR 46X54    HRW14CT001            M878974" & vbCrLf & " SUPPLIER:                                         L33 7SZ                     Shipping Method:LAND                 BLACKOUT CURTAINS GR 66X72    HRW14CT001            M878975" & vbCrLf & " AGENT: 9999 N/A                                                   0151                        Pack Desc:Solid Boxed                BLACKOUT CURTAINS GR 90X90    HRW14CT001            M878976" & _
          vbCrLf & "                                                                              Currency:STERL" & vbCrLf & _
"                                                                                                                                    BLACKOUT CURTAINS BG 46X54    HRW14CT001            M878977" & vbCrLf & "                                                                                               FOB value:5086.62" & vbCrLf & "                                                                                                                                    BLACKOUT CURTAINS BG 66X72    HRW14CT001            M878978" & vbCrLf & "                                                                                                                                    BLACKOUT CURTAINS BG 90X90    HRW14CT001            M878979" & vbCrLf & vbCrLf & _
"   PRODUCTION SUMMARY" & vbCrLf & vbCrLf & "   GRAND TOTAL" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773175            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & "  Style Desc : BLACKOUT CURTAINS CR 46X54" & vbCrLf & "  Linecode : M878966" & vbCrLf & "  Qty              36" & vbCrLf & vbCrLf & _
"  ORDER NUMBER :   M0773177            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & "  Style Desc : BLACKOUT CURTAINS CR 66X72" & vbCrLf & "  Linecode : M878967" & vbCrLf & "  Qty              27" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773180            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & _
"  Style Desc : BLACKOUT CURTAINS CR 90X90" & vbCrLf & "  Linecode : M878972" & vbCrLf & "  Qty              38" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773183            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & "  Style Desc : BLACKOUT CURTAINS GR 46X54" & vbCrLf & "  Linecode : M878974" & vbCrLf & "  Qty              30" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773186            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & "  Style Desc : BLACKOUT CURTAINS GR 66X72" & vbCrLf & _
"  Linecode : M878975" & vbCrLf & "  Qty              15" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773189            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & "  Style Desc : BLACKOUT CURTAINS GR 90X90" & vbCrLf & "  Linecode : M878976" & vbCrLf & "  Qty              60" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773192            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & _
"  Style Desc : BLACKOUT CURTAINS BG 46X54" & vbCrLf & "  Linecode : M878977" & vbCrLf & "  Qty              42" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773195            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & "  Style Desc : BLACKOUT CURTAINS BG 66X72" & vbCrLf & _
"  Linecode : M878978" & vbCrLf & "  Qty              21" & vbCrLf & vbCrLf & "  ORDER NUMBER :   M0773198            Ship Date: 23-Nov-15" & vbCrLf & vbCrLf & "  Style Desc : BLACKOUT CURTAINS BG 90X90" & vbCrLf & _
"  Linecode : M878979" & vbCrLf & "  Qty              40"
Dim matches As collection

Set matches = New collection
GetMatches2 str:=s, coll:=matches

End Sub

结果：

enter image description here

相关问题
最新问题