String zu Array und Arrayinhalt zu Integer ?

[TTek]

Hi,

also ich stehe vor einem kleinem Problem. Ich habe eine Eingabe bei der ein String eingeben wird z.B. "01001B" das B steht für Binär, jetzt trenne ich das B ab und habe nur "01001" und möchte gerne jede Zahl einzeln in ein Array packen und dann mit dieser Rechnen ...halt Binär zu Dezimal. Und ja ich möchte es rechnen und keine vorgefertigen Funktionen nutzen.
Problem ist nun das ich zwar diesen String in ein array bekomme mit .ToCharArray aber das man damit dann nicht rechnen. Weiß jemand wie ich dieses Problem lösen kann

 

[DrSoong]

Split() benötigt ein Trennzeichen, man könnte das höchstens händisch in ein Array packen:

 Dim sStr$, sArr$()
 sStr = "011101"
 x = Len(sStr) - 1
 ReDim sArr(x)
 For cnt = 0 To x
  sArr(cnt) = Val(Mid(sStr, x - cnt + 1, 1))
 Next cnt

Mir stellt sich aber die Frage, ob du nicht besser mit deinem Binärwert als String arbeitest, du kannst über Mid() ja auf jede Stelle zugreifen.


Der Doc!