How do you check a value exists in an array?

[Dooza]

Using ASP with VBScript is there a clever way to easily check if a value
exists in an array without looping through it?

Steve

[Bob Barrows [MVP]]

Dooza wrote:

Using ASP with VBScript is there a clever way to easily check if a
value exists in an array without looping through it?

No

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Dooza]

Bob Barrows [MVP] wrote:

Dooza wrote:

>Using ASP with VBScript is there a clever way to easily check if a
value exists in an array without looping through it?

No

I thought as much, just wanted to double check. Thanks Bob.

Steve

[McKirahan]

"Dooza" <st*****@SPAM.d ooza.tvwrote in message
news:OI******** ******@TK2MSFTN GP06.phx.gbl...

Using ASP with VBScript is there a clever way to easily check if a value
exists in an array without looping through it?

If it's a one dimensional array you could try:

Const cVAL = "your_value "
Dim strVAL
strVAL = vbTab & cVAL & vbTab
Dim strARR
strARR = vbTab & Join(your_array ,vbTab) & vbTab

If InStr(strARR,st rVAL) 0 Then
WScript.Echo "'" & cVAL & "' found."
Else
WScript.Echo "'" & cVAL & "' not found."
End If

[Anthony Jones]

"McKirahan" <Ne**@McKirahan .comwrote in message
news:Wo******** *************** *******@comcast .com...

"Dooza" <st*****@SPAM.d ooza.tvwrote in message
news:OI******** ******@TK2MSFTN GP06.phx.gbl...

Using ASP with VBScript is there a clever way to easily check if a value
exists in an array without looping through it?

If it's a one dimensional array you could try:

Const cVAL = "your_value "
Dim strVAL
strVAL = vbTab & cVAL & vbTab
Dim strARR
strARR = vbTab & Join(your_array ,vbTab) & vbTab

If InStr(strARR,st rVAL) 0 Then
WScript.Echo "'" & cVAL & "' found."
Else
WScript.Echo "'" & cVAL & "' not found."
End If

An interesting solution. Arguably that is two loops one peformed by the
join and the second by the instr but since both 'loops' in compiled code
that would well be faster than an basic For loop in VBScript but I doubt it,
I'll have to test that.
--
Anthony Jones - MVP ASP/ASP.NET

[Bob Barrows [MVP]]

Anthony Jones wrote:

"McKirahan" <Ne**@McKirahan .comwrote in message
news:Wo******** *************** *******@comcast .com...

>"Dooza" <st*****@SPAM.d ooza.tvwrote in message
news:OI******* *******@TK2MSFT NGP06.phx.gbl.. .

>>Using ASP with VBScript is there a clever way to easily check if a
value exists in an array without looping through it?

If it's a one dimensional array you could try:

Const cVAL = "your_value "
Dim strVAL
strVAL = vbTab & cVAL & vbTab
Dim strARR
strARR = vbTab & Join(your_array ,vbTab) & vbTab

If InStr(strARR,st rVAL) 0 Then
WScript.Echo "'" & cVAL & "' found."
Else
WScript.Echo "'" & cVAL & "' not found."
End If

An interesting solution. Arguably that is two loops one peformed by
the join and the second by the instr but since both 'loops' in
compiled code that would well be faster than an basic For loop in
VBScript but I doubt it, I'll have to test that.

I would have thought the impact of string conversion and concatentation
would be intolerable. To the OP: looping through an array is fast
(especially if the contents are sorted so unsuccessful searches can be
aborted early), so why look for an alternative?

--
Anthony Jones - MVP ASP/ASP.NET

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Dooza]

Bob Barrows [MVP] wrote:

>>Another would be to not use an array but a Dictionary.

I think I am restricted to whatever ADSI gives me, but I could be
wrong. See my code somewhere above.

? There is nothing restricting you to using an array vs. a Dictionary.

A dictionary allows me to use name/value pairs, is that right? I am only
needing the name of the group that the user is a member of, what would I
use as the pair?

Steve

[Bob Barrows [MVP]]

Dooza wrote:

Bob Barrows [MVP] wrote:

>>>Another would be to not use an array but a Dictionary.

I think I am restricted to whatever ADSI gives me, but I could be
wrong. See my code somewhere above.

? There is nothing restricting you to using an array vs. a
Dictionary.

A dictionary allows me to use name/value pairs, is that right? I am
only needing the name of the group that the user is a member of, what
would I use as the pair?

You could store an array of the group members, i.e
key: groupname
value: array of group members

I'm not saying this the correct way to do this: simply offering an
alternative.

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Anthony Jones]

"Bob Barrows [MVP]" <re******@NOyah oo.SPAMcomwrote in message
news:uK******** ******@TK2MSFTN GP02.phx.gbl...

Anthony Jones wrote:

"McKirahan" <Ne**@McKirahan .comwrote in message
news:Wo******** *************** *******@comcast .com...

"Dooza" <st*****@SPAM.d ooza.tvwrote in message
news:OI******** ******@TK2MSFTN GP06.phx.gbl...
Using ASP with VBScript is there a clever way to easily check if a
value exists in an array without looping through it?

If it's a one dimensional array you could try:

Const cVAL = "your_value "
Dim strVAL
strVAL = vbTab & cVAL & vbTab
Dim strARR
strARR = vbTab & Join(your_array ,vbTab) & vbTab

If InStr(strARR,st rVAL) 0 Then
WScript.Echo "'" & cVAL & "' found."
Else
WScript.Echo "'" & cVAL & "' not found."
End If

An interesting solution. Arguably that is two loops one peformed by
the join and the second by the instr but since both 'loops' in
compiled code that would well be faster than an basic For loop in
VBScript but I doubt it, I'll have to test that.

I would have thought the impact of string conversion and concatentation
would be intolerable.

Join is somewhat more effecient at contentation but its a good point it
probably would be a killer.

--
Anthony Jones - MVP ASP/ASP.NET

[Anthony Jones]

"Dooza" <st*****@SPAM.d ooza.tvwrote in message
news:e6******** ******@TK2MSFTN GP06.phx.gbl...

McKirahan wrote:

"Dooza" <st*****@SPAM.d ooza.tvwrote in message
news:OI******** ******@TK2MSFTN GP06.phx.gbl...

Using ASP with VBScript is there a clever way to easily check if a

value

exists in an array without looping through it?

If it's a one dimensional array you could try:

Const cVAL = "your_value "
Dim strVAL
strVAL = vbTab & cVAL & vbTab
Dim strARR
strARR = vbTab & Join(your_array ,vbTab) & vbTab

If InStr(strARR,st rVAL) 0 Then
WScript.Echo "'" & cVAL & "' found."
Else
WScript.Echo "'" & cVAL & "' not found."
End If

I am using ADSI on our intranet, and only want to show certain users
certain menu items.

What I have done is this:

<%
Dim groupIT
Dim groupSALES
Dim groupACCOUNTS
Dim groupADMIN
For Each objGroup In ObjUser.Groups
If objGroup.Name = "IT" Then groupIT = 1
If objGroup.Name = "UK Sales" Then groupSALES = 1
If objGroup.Name = "Accounts" Then groupACCOUNTS = 1
If objGroup.Name = "Domain Admins" Then groupADMIN = 1
Next

<snip>

Its doubtful that the set of groups for user would be large. You're also
testing for multple values in a single loop which makes good use of the
loop. I would say your done here move on.

--
Anthony Jones - MVP ASP/ASP.NET