pattern matching

[rixx]

Function Checkutility(str)
  Dim objER, result
  Set objER = New RegExp
  objER.Global = True
  objER.IgnoreCase = True
  objER.Pattern = "[---]"
  result = objER.Test(str)
  Set objER = Nothing
End Function

ciao ragazzi
non ho mai scritto una funzione per fare il controllo con er...
vorrei capire come fare a controllare se nella (str) cè [---] e se cè allora scrivi xyz.
quella funzione la lo trovata ma non serviva a fare quello che voglio e stavo cercando di adattarla ma mi manca un po di conoscenza di er.
mi dite dove ne posso trovare una già fatta oppure come cambiare questa? grazie

[kluster]

Dim ObjRegex
Set ObjRegex        = New Regexp
ObjRegex.Pattern    = "[---]"
ObjRegex.Global     = True
ObjRegex.Ignorecase = True
ObjRegex.Multiline  = True
risultato           = ObjRegex.Replace(risultato, "xyz")
Set ObjRegEx        = nothing

[rixx]

grazie!

[rixx]

non mi funziona però

Function Checkutility(str)
Dim ObjRegex
Set ObjRegex = New Regexp
ObjRegex.Pattern = "blu"
ObjRegex.Global = True
ObjRegex.Ignorecase = True
ObjRegex.Multiline = True
risultato = ObjRegex.Replace(risultato, "xyz")
Set ObjRegEx = nothing

End Function

suppongo che manchi la dichiarazione di str!!

dove la inserisco? thx

[kluster]

Function Checkutility(str) 
    Dim ObjRegex,tmpStr 
    Set ObjRegex        = New Regexp 
    ObjRegex.Pattern    = "blu" 
    ObjRegex.Global     = True 
    ObjRegex.Ignorecase = True 
    ObjRegex.Multiline  = True 
    tmpStr           = ObjRegex.Replace(str, "xyz")   
    Set ObjRegEx        = nothing 
    Checkutility     = tmpStr  
End Function

[rixx]

scusami forse sono io ma non va ancora :S
ho fattoun po di prove cmq
guarda

Function Checkutility(str) 
    Dim ObjRegex,tmpStr 
    Set ObjRegex        = New Regexp 
    ObjRegex.Pattern    = "blu" 
    ObjRegex.Global     = True 
    ObjRegex.Ignorecase = True 
    ObjRegex.Multiline  = True 
    tmpStr           = ObjRegex.Replace(str, "xyz")   
    Set ObjRegEx        = nothing 
    text     = tmpStr  
End Function

e ok
poi la richiamo con

x1=request("testo")
checkutility(x1)
testo=text

prima l'avevo messa piu semplice ma siccome non andava :S
thx

[rixx]

ps: l'errore è che text diventa vuota ( non mi da errore ma non scirve nulla

[kluster]

Function Checkutility(str) 
    Dim ObjRegex,tmpStr 
    Set ObjRegex        = New Regexp 
    ObjRegex.Pattern    = "blu" 
    ObjRegex.Global     = True 
    ObjRegex.Ignorecase = True 
    ObjRegex.Multiline  = True 
    tmpStr           = ObjRegex.Replace(str, "xyz")   
    Set ObjRegEx        = nothing 
    'LA FUNZIONE E' CHECKUTILITY
    'text = tmpStr    
    'QUINDI             
    Checkutility        = tmpStr    
End Function

[rixx]

Function Checkutility(str) 
    Dim ObjRegex,tmpStr 
    Set ObjRegex        = New Regexp 
    ObjRegex.Pattern    = "blu" 
    ObjRegex.Global     = True 
    ObjRegex.Ignorecase = True 
    ObjRegex.Multiline  = True 
    tmpStr           = ObjRegex.Replace(str, "xyz")   
    Set ObjRegEx        = nothing 
    'LA FUNZIONE E' CHECKUTILITY
    'QUINDI             
    Checkutility        = tmpStr   
	text=Checkutility
End Function



checkutility(request("testo"))
testo=text

sarò diventato completamente ciula ma non va

[kluster]

perchè vuoi aggiungere per forza text?

Function Checkutility(str) 
    Dim ObjRegex,tmpStr 
    Set ObjRegex        = New Regexp 
    ObjRegex.Pattern    = "blu" 
    ObjRegex.Global     = True 
    ObjRegex.Ignorecase = True 
    ObjRegex.Multiline  = True 
    tmpStr              = ObjRegex.Replace(str, "xyz")   
    Set ObjRegEx        = nothing 
    Checkutility        = tmpStr   
End Function
'......
testo=checkutility(request("testo"))