Atribui uma determinada expressão regular ao objeto. As operações realizadas utilizam o padrão definido neste método.
| Bloco de código |
|---|
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. |
| Toggle Cloak | ||
|---|---|---|
|
| Bloco de código | |||||
|---|---|---|---|---|---|
| |||||
| Cloak | |||||
| |||||
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 := return endif nRet := regex:SetPattern(pattern1) if (nRet != 0) ConOut("SetPattern " + pattern1 + " falhou: " + regex:GetErrorMsg()) return endif lret := 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 := 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 |