String zerlegen

[Maanee]

Array zerlegen

Hallo! Ich habe folgendes Problem. Ich habe ein Array. Darin befindet sich eine Zahl (z.B 008311315700)
Diese Zahl will ich nun in 3 Teile zerlegen.
Der 1. Teil soll sein "0083" (ersten 4 Ziffern)
Der 2. Teil "0083113157" (ersten 10 Ziffern)
der 3. Teil "00" (restlichen Ziffern)


Private Sub WorkAufschluesseln()


Dim Code As String
Dim oArray As New XArray


oArray.ReDim 0, 1, 0, 2

oArray(0, 0) = frmProtAuswertung.TDBGrid1.Columns(3).Text

Code = oArray(0, 0)
frmProtAufschluesselung.TDBGrid1.Columns(0).Text = Mid$(Code, 1, 4)
TDBGrid1.ReBind
TDBGrid1.Refresh

End Sub


(noch ein Beispiel wie ich es bereits versucht habe: frmProtAufschluesselung.TDBGrid1.Array = Mid(oArray(0, 0), 1, 4)

Danke schon mal

 

[Alex F.]

Dein Zerlegen mit MID ist eigentlich schon richtig. Mir scheint es nur so das dein Grid gebunden ist und dann wird nach dem Refresh die Verbindung erneuert. D.h. es werden die Daten neu an das Grid gebunden. Also werden alle deine Bemühungen mit mid von vorher wieder zunichte gemacht

Grüsse bb

 

[Maanee]

doll... das hat mir echt viel geholfen...

 

[Alex F.]

das heisst so lange du deine Daten gebunden hast kannst du sie so lange manipulieren wie du willst. Ein Refresh überpinselt dann wieder alles was du gemacht hast