Separating string

[QWERTY]

What would be the most efficient way to separate this kind of string: "Word1 Word2 Word3 Word4 Word5", and put each word to separate textbox?

Thanks in advance.

------------------
Visual Basic Programmer (at least I want to be one)
------------------
PolComSoft
You will hear a lot about it.

[MartinLiss]

If you have VB6 you can use the Split function like this:

    Dim strResults() As String
    Dim intCount As Integer
    
    Const strText = "Word1 Word2 Word3 Word4 Word5"
    strResults() = Split(strText, " ")
    
    For intCount = 0 To UBound(strResults)
        myTextbox(intCount).Text = strResults(intCount)
    Next intCount

The above assumes your TextBoxes are a control array. If not then you'll need to remove the loop and move the strResults entries individually.

------------------
Marty

[QWERTY]

Unfortunately I don't have VB6

------------------
Visual Basic Programmer (at least I want to be one)
------------------
PolComSoft
You will hear a lot about it.

[Gerald]

Here is a word splitting function that will return the words in an array.

Public Function WordSplit(sWords As String) As Variant

    Dim sTemp As String
    Dim vWords() As Variant
    Dim n, nCount As Integer
    
    nCount = 0
    sTemp = sWords
    
    Do
        n = InStr(1, sTemp, " ")
        ReDim Preserve vWords(nCount)
        
        If n = 0 Then
            vWords(nCount) = sTemp
        Else
            vWords(nCount) = Left$(sTemp, n)
            sTemp = Mid$(sTemp, n + 1)
        End If
        
        nCount = nCount + 1
    
    Loop Until n = 0

    WordSplit = vWords

End Function

-- Gerald M

[MartinLiss]

OK, do the following instead:

    Dim intStartPos As Integer
    Dim intSpacePos As Integer
    Dim intOldPos As Integer
    Const strText = "Word1 Word2 Word3 Word4 Word5"
    
    intStartPos = 1
    intSpacePos = -1
    
    'Parse the semicolon-delimited input record, looping until no spaces
    'are found
    Do Until intSpacePos = 0
        intSpacePos = InStr(intStartPos, strText, " ", 1)
        If intSpacePos > 0 Then
            MsgBox Mid(strText, intStartPos, intSpacePos - intOldPos)
        Else
            Exit Do
        End If
        intStartPos = intSpacePos + 1
        intOldPos = intStartPos
    Loop

Replace the MsgBox statement with something that updates your textboxes.

------------------
Marty

[Gerald]

Thank you Marty. I'm aware of the overhead involved with using variant data types, but I completely forgot about the Dim statement in regards to explicitly defining the data type.
Thanks again for reminding me, Gerald.

Private Sub Command1_Click()

    Dim sText As String
    Dim aWords() As String
    Dim n As Integer, nMax As Integer
    
    sText = "Word1 Word2 Word3 Word4 Word5"
    
    WordSplit sText, aWords

    nMax = UBound(aWords)

    For n = 0 To nMax
        ' Update your text boxes.
    Next
    
End Sub

Public Sub WordSplit(s As String, aWords() As String)

    Dim sTemp As String
    Dim n As Integer, nCount As Integer

    nCount = 0
    sTemp = s

    Do
        n = InStr(1, sTemp, " ")
        ReDim Preserve aWords(nCount)
        
        If n = 0 Then
            aWords(nCount) = sTemp
        Else
            aWords(nCount) = Left$(sTemp, n)
            sTemp = Mid$(sTemp, n + 1)
        End If
        
        nCount = nCount + 1
    
    Loop Until n = 0
    
End Sub

[MartinLiss]

Gerald: Did you know that when you dimension variables as you did with Dim n, nCount As Integer, that n is a then a Variant rather than an Integer? Also, using variants is slow, so you should probably change vWords to sWords and dimension it as a String.

------------------
Marty