Cụm từ thông dụng trong MS Access VBA?

Question

Tôi chắc chắn thích MS Access như một RAD-Tool cho các ứng dụng điều khiển dữ liệu phạm vi nhỏ. Nhưng một điều tôi thực sự nhớ là một .Net-Developer là Regular Expressions. Chúng thực sự có ích khi xác thực đầu vào của người dùng. Tôi thực sự không biết tại sao Microsoft không đưa chúng vào thư viện VBA chuẩn.

Có cách nào để sử dụng Cụm từ thông dụng trong MS Access VBA không?

Answer 1

Bạn có thể sử dụng VBScript Regex Object bằng cách thêm tham chiếu vào thư viện Biểu thức chính quy của Microsoft VBScript.

Ví dụ sử dụng:

Dim szLine As String 
Dim regex As New RegExp 
Dim colregmatch As MatchCollection 

With regex 
    .MultiLine = False 
    .Global = True 
    .IgnoreCase = False 
End With 

szLine = "Analyzed range (from-to) 10 100" 

regex.Pattern = "^Analyzed range" 
If regex.Test(szLine) Then 
    regex.Pattern = ".*?([0-9]+).*?([0-9]+)" 
    Set colregmatch = regex.Execute(szLine) 

    'From 
    Debug.Print colregmatch.Item(0).submatches.Item(0) 
    'To 
    Debug.Print colregmatch.Item(0).submatches.Item(1) 
End If 

Nguồn: http://mark.biek.org/blog/2009/01/regular-expressions-in-vba/

Answer 2

Bạn có thể sử dụng CreateObject ("vbscript.regexp") hoặc chỉ tham chiếu đến thư viện tập lệnh.