✔ [VB.net] Zahlen einzeln auslesen und an variablen übergeben...

[Jimbo2oo5]

Also ich hab volgendes problem:

Ich habe eine Text Datei in dieser steht folgendes drin:

Name:100000000110000001100001000100100010011000000000010100

Ich habe nun einen OpenFileDialog:

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

 

[Timmeey]

Machs doch einfach mit einem Zahlen-Array:

Dim OpenVars as String
Dim Var() as Short
Dim cnt as Integer

With OpenFileDialog1
......
End With

If OpenVars(0) = "Name" Then
     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
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)

 

[Jimbo2oo5]

Danke das hat mir sehr geholfen!


mfg
Jimbo2oo5