|
Hallo zusammen,
hab ein kleines Problem beim Auslesen eines Strings. Dieser sieht wie folgt aus:
2013.10.01 00:14:12;20;1,12000000476837;1;0;0;891005;
Die Werte zwischen den Semikolions können sich in ihrer Länge ändern.
Die einzige Konstante ist die Anzahl der Semikolions. Auslesen möchte ich übrigens die dritte Null von rechts (;0;).
Die Zahl rechts daneben (891005) kann zwischen 1 bis 1000000 betragen.
Wenn anstatt der Null eine 1 steht möchte ich den kompletten String in ein Excel Tabelle schreiben.
Ich habe verschiedene sachen mit Instr und Mid probiert, komme aber zu keinem brauchbaren Ergebniss.
(temp=2013.10.01 00:14:12;20;1,12000000476837;1;0;0;891005;)
Do While Not EOF(1)
Line Input #1, temp
pos1 = InStrRev(temp, ";", -1) - 1
wert = Mid(temp, pos1, 1)
If wert = 1 Then
Sheets(1).Cells(Z, 1) = Replace(temp, vbTab, ";")
Z = Z + 1
End If
Loop
Close #1
Wäre toll wenn jemand hier im Forum eine Idee hätte.
|