Variable Contains question

[Miguel Orrego]

Hi,

I have a variable in an app called GenericTitle which contains text, a
persons job title funnily enough.

I want to check whether this variable contains the word "director" and if it
does, then redirect to another page for example.

Can somebody post some code that would let me check this?

Your help is much appreciated.

[Steven Burn]

e.g. If CheckIt(SomeDat a, "director") Then
'........true
Else
'......false
End if

Function CheckIt(pString , StringToFind)
If Instr(lcase(pSt ring), StringToFind) Then
CheckIt = True
Else
CheckIt = False
End if
End Function
--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

Disclaimer:
I know I'm probably wrong, I just like taking part ;o)
Miguel Orrego <mi****@stresse dmonkey.net-nospam> wrote in message
news:40******** *************** @news.dial.pipe x.com...

Thanks for the help guys, I've got it working fine now, except for some
people in my org don't have Directors, so I now need to change it to check
for director or vp or senior manager.

What would the syntax be in the function for it to check for more than one
word? :

Function CheckIt(pString )
If Instr(lcase(pSt ring), "director") Then
CheckIt = True
Else
CheckIt = False
End if
End Function

Thanks again all.
"Miguel Orrego" <mi****@stresse dmonkey.net-nospam> wrote in message
news:40******** *************** @news.dial.pipe x.com...

Hi,

I have a variable in an app called GenericTitle which contains text, a
persons job title funnily enough.

I want to check whether this variable contains the word "director" and

if it

does, then redirect to another page for example.

Can somebody post some code that would let me check this?

Your help is much appreciated.

[Chris Hohmann]

"Roland Hall" <nobody@nowhere > wrote in message
news:OP******** ******@TK2MSFTN GP12.phx.gbl...

"Miguel Orrego" wrote:
: I have a variable in an app called GenericTitle which contains text, a : persons job title funnily enough.
:
: I want to check whether this variable contains the word "director" and if it
: does, then redirect to another page for example.
:
: Can somebody post some code that would let me check this?

with regular expressions

<%@ Language=VBScri pt %>
<%
Option Explicit
Response.Buffer = True

sub getTitle(strTit le, go, goelse)
Dim re, str, em
str = "director"
Set re = new RegExp
With re
.Pattern = "(\w)+"
.IgnoreCase = True
.Global = false
End With
Set em = re.Execute(strT itle)
if lcase(em(0)) = "director" then
Response.Redire ct(go) ' director
else
Response.Redire ct(goelse) ' not director
end if
set re = nothing
end sub

dim GenericTitle
GenericTitle = Request.QuerySt ring("gt")
getTitle "" & GenericTitle & "", "http://wallstreet.com/",
"http://disney.com"
%>

The above code only works when the title begins with the word
"director". Here are some false negatives that your code does not
capture:

assistant director
assistant_direc tor
director_of_pho tography
directory

Here's an alternative function:
<%
Function IsDirector(str)
Dim re,retVal
Set re = New RegExp
With re
.Global = True
.IgnoreCase = True
.Pattern = "director"
retVal = .Test(str)
End With
Set re = Nothing
IsDirector = retVal
End Function
%>

Also note that from a performance standpoint, it can be inefficient to
instantiate a RegExp object if it's only going to be used once. The
merits of regular expression objects lie in their robust pattern
matching capabilities and the economies of scale that come into play
when the strings being matches are many or large.

HTH
-Chris Hohmann

[Roland Hall]

"William Morris" wrote:
: Nice job on the coding...but since some folks do their news'ing at work I
: personally wouldn't have redirected to a site (wallstreet.com ) with
gambling
: on it. I worked at an organization a few years back that tracked every
move
: I made on the internet, and that site would have earned me a reprimand.
:
: Just food for thought.

You're right William. I didn't consider that.
Thank you.

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Roland Hall]

