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 |