Exibir origem

Atribui uma determinada expressão regular ao objeto. As operações realizadas utilizam o padrão definido neste método.

Sintaxe

lOK := oRegex:SetPattern( < cPattern > )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência	Observações
cPattern	Caractere	Expressão regular	X

Retorno

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.

Observações

<Observações da função quanto a seu comportamento, a alteração do comportamento, alteração de parâmetros, alterações do retorno, etc.>

Exemplos

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

Veja também