Udtræk data af tekst

Hvad med vare at bruge Split?

Split(Tekst, ";")

Private Sub Form_Load()
Dim i As Integer
Dim strSplit As String
Dim arrSplit() As String

  strSplit = "kyllingelår;123"
  arrSplit = Split(strSplit, ";") ' opdeler med ";"
 
  If UBound(arrSplit) > 0 Then
    MsgBox arrSplit(0) ' kyllingelår
    MsgBox arrSplit(1) ' 123
  End If

' Ellers kan du køre den i et loop..
'
'  For i = 0 To UBound(arrSplit)
'    MsgBox "Loop: " & arrSplit(i)
'  Next
End Sub

ha ha nielle kom først :D

Den gik ikke - jeg får svar: the result of a formula cannot be an array"
emanuel

også når du køre mit eksempel??

ellers prøv at udskifte :

Dim arrSplit() As String

med:

Dim arrSplit As Variant

sjh, når jeg kører dit eksempel får jeg først problemer, for crystal report accepterer vist ikke den struktur (eller også er det min begrænsede viden)

Jeg fik fat på en der kendte crystal report, og fik disse løsninger, som fungere - som måske husket var teksten f.eks. "kyllingelår;12345"

Denne første linie udtrækker kyllingelår
Left ({ORDER_LINE.ITEM_DESC}, InStr ({ORDER_LINE.ITEM_DESC},";" ) - 1)

og disse 2 udtrækker 12345:
If (InStr({ORDER_LINE.ITEM_DESC},";") > 0) Then
    Mid ({ORDER_LINE.ITEM_DESC}, InStr({ORDER_LINE.ITEM_DESC},";") + 1)

Det ser jo enkelt og smukt ud - og det virker.
Men tak for indput

Øh er du sikker på at det er Visual Basic du laver det her i?

Man kan da ikke bruge {} i vb med mindre at de står sådan "{...}"?

Nej, jeg er absolut ikke sikker, jeg arbejder bare med dette Crystal Report med quiries ind i databasen, bruger de defineret formler der er, og nogle gange lykkes det at strikke lidt yderliger på - men efter hvilke reglersæt tja jeg ved det ikke, men det var min formodning, at det var VB ud fra hvad en kollega sagde på et tidspunkt, så jeg beklager hvis jeg har fået forvirret debatten

Ja så var det der det gik galt.. Crystal Report ved nok ikke hvad Split() er..

Jeg har ikke hørt om "Crystal Report" og var sikker på at det var en ActiveX Control..

så tag du bare dine point igen.. da du har fået løst dit problem..

Jamen lad os lukke, og se om det lykkes at få point hjem igen

Du mangler at acceptere dit eget svar ... ellers får du ikke dine point igen. :^)

opryding