nicht angemeldet
Hallo!
Können sich bei Dir die Trennzeichen wiederholen?
Wenn Nein, dann würde ich einfach mit folgender Routine arbeiten:
x = 0
While InStr(text,".")>0
array(x) = left(text,InStr(text,".")-1)
text = mid(text,InStr(text,".")+1,Len(text))
x = x +1
Wend
Wenn Du das ganze dann noch in eine Function auslagerst, kannst Du sie für jedes Trennzeichen benutzen. Falls sich die Trennzeichen wiederholen, würd ich jetzt auf die Schnelle folgendes vorschlagen:
lookfor = InStr(text,1.Trennzeichen)
etc. halt so lange suchen, bis eins gefunden wurde
x = 0
While lookfor>0
If InStr(text,1.Trennzeichen)>0 Then
Abarbeitung wie oben
ElseIf InStr(text,2.Trennzeichen)>0 Then
s.o.
ElseIf ...
End If
und jetzt wieder wie oben alle Trennzeichen für lookfor abarbeiten, bis das mit dem kleinsten InStr-Wert(ungleich 0) gefunden wurde, was oben natürlich auch gemacht werden muß.
Wend
Damit solltest Du es dann eigentlich haben. Die Funktion sieht zwar etwas unbeholfen aus(ich hoffe, daß ich alles so rüberbringen konnte, wie ich es wollte), aber auf die Schnelle fiel mir nix anderes ein.
mfg
JankoW