String anhand von Trennzeichen splitten

Hallo,
folgendes Problem:
Ich lese aus einer (Log-)Datei (=Textdatei) zeilenweise.In jeder Zeile stehen durch Tabulatoren getrennt mehrere Werte.Diese Werte will ich in ein Array aufsplitten. Bei VB gibt's dafür ja den tollen Befehl Split, aber nicht bei VBA, da ist das irgendwas mit geteilten und nicht geteilten Fenstern (?) ...
Code ist soweit mal ganz banal:
Open dateipfad For Input As #1
Line Input #1, zwischenspeicher
Und nun möcht ich zwischenspeicher splitten, beim VB wäre das ja:
gesplittet = Split(zwischenspeicher,trennzeichen)
Also zB aus zwischenspeicher = "3,4,5" möchte ich dann gesplittet(1)="3", gesplittet(2)="4", gesplittet(3)="5" haben.
Wie geht das? (Bin schon halb am verzweifeln!)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim strTest As String Dim Arr(2) As Variant strTest = "a,b,c" Arr(0) = Left(strTest, InStr(strTest, ",") - 1) strTest = Right(strTest, Len(strTest) - InStr(strTest, ",")) Arr(1) = Left(strTest, InStr(strTest, ",") - 1) strTest = Right(strTest, Len(strTest) - InStr(strTest, ",")) Arr(2) = strTest MsgBox Arr(0) MsgBox Arr(1) MsgBox Arr(2) End Sub

Function teile(quelle As String, trenner As String) Dim ergarray(999) As Variant 'Ergebniss des Splittens '999 da offenes Array nicht erlaubt war Dim pos As Integer 'Position im Array Dim reststring As String 'restlicher zu verarbeitender String reststring = quelle pos = 0 While InStr(reststring, trenner) <> 0 ergarray(pos) = Left(reststring, InStr(reststring, trenner) - 1) reststring = Right(reststring, Len(reststring) - InStr(reststring, trenner)) pos = pos + 1 Wend ergarray(pos) = reststring teile = ergarray End Function

Heh, nochmals Danke! :)
So jetzt habe ich das nochmal umgeschrieben, pos rausgeschmissen und dafür Redim und UBound eingebaut ... Jetzt dürfte es "perfekt" dynamisch sein! :)
(Falls doch noch Fehler drin sind, bitte Bescheid geben!)


Function teile(quelle As String, trenner As String)
Dim ergarray() As Variant       'Ergebniss des Splittens
Dim reststring As String        'restlicher zu verarbeitender String
reststring = quelle
ReDim Preserve ergarray(0)
While InStr(reststring, trenner) <> 0
ergarray(UBound(ergarray)) = Left(reststring, InStr(reststring, trenner) - 1)
reststring = Right(reststring, Len(reststring) - InStr(reststring, trenner))
ReDim Preserve ergarray(UBound(ergarray) + 1)
Wend
ergarray(UBound(ergarray)) = reststring
teile = ergarray
End Function

Beliebteste Forumthreads (12 Monate)

String anhand von Trennzeichen splitten

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

String anhand von Trennzeichen splitten

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread