how to remove values from an Array.

[ACCBAJPA]

guys, I know this question may be straight forward. but I am a beginner and nees to know how to remove specific values from an array. I have a Dynamic Array in_Str_SecurityQ2 like below

Code:

in_Str_SecurityQ2_List = Browser("br_EMC").Page("pg_ViewProfile").WebElement("ele_SecurityQ2_List").GetROProperty("innertext")
in_Str_SecurityQ2 = Split(in_Str_SecurityQ2_List,"?")

this array has UBpund as 16 and contains values as below.

What is the first name of your oldest nephew?
What is the first name of the best man at your wedding?
(Enter full name of street only)?
What was the first name of your first boyfriend/girlfriend?
What was the first name of your first manager?
(Enter full name of town only)?
What is the first name of your oldest niece?
(Enter full name of city only)What is the name of the first company you worked for?
What is your grandfather's nickname?
............

I want to remove the values (Enter full name of street only)? and (Enter full name of town only)? from the Array and also update the size accordingly.

Thanks in Advance.

[ssvali]

You can use REPLACE Built-In Function of Vbscript. Below is the script.

A(0) = "What is the first name of your oldest nephew?"
B(0) = Replace(A(0),"?","")
Msgbox B(0)

[ACCBAJPA]

I am not sure if what you told will help me as I need to remove "(Enter full name of street only)?" and "(Enter full name of town only)?" these two values from the Array, also the index is not fixed for them.

[ssvali]

Instead of using array you can give Scripting.Dictionary a try.

It is much more flexible, and has, among others Remove method.

[ACCBAJPA]

thanks I will try it

[ssvali]

Try this...

Code:

Qtn = ("a;b;c;d")
Arr = Split(Qtn,";")
ItemToBeDeleted = "b"
Brr = ToDeleteEle( Arr , ItemToBeDeleted)


Function ToDeleteEle (Arr , ItemToBeDeleted)
   For i = 0 to UBound(Arr)
       If Arr(i) =  ItemToBeDeleted Then
           While i<UBound(Arr)
               Arr(i) = Arr(i+1)
               i=i+1
           Wend
       End If

   Next
   ReDim Preserve Arr(Ubound(Arr)-1)
  ToDeleteEle = Arr
End Function