Split string: VBA [Access97]

Split blev vist først indført i Access 2000

Er der altid kun ét semikolon? Eller skal funktionen fungere som den alm. split-funktion, som gemmer i et Array?

thomas, nej der er en raekke semikoloner i hvert string paa variable steder (forfatter navne delt med semikolon). Jeg bliver nok bare noed til at loebe strengen igennem tegn for tegn saa.

Så følte jeg mig jo udfordret :o)

Prøv at lægge denne i et modul:

Public Resultat() As String

Public Function Split(Streng As String, Afgrænser As String) As Long
    Dim pos As Long, OldPos As Long
    Dim n As Long
    pos = 1
    OldPos = 1
    Do
        pos = InStr(OldPos, Streng, Afgrænser)
        If pos > 0 Then
            n = n + 1
            ReDim Resultat(n)
            Resultat(n) = Mid(Streng, OldPos, pos - OldPos)
            OldPos = pos + 1
        End If
    Loop Until pos >= Len(Streng) Or pos = 0
    Split = n
End Function

Du kan bruge den således:
Dim Antal as long
Dim n as long
Antal = Split("Din;tekststreng;som;Skal;splittes", ";")
for n = 1 to Antal
  debug.print Resultat(n)
next n

vent....der mangler et eller andet....

Sådan (manglede lige en Preserve og lidt til ;o):

Option Compare Database
Option Explicit
Option Base 1

Public Resultat() As String

Public Function Split(Streng As String, Afgrænser As String) As Long
    Dim pos As Long, OldPos As Long
    Dim n As Long
    pos = 1
    OldPos = 1
    Do
        pos = InStr(OldPos, Streng, Afgrænser)
        If pos > 0 Then
            n = n + 1
            ReDim Preserve Resultat(n)
            Resultat(n) = Mid(Streng, OldPos, pos - OldPos)
            OldPos = pos + 1
        End If
    Loop Until pos >= Len(Streng) Or pos = 0
    n = n + 1
    ReDim Preserve Resultat(n)
    Resultat(n) = Mid(Streng, OldPos)
    Split = n
End Function

Public Function TestSplit()
Dim Antal As Long
Dim n As Long
Antal = Split("Din;tekststreng;som;Skal;splittes", ";")
For n = 1 To Antal
  Debug.Print Resultat(n)
Next n
End Function


Kør TestSplit og kig herefter i debug-vinduet

Fantasktisk Thomas ! Naar MS nu ikke inkluderede den i 97, saa maa den jo tilfoejges manuelt :-)
Takker.