Πώς να χρησιμοποιήσετε το VBA και Regex

Χρησιμοποιήστε το VBScript κανονική τάξη της έκφρασης να ενεργοποιήσετε τα προγράμματα VBA σας για να εκτελούν τακτικές αναζητήσεις έκφρασης . Οι κανονικές εκφράσεις είναι μοτίβα κειμένου που μπορούν να σας βοηθήσουν να αναζητήσετε χορδές με μια σύνθετη σύνταξη στα έγγραφα του Office . Αυτές οι χορδές περιλαμβάνουν διευθύνσεις ηλεκτρονικού ταχυδρομείου , αριθμούς τηλεφώνου και τα πεδία κειμένου με συγκεκριμένα κριτήρια μπορεί να έχουν οριστεί σε μια βάση δεδομένων του Excel ή Access . Για να μάθετε τη συγκεκριμένη σύνταξη κανονική έκφραση , δείτε το "Regular Expression " Ιστοσελίδα Zytrax ή παρόμοιου υλικού . Μην ξεχάσετε να δοκιμάσετε τα προγράμματα VBA σας που χρησιμοποιούν κανονικές εκφράσεις σε πολλές διαφορετικές χορδές εισόδου για να βεβαιωθείτε ότι έχετε γράψει τακτική πρότυπα έκφρασης σας σωστά . Οδηγίες
Η

1 Ανοίξτε μία από τις εφαρμογές του Office , όπως το Word , το Excel ή Access . Πατήστε το πλήκτρο " Alt " και " F11 " ταυτόχρονα για να εισέλθετε στο περιβάλλον προγραμματισμού VBA , στη συνέχεια, κάντε κλικ στο "Εισαγωγή" μενού τίτλο . Κάντε κλικ στην " Ενότητα " στοιχείο για να δημιουργήσετε ένα νέο παράθυρο στο οποίο να εισέλθουν τα προγράμματα VBA 2

Πληκτρολογήστε τις ακόλουθες δηλώσεις για να δημιουργήσετε μια υπορουτίνα για να χρησιμοποιήσετε τις συνήθεις εκφράσεις : .

Sub RegularExpressionTester ( ) End Sub
εικόνων 3

Πληκτρολογήστε την ακόλουθη δήλωση ενώπιον της "End Sub" δήλωση του προγράμματος σας για να δημιουργήσετε την κανονική αντικείμενο έκφρασης από VBScript . Η δήλωση αυτή δημιουργεί το αντικείμενο των οποίων οι λειτουργίες εκτελούν τακτικές αναζητήσεις έκφρασης .

Set objRegExp = CreateObject ( " vbscript.regexp " )
Η 4

Τύπος " objRegExp.Global = true " αν θέλετε κανονική έκφραση σας για να ταιριάζει με μια σειρά μόνο για την πρώτη εμφάνιση του string. Πληκτρολογήστε " objRegExp.Global = false " αν θέλετε να ταιριάζει σε όλες τις εμφανίσεις της συμβολοσειράς . Για παράδειγμα , αν ψάχνετε για το χαρακτήρα "@" σε μια διεύθυνση ηλεκτρονικού ταχυδρομείου και απλά θέλουν να βρουν την πρώτη εμφάνιση αυτού του χαρακτήρα , που " Global" σε "false ".
Η 5

Τύπος " objRegExp.IgnoreCase = true " αν θέλετε κανονική έκφραση σας για να αγνοήσει περίπτωση που ταιριάζουν με ένα string . Ορίστε την ιδιότητα αυτή σε false αν χρειάζεστε την υπόθεση του string ψάχνετε για να ταιριάζει με το μοτίβο κανονικής έκφρασης . Για παράδειγμα , αν είστε επικύρωση διευθύνσεις ηλεκτρονικού ταχυδρομείου , τα οποία δεν είναι ευαίσθητη υπόθεση , που αυτήν την ιδιότητα σε "true ".
Η 6

Τύπος " objRegExp.Pattern = " στη συνέχεια, πληκτρολογήστε το μοτίβο κανονικής έκφρασης που θέλετε να ταιριάζει με μια συμβολοσειρά εισόδου . Για παράδειγμα , για να επικυρώσει μια διεύθυνση email που θα μπορούσε να περιλαμβάνει ένα μοτίβο κανονικής έκφρασης , όπως " [ az , AZ] * @ [ az , AZ] * . Com . " Αυτό το πρότυπο καθορίζει ένα string με αλφαβητικούς χαρακτήρες πριν και μετά " ? @ " σύμβολο. Το σχέδιο περιλαμβάνει επίσης την υποσυμβολοσειρά τομέα " . Com . Σημειώστε ότι οι πραγματικές διευθύνσεις ηλεκτρονικού ταχυδρομείου μπορεί να είναι πιο περίπλοκη από αυτό το απλοποιημένο πρότυπο .
Η 7

Τύπος "Set regExpMatches = objRegExp.Execute ( strToSearch ) " για την εφαρμογή μοτίβο κανονικής έκφρασης σας στο string εισόδου " strToSearch . «Για παράδειγμα επικύρωσης e-mail, μπορείτε να έχετε ορίσει προηγουμένως η μεταβλητή" strToSearch " στο κείμενο που θέλετε να επικυρώσετε ως μια διεύθυνση ηλεκτρονικού ταχυδρομείου . Μια δήλωση δειγμάτων για να ρυθμίσετε αυτή τη μεταβλητή είναι " strToSearch = " ClarkKent@DailyPlanet.com " "
8

Τύπος "Αν regExpMatches.Count = 0 τότε" για να ελέγξετε εάν η κανονική έκφραση αντικείμενο συμφωνημένα οποιοδήποτε κείμενο συμβολοσειρά εισόδου σας . Αν το κείμενο εισόδου σας ήταν " ClarKent@DailyPlanet.com " για παράδειγμα επικύρωσης ηλεκτρονικού ταχυδρομείου, τότε " Count " θα είναι 1 . Θα μπορούσατε να γράψετε μια δήλωση στην οποία αναφέρεται ότι το κείμενο ήταν μια έγκυρη διεύθυνση e-mail: . " MsgBox ( " . Αυτή η σειρά είναι μια έγκυρη διεύθυνση ηλεκτρονικού ταχυδρομείου " ) "

Η