String Parsing Question? [resolved]

[Para80d]

Howdy all!

I'm trying to get some commands from a seperate application that i wrote. Here's the string i need to parse

LRK::5.5.5.5::KIF::VERS::GET

where the "::" are the seperators. Ok, i'm doing a Split command

temp_string = Split(Text1.Text, "::")

So now temp_string is an array. Now, my question is, is there a way to creat a function or something in a module that will split that up? is it possible to pass arrays in VB? don't think i've ever done it before...

if you need more detail just ask.. thanks!!

[MartinLiss]

Private Sub Form_Load()
    
    Dim AnArray() As String
    Const A_STRING = "LRK::5.5.5.5::KIF::VERS::GET"
    AnArray = SplitString(A_STRING)
    
End Sub
 
Public Function SplitString(strInput As String) As String()
 
    SplitString = Split(strInput, "::")
 
End Function

You could generalize the function some more by passing the separator character.

[Shaggy Hiker]

You can pass arrays just fine, your argument in the sub/function declaration just is myArr() as string instead of myStr as string.

[Para80d]

Thanks guys, I ended up doing this

Function SplitCmdStr(strCmdStr As String) As Variant
 
    If Len(strCmdStr) > 0 And InStr(strCmdStr, "::") > 0 Then
        SplitCmdStr = Split(strCmdStr, "::")
    Else
        SplitCmdStr = Empty
    End If
    
End Function

Works all good for me!

[MartinLiss]

Why are you returning a variant? It would be better to return a String array as in my example. Also why set the return value to empty when there's nothing to split? I would think you'd want to return the input.