Använd VBScript reguljära uttryck klass för att aktivera din VBA -program för att utföra reguljära uttryck sökningar . Reguljära uttryck är text mönster som kan hjälpa dig att söka efter strängar med en komplex syntax i dina Office-dokument . Dessa strängar är e-postadresser , telefonnummer och textfält med specifika kriterier du har definierat i en Excel- eller Access-databas . Om du vill veta den specifika syntaxen för reguljära uttryck , se Zytrax " Regular Expression " webbsida eller en liknande resurs . Var noga med att testa din VBA -program som använder reguljära uttryck på många olika input strängar för att vara säker på att du har skrivit dina mönster för reguljära uttryck korrekt . Instruktioner
1
Öppna ett Office- program som Word , Excel eller Access . Tryck på " Alt " och " F11 " samtidigt för att komma in i VBA-programmering miljö , klicka sedan på " Infoga " -menyn rubrik . Klicka på " Module " objekt för att skapa ett nytt fönster där du kan ange VBA program
2
Skriv följande uttalanden för att skapa en subrutin som att använda reguljära uttryck : .
sub RegularExpressionTester ( ) End sub
3
Skriv följande uttalande inför " End sub " uttalande av ditt program för att skapa objekt för reguljära uttryck från VBScript . Detta uttalande skapar objekt vars funktioner gör regelbundna uttryck sökningar .
Set objRegExp = CreateObject ( " vbscript.regexp " )
4
Typ " objRegExp.Global = true " om du vill att din vanliga uttryck för att matcha en sträng bara på den första förekomsten av strängen . Typ " objRegExp.Global = false " om du vill matcha på alla förekomster av strängen . Till exempel , om du söker efter den " @ " tecknet i en e-postadress och bara vill hitta den första förekomsten av denna karaktär , som " Global " till " false ".
5
Type " objRegExp.IgnoreCase = true " om du vill att din vanliga uttryck för att ignorera fallet när matcha en sträng . Ange den här egenskapen till false om du behöver fråga om den sträng du söker att matcha mönstret för reguljära uttryck . Till exempel , om du validera e-postadresser som inte är skiftlägeskänsliga , ange den här egenskapen till " true ".
6
Type " objRegExp.Pattern = " skriv sedan reguljära uttryck mönster du vill matcha med en ingång sträng . Till exempel , för att validera en e-postadress kan du inkludera ett mönster för reguljära uttryck som " [ az , AZ ] * @ [ az , AZ ] * . Com . " Detta mönster är en sträng med bokstäver före och efter en " , @ " symbolen . Mönstret innefattar även domänen delsträngen " . Com . Observera att verkliga e-postadresser kan vara mer komplex än denna förenklade mönster .
7
"inställd regExpMatches = objRegExp.Execute ( strToSearch ) " att tillämpa dina reguljära uttryck mönster till ingången strängen " strToSearch . " för e validering exempel kanske du redan har ställt variabeln " strToSearch " till text som du vill validera en e-postadress . Ett prov uttalande att ställa denna variabel är " strToSearch = " ClarkKent@DailyPlanet.com " "
8
Type " Om regExpMatches.Count = 0 då " för att testa om det reguljära uttrycket objektet matchas någon text i ditt indatasträngen . Om din input text var " ClarKent@DailyPlanet.com " för e- validering exempel, då " Count " skulle vara 1 . Du kan sedan skriva ett uttalande om att texten var en giltig e-postadress : . " MsgBox ( " . Denna sträng är en giltig e-postadress " ) " Addera ditt
