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