splitsen in een spatie

[Yfke]

Hallo

Ik heb mijn tekst gesplits met de left functie. Is het nu ook mogelijk deze te laten zoeken naar een spatie om te splitsen. Nu wordt soms mijn woord gesplitst. Ik heb op dit moment gewoon om mijn aantal karakters gesplitst.

groeten

 

[jofred]

Yfke,

Ik zou in eerste instantie zeggen, loop de string door om de positie van de spatie te bepalen en zonder dat gedeelte af met behulp van de functie Mid.

Heb je misschien een voorbeeldje wat je precies bedoelt.

 

[Yfke]

ik kan ni echt een vb geven omdat het allemaal uit een array komt en ik verder ga tekenen in AutoCad. Maat het zit zo. ik tot 26 karakter tekenen en dan moet ik naar de volgende regel gaan. Dat lukt allemaal heel goed. Op dit moment is het probleem dat ik mijn woord gewoon ga splitsen maar dit zou niet mogen.

Hoe kan ik die gaan doorlopen??
die waarden zitten allemaal in een array.

groeten

Yf

 

[Yfke]

Bedankt voor de inlichtingen.

Ik heb het juist gevonden

Groeten

Yf

 

[jofred]

Yfke,

Dat is hartstikke mooi, maar ik ben nu wel nieuwsgierig naar de oplossing, misschien wil je dat delen met mij en anderen "ter leering ende vermaeck"?

Jofred

 

[Guus2005]

Waarschijnlijk zo:

Public Function aap()

    Const cTekst  As String = "Aap Noot Mies Wim Zus Jet"
    Dim Arr()     As String
    Dim intMax    As Integer
    Dim intTeller As Integer
    
    Arr = Split(cTekst) 'Default delimiter is een spatie

    intMax = UBound(Arr, 1)
    Debug.Print "Aantal elementen : " & intMax
    Debug.Print "Elementen"
    
    For intTeller = 0 To intMax - 1
        Debug.Print "Element: " & intTeller & " - " & Arr(intTeller)
    Next intTeller
    
    
End Function