Brug VBScript regulære udtryk klasse for at aktivere din VBA -programmer til at udføre regulære udtryk søgninger. Regulære udtryk er tekst mønstre, der kan hjælpe dig søge efter strenge med en kompleks syntaks i dine Office -dokumenter. Disse strenge omfatter e-mail adresser, telefonnumre og tekstfelter med specifikke kriterier, du måske har defineret i et Excel eller Access -database. At lære det specifikke syntaks regulære udtryk , se Zytrax "Regular Expression " webside eller en lignende ressource. Vær sikker på at teste dine VBA programmer, der bruger regulære udtryk på mange forskellige input strenge at være sikker på at du har skrevet dit regulære udtryk mønstre korrekt . Instruktioner
1
åbne en af Office-programmer , såsom Word, Excel eller Access. Tryk på " Alt" og " F11 " samtidigt for at komme ind i VBA programmering miljø , og klik derefter på " Indsæt" menuen overskrift. Klik på " Module" element for at oprette et nyt vindue, hvor at indtaste VBA -programmer
2
skrive følgende udsagn for at skabe en subrutine i at bruge regulære udtryk : .
sub RegularExpressionTester ( ) End sub
3
Skriv følgende erklæring før " End Sub " erklæring af dit program til at oprette det regulære udtryk objektet fra VBScript. Denne erklæring skaber det objekt, hvis funktioner udfører regulære udtryk søgninger.
Set objRegExp = CreateObject ( " vbscript.regexp " )
4
Type " objRegExp.Global = true ", hvis du vil have dit regulære udtryk til at matche en streng lige på den første forekomst af strengen. Type " objRegExp.Global = false ", hvis du ønsker at matche på alle forekomster af strengen. For eksempel , bare hvis du søger efter " @ "-tegnet i en email-adresse og ønsker at finde den første forekomst af denne karakter , skal du indstille " Global " til "false ".
5
Type " objRegExp.IgnoreCase = true ", hvis du vil have dine faste udtryk til at ignorere sagen , når der matcher en streng. Indstille denne egenskab til false hvis du har brug tilfælde af den streng, du søger at matche det regulære udtryk mønster. For eksempel, hvis du validere e-mail adresser , som ikke er store og små bogstaver indstille denne egenskab til "true ".
6
Type " objRegExp.Pattern =" derefter skrive regulært udtryk , du ønsker at matche med et input streng. For eksempel, at validere en e-mailadresse kan omfatte et regulært udtryk mønster som " [az , AZ ] * @ [az , AZ] * . Com . " Dette mønster angiver en streng med alfabetiske tegn før og efter en " ; @ " symbol. Mønsteret omfatter også domænet substring " . Com . Bemærk at reelle e-mail adresser kan være mere kompleks end denne forenklede mønster.
7
Type "Set regExpMatches = objRegExp.Execute ( strToSearch )" for at anvende dit regulære udtryk mønster til input string " strToSearch . "For mail validering eksempel kan du tidligere har sat variablen" strToSearch "til tekst, du vil validere som en email -adresse. En prøve erklæring at indstille denne variabel er " strToSearch =" ClarkKent@DailyPlanet.com ""
8
Type " Hvis regExpMatches.Count = 0 derefter" at teste, om det regulære udtryk objektet matchede tekst i dit input streng. Hvis dit input tekst var " ClarKent@DailyPlanet.com " til e-mail validering eksempel , derefter " Count " ville være 1. . Du kan derefter skrive en erklæring om, at teksten var en gyldig e-mail -adresse: ". MsgBox ( " . Denne streng er en gyldig email-adresse " )"
< br >
