Also ich hab volgendes problem:

Ich habe eine Text Datei in dieser steht folgendes drin:

Name:100000000110000001100001000100100010011000000000010100

Ich habe nun einen OpenFileDialog:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim OpenVars As Object         With OpenFileDialog1             .Title = "Wähle die zu Ladende Datei aus"             .Filter = "TC File (*.tc)|*.tc"             .ShowDialog()               If .FileName = "" Then Exit Sub             Dim oSr As New StreamReader(.FileName)               OpenVars = oSr.ReadToEnd.Split(":")               oSr.Close()         End With           If OpenVars(0) = "Name" Then             Var_01 = Zahl 1             Var_02 = Zahl 2         Else             MsgBox("ERROR: Wrong File")         End If

In diesem wird der string gesplitet und aufgeteilt der erste teil ist der name und der zweite Teil ist der rest.

Jetzt will ich den zweiten teil also OpenVars(1) nochmal spliten, so das jede einzelne zahl einer variable zugewiesen werden kann.

also var_01 muss dann 1 sein
und var_02 muss dan 0 sein

und so weiter.


kann mir jemand helfen wie ich das am besten lösen kann?

mfg
Jimbo

Machs doch einfach mit einem Zahlen-Array:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim OpenVars as [I]String[/I] [I]Dim Var() as Short Dim cnt as Integer[/I]   With OpenFileDialog1 ...... End With   If OpenVars(0) = "Name" Then [i]     ReDim Var ( OpenVars(1).length - 1)  'Länge des Zahlenarrays neu definieren      For cnt = 0 to OpenVars(1).length - 1           Var ( cnt ) = Mid ( OpenVars(1) , c+1 , 1)   'Zeichen an Position c+1 (startet bei 1, nicht 0!) auslesen und in Var ( cnt ) speichern      Next[/i] Else      MsgBox("ERROR: Wrong File") End If

Dann kannst du einfach mit Var(2) z.b. das dritte Zeichen ansprechen (mit Var(0) das erste)

Danke das hat mir sehr geholfen!


mfg
Jimbo2oo5