"Chris Hohmann" wrote:
: "Roland Hall" wrote:
: > "Miguel Orrego" wrote:
: > : I have a variable in an app called GenericTitle which contains text,
: a
: > : persons job title funnily enough.
: > :
: > : I want to check whether this variable contains the word "director"
: and if
: > it
: > : does, then redirect to another page for example.
: > :
: > : Can somebody post some code that would let me check this?
: >
: > with regular expressions
: >
: > <%@ Language=VBScri pt %>
: > <%
: > Option Explicit
: > Response.Buffer = True
: >
: > sub getTitle(strTit le, go, goelse)
: > Dim re, str, em
: > str = "director"
: > Set re = new RegExp
: > With re
: > .Pattern = "(\w)+"
: > .IgnoreCase = True
: > .Global = false
: > End With
: > Set em = re.Execute(strT itle)
: > if lcase(em(0)) = "director" then
: > Response.Redire ct(go) ' director
: > else
: > Response.Redire ct(goelse) ' not director
: > end if
: > set re = nothing
: > end sub
: >
: > dim GenericTitle
: > GenericTitle = Request.QuerySt ring("gt")
: > getTitle "" & GenericTitle & "", "http://wallstreet.com/",
: > "http://disney.com"
: > %>
:
: The above code only works when the title begins with the word
: "director". Here are some false negatives that your code does not
: capture:
:
: assistant director
: assistant_direc tor
: director_of_pho tography
: directory
:
: Here's an alternative function:
: <%
: Function IsDirector(str)
: Dim re,retVal
: Set re = New RegExp
: With re
: .Global = True
: .IgnoreCase = True
: .Pattern = "director"
: retVal = .Test(str)
: End With
: Set re = Nothing
: IsDirector = retVal
: End Function
: %>
:
: Also note that from a performance standpoint, it can be inefficient to
: instantiate a RegExp object if it's only going to be used once. The
: merits of regular expression objects lie in their robust pattern
: matching capabilities and the economies of scale that come into play
: when the strings being matches are many or large.

I missed the word contains in the OPs post, I thought it was equal.

Are you telling me the regular expression has a lot of overhead and should
only be considered when it is a global search?

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Chris Hohmann]

"Roland Hall" <nobody@nowhere > wrote in message
news:eN******** ******@TK2MSFTN GP12.phx.gbl...

"Chris Hohmann" wrote:
: Also note that from a performance standpoint, it can be inefficient to : instantiate a RegExp object if it's only going to be used once. The
: merits of regular expression objects lie in their robust pattern
: matching capabilities and the economies of scale that come into play
: when the strings being matches are many or large.

I missed the word contains in the OPs post, I thought it was equal.

Are you telling me the regular expression has a lot of overhead and should only be considered when it is a global search?

"A lot of overhead" is subjective. I will say that RegExp objects incur
overhead that calls to native string functions like InStr do not. Is
"global search" a reference to the RegExp.Global property? If so, the
property does not necessarily have an effect on the performance of a
regular expression. For instance an enormous string could have a
singular match at the very end of the string. RegExp should be
considered in the following circumstances:

1. The pattern matching requires would be difficult/impossible to
achieve using built-in string functions
2. The string to be search is large, i.e.. the contents of a file.

Of course, each circumstance will vary and the only definitive way to
insure that the right method is being employed is to test each approach.

HTH
-Chris Hohmann

[Roland Hall]

"Chris Hohmann" wrote:
: "Roland Hall" wrote:
: > Are you telling me the regular expression has a lot of overhead and
: should
: > only be considered when it is a global search?
:
: "A lot of overhead" is subjective. I will say that RegExp objects incur
: overhead that calls to native string functions like InStr do not. Is
: "global search" a reference to the RegExp.Global property? If so, the
: property does not necessarily have an effect on the performance of a
: regular expression. For instance an enormous string could have a
: singular match at the very end of the string. RegExp should be
: considered in the following circumstances:
:
: 1. The pattern matching requires would be difficult/impossible to
: achieve using built-in string functions
: 2. The string to be search is large, i.e.. the contents of a file.
:
: Of course, each circumstance will vary and the only definitive way to
: insure that the right method is being employed is to test each approach.

I have seen it used so widely for small tasks that do not apply to the above
and I never tested the performance of it with other methods. Thanks for the
info Chris.

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp