Atribui uma determinada expressão regular ao objeto. As operações realizadas utilizam o padrão definido neste método.
lOK := oRegex:SetPattern( < cPattern > )
| Nome | Tipo | Descrição | Obrigatório | Referência | Observações |
|---|---|---|---|---|---|
cPattern | Caractere | Expressão regular | X |
| Nome | Tipo | Descrição | Observações |
|---|---|---|---|
lOK | Lógico | Indica se a atribuição foi realizada com sucesso. | Caso seja falso, verificar o erro através da GetError. |
user function tRgxSetPattern()
local nRet := -1
local lRet := .F.
local regex := NIL
local text1 := "texto com letras"
local text2 := "1231 123123 8575 5676"
local pattern1 := "([a-z])\w+"
local pattern2 := "([1-9])\w+"
regex := tRegex():new("([Z])\w+")
if ValType(regex) <> "O"
Conout('Erro - ValType(regex) <> "O"')
return
endif
nRet := regex:SetPattern(pattern1)
if (nRet != 0)
ConOut("SetPattern " + pattern1 + " falhou: " + regex:GetErrorMsg())
return
endif
lret := regex:Search(text1)
Conout("Encontrou o padrão: " + cvaltochar(lret)) // .T.
lret := regex:Search(text2)
Conout("Encontrou o padrão: " + cvaltochar(lret)) // .F.
nRet := regex:SetPattern(pattern2)
if (nRet != 0)
ConOut("SetPattern " + pattern2 + " falhou: " + regex:GetErrorMsg())
return
endif
lret := regex:Search(text1)
Conout("Encontrou o padrão: " + cvaltochar(lret)) // .F.
lret := regex:Search(text2)
Conout("Encontrou o padrão: " + cvaltochar(lret)) // .T.
return