splitsen string in vb

  • Onderwerp starter Onderwerp starter jk53
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
J

jk53

Nieuwe gebruiker
Lid geworden
22 apr 2006
Berichten
2
Wie kan mij aan een eenvoudige oplossing helpen: een text string in een formulier, samengesteld uit gegevens in Access. Bestaat soms uit 3 woorden, soms uit 4. Dezelfde string moet naar een ander formulier gekopieerd worden, maar dan zonder de laatste 2 woorden.Hoe kan dat het eenvoudigste in VB?
 
Dat moet met een beetje slim string manipuleren niet heel erg ingewikkeld zijn.

Opzetje om je een duwtje in de richting te geven (niet getest):
Code: 
                voorlaatsespatie = 0
                laatstespatie = 0
                For i = 1 To Len(bronstring)
                    If InStr(i, bronstring, " ") > 0 Then
                        voorlaatstespatie = laatstespatie
                        laatstespatie = InStr(i, bronstring, " ")
                        i = laatstespatie + 1
                    End If
                Next
                doelstring = Mid(bronstring, 1, voorlaastespatie)


Grtz,
 
Nog simpeler:


Code: 
Function TruncateLast(BronString as Strint) as String
Dim Arr() as String

Dim I as Integer

Arr = Split(BronStrig)

For I = 0 tu Ubound(Arr) -1
    TruncateLast = TruncateLast & Arr(I) & " "
Next

end function
 
Mooie oplossing Dnereb. De Split() functie is een functie die maar weinig mensen kennen, en hij is zo mooi........
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan