adskille en text.. hurtigt svar ønskes

sText = "bilen er rød@@og har 4 døre@@samt en stor bagklap"
aText = Split(sText, "@@")
For I = 0 To UBound(aText)
  MsgBox "Del " & (I + 1) & ": " & aText(I)
Next

Skulle meget gerne dele det op i et array, gennemgå array'et og fortælle hvad der står i hver del

- Michael

Rimelig smart, Michael :o)
Kendte ikke UBound-funktionen og havde kun kun læst om Split-funktionen og havde egentlig glemt den.

der er flere point hvis jeg får en komplet løsning på opsplitning af feltet [felt1]til 3 nye felter i en tabel [tabel1].

tabel1 felt1 er den komplette tekst. felt2 er første segment osv.

hvor mange 'gryn' taler vi da om ?

Hvis det kun er den aktuelle post på en formular, vi snakker om, så er det ret simpelt.
Placer de 4 felter på formularen og lav en knap med denne kode på:

Dim aText
aText = Split(Me![Felt1], "@@")
Me!Felt2 = aText(0)
Me!Felt3 = aText(1)
Me!Felt4 = aText(2)

nej det er ikke en post, men en tabel der indeholder 1000 tekster i felt 1.

Okay, så er det jo lidt mere besværligt. Men hvis du ville give lidt flere point, så har du den her:

Public Function SplitFelt()
    Dim aText
    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection
    Set rs = New ADODB.Recordset
    Set cn = CurrentProject.Connection
    rs.Open "Tabel1", cn, adOpenKeyset, adLockOptimistic
    do
      aText = Split(rs!Felt1, "@@")
      rs!Felt2 = aText(0)
      rs!Felt3 = aText(1)
      rs!Felt4 = aText(2)
      rs.update
      rs.movenext
    loop until rs.eof
    rs.close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Function

Placer koden i et modul og tryk F5 mens du har markøren placeret i funktionen.

den melder fejl på Dim rs As ADODB.Recordset
user-defined type not defined

den melder mange fejl generelt hvis jeg remarker nogle statements, så er det udviklet til 2K eller 97 ? eller kører du office 11 på dette ?

manglende referencer :
ADODB.Recordset
ADODB.Connection
adOpenKeyset

Du mangler en reference til Microsoft ActiveX Data 2.x Object Library fordi det er en Access 97-database (sommåske er konvereteret)

Prøv denne istedet eller tilføj referencen:
Public Function SplitFelt()
    Dim aText
    Dim rs As DAO.Recordset
    Dim db as database
    Set db = Currentdb
    set rs = db.Openrecordset("Tabel1", dbopendynaset)
    do
      aText = Split(rs!Felt1, "@@")
      rs.edit
      rs!Felt2 = aText(0)
      rs!Felt3 = aText(1)
      rs!Felt4 = aText(2)
      rs.update
      rs.movenext
    loop until rs.eof
    rs.close
    Set rs = Nothing
End Function

så kommer der en runtime error 3048
cant open any more databases

Genstart Access!?

Hvor stiller den sig med denne fejl?

efter 3 sek på linien : Set db = CurrentDb

Hvis jeg bruger f8 til at afvikle med kører den fint linerne :
    Dim aText
    Dim rs As DAO.Recordset
    Dim db As Database
    Set db = CurrentDb
    Set rs = db.OpenRecordset("split_text", dbOpenDynaset)
    Do
      aText = Split(rs!varetext, "@@")

som den looper imellem. da der er mange trykker jeg f5 for at afvikle og så kommer den efter ca 3 sekunder.

NB.
tjekker nye svar senere i aften....

Thomas>>
er der nyt på denne front..??

Næ, jeg er ved at være lidt blank. Det virker fint på min maskine.
Kører du '97 eller '2000?

jeg har begge dele....men jeg kører den på 2K, idt jeg ikke kan se at access 97 understøtter SPLIT funktionen.

Kunne du sende den test db der virker fint hos dig, da jeg ved kørsel af denne på min egen maskine da normalt får at vide hvilke objekter jeg mangler at installere.

XMLerror@solar.dk

Point siger du selv lige hvor meget der skal oveni.

Er ved at rydde op i mine "gamle" spørgsmål og TJ ekseplet virker nu af uforklarlige årsager.

Takker

Niels