Explode and Count

[Echilon]

I want to create a macro o take a string, explode it, and count the commas.
Eg:
User enters: "name1,name2,name3"
Two commas present, 3 objects must have been entered.
Sendkeys: 3 object(s) - name1, name2, name3

Is this possible?

 

[IknowMe]

Yep, what language are you writing in?

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.

 

[Echilon]

It's for use with Extra X-Treme.

 

[IknowMe]

If you're dealing with a static amount (3 in your example) of items in a comma delimited string, something along the following lines should work. Or do you need something dynamic?

Sub Main

    Dim sArray(2) as string

    sTest = "John,Q,Public"
    isArrayCnt = 0
    
    While instr(sTest,",")
        sArray(isArrayCnt) = Left(sTest,instr(sTest,",")-1)
        sTest = right(sTest,len(sTest) - instr(sTest,","))
        isArrayCnt = isArrayCnt+1
    Wend
    sArray(isArrayCnt) = sTest
    
    For x = 0 to 2 
        msgbox sArray(x)
    Next
    
End Sub

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.

 

[calculus]

This will count the number of commas in a string.

MyString = "1,2,3,4"

StartPosition = 1
MyCount = 0
Do While Instr(StartPosition, MyString, ",") > 0
StartPosition = Instr(StartPosition, MyString, ",")+1
MyCount = MyCount + 1
Loop


If you use VB(A), you can use the Split function that will put the data into an array. Then using the Ubound function you can determine how many elements there are.

calculus

 

[Echilon]

Thanks for the suggestions