VB.net Split string intro multiple variables

Question

For a school project we need to make a BoardGame, Now I have made a list of location for the NPC.

These locations are stored in a txt file named player2.txt, as followed http://pastebin.com/ZhbSvjSt

Im using the following the code to read them from the file. http://pastebin.com/UjLSeWrQ

Dim TurnP2 As String = IO.File.ReadAllLines(".\player2.txt")(Turn)
Dim source As String = TurnP2
Dim result() As String = Split(source, ",")

But now I'm stuck, I have no clue how to splits these 3 numbers into variable. For example Take the first row 1,1,5

I need it to place these numbers in the following variables:

CoX = 1
CoY = 1
CoZ = 5

Can anyone help me further?

Also sorry for using pastebin, but I got a strange error while trying to post.

Regards Jurre

I am sure your teacher would like you to figure this out on your own, not to have a bunch of professionals write your code for you. — Steve
– Steve, Commented Oct 17, 2013 at 15:11

Carlos Landeras · Accepted Answer · 2013-10-17 11:49:41Z

1

I would create a Class:

   Private Class Coords
        Public coordX As Integer
        Public coordY As Integer
        Public coordz As Integer
    End Class

And then I would fill a list:

    Dim source As String() = System.IO.File.ReadAllLines(".\player2.txt")
    Dim ListCoords = New List(Of Coords)

    For Each Val As String In source

        Dim s As String() = Val.Split(",")

        ListCoords.Add(New Coords With {.coordX = s(0).ToString, _
                             .coordY = s(1).ToString, _
                             .coordz = s(2).ToString})

    Next

You will have a list of loaded coordinates:

enter image description here

edited Oct 17, 2013 at 11:49

answered Oct 17, 2013 at 11:43

Carlos Landeras

11.1k11 gold badges61 silver badges84 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

ElektroStudios Over a year ago

As an offtopic, maybe could you say the name/url of the VS IDE color theme that are you using, maybe you are using a 3rd party extension?, or just you've modified one of the default dark themes adding your desired colours?

Tim Schmelter · Accepted Answer · 2013-10-17 11:47:32Z

0

You have multiple lines, so are CoX,CoY,CoZ arrays?

You can use a loop to initialize them. Presuming always valid data:

Dim TurnP2 As String() = IO.File.ReadAllLines(".\player2.txt")
Dim CosX(TurnP2.Length - 1) As Int32
Dim CosY(TurnP2.Length - 1) As Int32
Dim CosZ(TurnP2.Length - 1) As Int32
For i As Int32 = 0 To TurnP2.Length - 1
    Dim values = TurnP2(i).Split(","c)
    CosX(i) = Int32.Parse(values(0))
    CosY(i) = Int32.Parse(values(1))
    CosZ(i) = Int32.Parse(values(2))
Next

answered Oct 17, 2013 at 11:47

Tim Schmelter

462k79 gold badges719 silver badges980 bronze badges

Collectives™ on Stack Overflow

VB.net Split string intro multiple variables

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related