Gebruik de VBScript reguliere expressie klasse in staat te stellen uw VBA- programma's om expressie zoekopdrachten uit te voeren . Reguliere expressies zijn tekst patronen die u kunnen helpen zoeken naar strings met een complexe syntaxis in uw Office -documenten . Deze snaren zijn e-mailadressen , telefoonnummers en tekstvelden met specifieke criteria die u in een Excel -of Access-database hebt gedefinieerd . Om de specifieke syntaxis van reguliere expressies te leren , zie de Zytrax "Regular Expression " webpagina of een vergelijkbare bron . Zorg dat u uw VBA- programma's die reguliere expressies op veel verschillende input strings om zeker te zijn dat u uw reguliere expressie patronen correct geschreven testen . Instructies
1 Open een van de Office-toepassingen , zoals Word , Excel of Access . Druk op " Alt " en " F11 " gelijktijdig in om de VBA programmeeromgeving te voeren , klik op het menu " Insert " rubriek . Klik op de "Module " punt om een nieuw venster waarin u VBA -programma's in te voeren creëren
type 2 de volgende verklaringen aan een subroutine waarin om reguliere expressies te maken: .
sub RegularExpressionTester ( ) End Sub
3 Typ de volgende verklaring voor de " End Sub " verklaring van uw programma aan de reguliere expressie object te maken van VBScript . Deze instructie maakt het object waarvan de functies uit te voeren reguliere expressie zoekt .
Set objRegExp = CreateObject ( " VBScript.RegExp " ) op Twitter Type 4 " objRegExp.Global = true " als u wilt dat uw reguliere expressie om een string alleen op het eerste exemplaar van de tekenreeks overeenkomen . Type " objRegExp.Global = false " als je wilt passen op alle exemplaren van de string . Bijvoorbeeld , als u op zoek bent naar het " @"- teken in een e-mailadres en wil gewoon het eerste exemplaar van dit karakter , stelt u " Global " te vinden " vals . "
Type " objRegExp.IgnoreCase = true " 5 als u wilt dat uw reguliere expressie tot geval te negeren bij het matchen van een string . Stel deze eigenschap in op false als u de behuizing van de snaar die u zoekt naar de reguliere expressie patroon overeenkomt nodig . Bijvoorbeeld, als u e-mail -adressen, die niet zijn hoofdlettergevoelig bent valideren , moet u deze eigenschap op ' true '.
6 Type " objRegExp.Pattern = " typt u de reguliere expressie patroon dat u wilt matchen met een input string. Bijvoorbeeld , om een e-mailadres valideren kon je onder andere een reguliere expressie patroon zoals " [ az , AZ ] * @ [ az , AZ ] * . Com . " Dit patroon geeft een string met alfabetische tekens voor en na een " , @ " symbool . Het patroon omvat ook het domein substring " . Com . Merk op dat de echte e-mailadressen kunnen complexer zijn dan dit vereenvoudigde model .
Type " Set regExpMatches = objRegExp.Execute ( strToSearch ) " 7 op uw reguliere expressie patroon van toepassing zijn op de input string " strToSearch . " voor de e-mail validatie voorbeeld , u hebt eerder de variabele " strToSearch "om tekst die u wilt valideren als een e-mailadres . Een monster verklaring voor deze variabele ingesteld is " strToSearch = " ClarkKent@DailyPlanet.com " "
Type 8 " Als regExpMatches.Count = 0 dan " om te testen of de reguliere expressie object geëvenaard alle tekst in uw input string . Als uw tekst invoeren was " ClarKent@DailyPlanet.com " voor de e-mail validatie bijvoorbeeld, dan " graaf " zou zijn 1 . Je zou dan schrijven een verklaring waaruit blijkt dat de tekst was een geldig e-mailadres : . " MsgBox ( " . Deze tekenreeks is een geldig e-mailadres " ) "
< br > |
