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. |
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 |