Define o Padrão da Expressão Regular.
Uso da Propriedade:
Sintaxe: Object.Pattern = "<PATTERN STRING>"
Exemplos:
regExpObj.Pattern = "^\d{4}_\d{6}$" ' Match strings in the format 1234_567890
regExpObj.Pattern = "\b\d{2}/\d{2}/\d{4}\b" 'Matches dates in the MM/DD/YYYY format
Dim regex, inputText
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "^\d{4}_\d{6}$" ' Match strings in the format 1234_567890
inputText = "1234_567890"
' Check if the inputText matches the pattern
If regex.Test(inputText) Then
'Valid Format Related Coding
Else
'Invalid format Related Coding
End If
No código acima, o padrão ^\d{4}_\d{6}$ garante que inputText deva estar no formato de 4 dígitos seguido de um sublinhado (_) e 6 dígitos no final. Se o inputText corresponder ao padrão, ele acionará o fluxo de código da seção de Formato válido. Caso contrário, ele se enquadrará no fluxo de código relacionado ao Formato inválido.