String Manipulation

Ben · July 8th, 2003, 03:44 AM

I have a string which is in the following format;

"1,450,2,300,3,450,4,50"

The string is created through a custom VB function and populates a query. I have managed to manipulate the string on a report via another custom VB function so it then looks like this;

"Code1 450 Code2 300 Code3 450 Code4 50"

However I want each code to be on a separate line - so it appears like this:

Code1 450
Code2 300
Code3 450
Code4 50

This is where I get stuck - has anyone any ideas?

(I don't think I can force the values through a number of text boxes as the number of codes could change...)

Thanks
Ben

alex_read · July 8th, 2003, 05:34 AM

Try taking a look at the Split function built into vb, from your MSDN helpfiles...

Code:

Private Sub Form_Load()

    Dim strTemp As String
    Dim straryTemp() As String
    Dim intLoopCounter As Integer

    strTemp = "1,450,2,300,3,450,4,50"
    straryTemp = Split(strTemp, ",")
    strTemp = ""

    For intLoopCounter = 0 To UBound(straryTemp)
        strTemp = strTemp & "Code" & straryTemp(intLoopCounter)
        strTemp = strTemp & " " & straryTemp(intLoopCounter + 1)
        strTemp = strTemp & vbCrLf

        intLoopCounter = intLoopCounter + 1
    Next intLoopCounter

    Text1.Text = Text1.Text & strTemp
End Sub

Ben · July 8th, 2003, 05:53 AM

Thanks Alex this is great