[RESOLVED] Help with delimiters in a string

[Darkmatter5]

If I have the following variables and string:

Dim line, type, id, filename As String
line= "p,12345,nothing.jpg"

How can I do the following?

type=p
id=12345
filename=nothing.jpg

So how can I split this string up into those smaller strings?

Thanks!

[Negative0]

You can use the Split function. Something like this:

        Dim line, type, id, filename As String
        Dim values() As String
        line = "p,12345,nothing.jpg"
        values = line.Split(","c)

        If values.Length = 3 Then
            type = values(0)
            id = values(1)
            filename = values(2)
        End If

[Darkmatter5]

Thanks, it worked great!

[Lith]

        Dim sData As String = "p,12345,nothing.jpg"
        Dim sInfo() As String = Split(sData$, ",")
        Dim sType, sID, sFileName As String

        sType$ = sInfo$(0)
        sID$ = sInfo$(1)
        sFileName$ = sInfo$(2)

        MsgBox("Type: " & sType$ & vbCrLf & _
               "ID: " & sID$ & vbCrLf & _
               "Filename: " & sFileName$)