Determina se o padrão da expressão regular deve ou não ser case insensitive. O padrão é verdadeiro.
| Bloco de código |
|---|
nRet := oRegex:SetICase( < lSetICase > ) |
| Nome | Tipo | Descrição | Obrigatório | Referência | Observações |
|---|---|---|---|---|---|
lSetICase | Lógico | Indica se a busca considera case insensitive. | X |
| Nome | Tipo | Descrição | Observações |
|---|---|---|---|
nRet | Numérico | Indica se o case foi alterado com sucesso. Caso o retorno seja diferente de zero, deu erro. | Caso seja falso, verificar o erro através da GetError. |
Observações
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
user function tRgxSetICase() |
local nRet := -1 |
local lRet := .F. |
local regex := NIL |
local text1 := "texto com letras" |
local text2 := "ADASDW GREGEGS ATASFC AWEWEQ" |
local pattern1 := "([a-z])\w+" |
regex := tRegex():new("([Z])\w+") |
if ValType(regex) <> "O" |
Conout('Erro - ValType(regex) <> "O"') |
return |
endif |
nRet := regex:SetPattern(pattern1) |
nRet := regex:SetICase(.T.) |
lret := regex:Search(text1) |
Conout('Encontrou o padrão: ' + cvaltochar(lRet)) // .T. |
lret := regex:Search(text2) |
Conout('Encontrou o padrão: ' + cvaltochar(lRet)) // .T. |
nret := regex:SetICase(.F.) |
lret := regex:Search(text1) |
Conout('Encontrou o padrão: ' + cvaltochar(lRet)) // .T. |
lret := regex:Search(text2) |
Conout('Encontrou o padrão: ' + cvaltochar(lRet)) // .F. |
return
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
user function tRgxSetPattern() return |