Finding Array index using VB6.0

Question

I m trying to find out array index using visual basic. I tried some code with VB.Net and getting correct output. Below is the code I am using,

Dim FindThisString as String="EFGH"
Dim MyArray() As String={"ABCD","EFGH","IJKLM"}
For Each Str As String In MyArray
If Str.Contains(FindThisString) Then
    MsgBox(Str.IndexOf(FindThisString))
End If 
Next

Now I want to try the same method with VB 6.0. I am using Instr function but it is giving me string index in entire string and I am looking for array index i.e. index of string "EFGH" in MyArray.

Here is the VB6 code I'm trying:

Dim MyString as String 
Dim str as Variant 
MyString="ABCD/EFGH/IJKLM" 
Dim MyArray() as String 
MyArray = split(MyString,"/") 
Dim inIndex as Integer 
For Each Str In MyArray 
   inIndex= Instr(str,"EFGH") 
   MsgBox inIndex 
Next

Show us your VB6 code also. You'll have to iterate over the array in VB6 too. — idstam
– idstam, Commented Dec 19, 2014 at 7:38
Dim MyString as String Dim str as Variant MyString="ABCD/EFGH/IJKLM" Dim MyArray() as String MyArray = split(MyString,"/") Dim inIndex as Integer For Each Str In MyArray inIndex= Instr(str,"EFGH") MsgBox inIndex Next — Mahesh
– Mahesh, Commented Dec 19, 2014 at 8:02

Heinzi · Accepted Answer · 2014-12-19 07:39:21Z

1

You would basically use the same algorithm:

Loop through the array (you'll need to use a Variant as the loop variable for VB Classic For Each),
verify if the array entry contains the substring in question (you need to use InStr here, since VB Classic does not have String.Contains),
return the index (which you already determined with InStr).

The implementation is left as an exercise.

answered Dec 19, 2014 at 7:39

Heinzi

173k61 gold badges386 silver badges554 bronze badges

Sign up to request clarification or add additional context in comments.

5 Comments

Mahesh Over a year ago

Hi Heinzi.. I have gone thru your suggestion. But your solution is mostly for string and not for array of string. As Instr in vb6 accept two parameters i.e. Instr(Stringinto, "Stringtosearch"). But i am looking for array index.

Heinzi Over a year ago

@Mahesh: Ah, but your VB.NET example code does not return the array index: It returns the string index!

Mahesh Over a year ago

That What I meant to say here. Here is the VB6 code I m trying.. Dim MyString as String Dim str as Variant MyString="ABCD/EFGH/IJKLM" Dim MyArray() as String MyArray = split(MyString,"/") Dim inIndex as Integer For Each Str In MyArray inIndex= Instr(str,"EFGH") MsgBox inIndex Next

Heinzi Over a year ago

@Mahesh: In that case, use a regular For loop instead of a For Each loop and return the loop counter.

Mahesh Over a year ago

Thanks for your suggestion. will try the same and will let you know.

John Pangilinan · Accepted Answer · 2015-12-01 08:56:00Z

0

Function IndexOf(ByRef arr() As String, ByVal str As String) As Integer
    Dim joinedStr As String
    Dim strIndex As Integer
    joinedStr = "|" & Join(arr, "|")
    strIndex = InStr(1, joinedStr, str)
    If strIndex = 0 Then
        IndexOf = -1
        Exit Function
    End If
    joinedStr = Mid(joinedStr, 1, strIndex - 1)
    IndexOf = UBound(Split(joinedStr, "|")) - 1
End Function

answered Dec 1, 2015 at 8:56

John Pangilinan

1,0511 gold badge11 silver badges29 bronze badges

Collectives™ on Stack Overflow

Finding Array index using VB6.0

2 Answers 2

5 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

5 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related