Easy one: Typcasting String -> Integer

[Bloged]

I tried searching, nothing found

I have an file with something like this in it:

01 12 11 13 09 12 11 09 10 11
12 09 08 03 04 05 06 07 10 09
01 12 11 13 09 12 11 09 10 11
12 09 08 03 04 05 06 07 10 09
00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00

I want to read this file (wich I can get to work) using StreamReader... Spilt every line on " " wich works but then I get an array of 10 Strings and I want it to be 10 Integers... Anyone who can post the source for the last bit?

Thanks in advance

Grtz,

Bloged

[Pirate]

You mean convert the string array to integer array ?

[salvelinus]

You mean CInt()?

[Bloged]

You mean convert the string array to integer array ?

That's exactly what I mean...

You mean CInt()?

You tell me But I will look it up in the MSDN

Thnx for the help so far!

Edit:
Ok looked up CIint() this will create an variant don't think my function expecting a Integer excepts this one! That's why it has to be converted!


Grtz,

Bloged

[Pirate]

Try something like this :

Dim s(10) As String
Dim i() As Integer = DirectCast(s, Integer())

[salvelinus]

I'd go with Pirate, but CInt doesn't return a variant, it returns an Integer.
From VS Help under Type Conversion Functions:

CInt Integer -2,147,483,648 through 2,147,483,647; fractions are rounded.

Integer is the return type.

[Andy]

what about the val() function? would that be appropriate in this situation?

[Pirate]

Originally posted by salvelinus
I'd go with Pirate, but CInt doesn't return a variant, it returns an Integer.
From VS Help under Type Conversion Functions:

Integer is the return type.

Other options , use the static function for different kinds of conversion:

Convert.To..

Convert.To..

Originally posted by thephantom
what about the val() function? would that be appropriate in this situation?

Isn't that came from old VB6 function ? btw , it doesn't apply in this case .

[Bloged]

On this code:

iLineArray = DirectCast(sLineArray, Integer())

I get:
An unhandled exception of type 'System.InvalidCastException' occurred in Stratego.exe

Additional information: Specified cast is not valid.

Code in wich function is called

While sLine <> Nothing
    sLineArray = Split(sLine, " ")
    iLineArray = DirectCast(sLineArray, Integer())
    sLine = sreStream.ReadLine()
End While

Grtz,

Bloged

[Andy]

Isn't that came from old VB6 function ? btw , it doesn't apply in this case

what's the .net equivalent?

[Pirate]

Originally posted by Bloged
On this code:

iLineArray = DirectCast(sLineArray, Integer())

I get:
An unhandled exception of type 'System.InvalidCastException' occurred in Stratego.exe

Additional information: Specified cast is not valid.

Code in wich function is called

While sLine <> Nothing
    sLineArray = Split(sLine, " ")
    iLineArray = DirectCast(sLineArray, Integer())
    sLine = sreStream.ReadLine()
End While

Grtz,

Bloged

I didn't mean you put that inside while loop . Can you show me declaration of these variables :
sLineArray , iLineArray ,sLine

[Pirate]

Originally posted by thephantom
what's the .net equivalent?

Umm , either IndexOf or Contains function of string obj . Ofcourse it doesn't work the same way as Val function as it needs more tweaking .

[Bloged]

Ok incl. the declarations:

Dim sreStream As StreamReader
    Dim sLine As String
    Dim sLineArray() As String
    Dim iLineArray() As Integer
 
    sreStream = File.OpenText("c:\input.txt")
    sLine = sreStream.ReadLine()
    While sLine <> Nothing
        sLineArray = Split(sLine, " ")
        iLineArray = DirectCast(sLineArray, Integer())
        sLine = sreStream.ReadLine()
        For iX = 0 To 9
            pioPion(iLoop).SetCoordinates(iX, iY)
            pioPion(iLoop).SetRang(iLineArray(iLoop))
        Next
        iY += 1
    End While

Thanks for all the help guys!

Grtz,

Bloged

[Pirate]

You should try this line at the end of the While loop .

Dim i() As Integer = DirectCast(s, Integer())

[Bloged]

One question: Will this:

sLineArray = Split(sLine, " ")

Add the current split line to the array or just overwrite it?!

Grtz,

Bloged

[Pirate]

Since arrays are referenced type , so it will replace it with what the string array returned by Split function.

[Bloged]

But then my question will be how to add them to one long String Array so I can cast that to a Integer Array?!

Thanks for the help!

Grtz,

Bloged

[Pirate]

Private Sub test()
        Dim sreStream As StreamReader
        Dim sLine As String
        Dim sLineArray() As String
 
        sreStream = File.OpenText("c:\test.txt")
        sLine = sreStream.ReadLine()      
        While sLine <> Nothing            
            sLineArray = Split(sLine, " ")
            sLine = sreStream.ReadLine()
        End While
        For i As Integer = 0 To sLineArray.Length - 1
            MsgBox(sLineArray(i))
        Next
 
 
        Dim ilineArray(sLineArray.Length - 1) As Integer
 
        'Convert from string to interger 
        For i As Integer = 0 To sLineArray.Length - 1
            ilineArray(i) = sLineArray(i)
        Next
 
    End Sub

[hellswraith]

Here is another conversion you may want to use instead of CInt.

Integer.Parse(mystring)

[Bloged]

Private Sub test()
        Dim sreStream As StreamReader
        Dim sLine As String
        Dim sLineArray() As String
 
        sreStream = File.OpenText("c:\test.txt")
        sLine = sreStream.ReadLine()      
        While sLine <> Nothing            
            sLineArray = Split(sLine, " ")
            sLine = sreStream.ReadLine()
        End While
        For i As Integer = 0 To sLineArray.Length - 1
            MsgBox(sLineArray(i))
        Next
 
 
        Dim ilineArray(sLineArray.Length - 1) As Integer
 
        'Convert from string to interger 
        For i As Integer = 0 To sLineArray.Length - 1
            ilineArray(i) = sLineArray(i)
        Next
 
    End Sub

Wouldn't this just convert the last line from my file to integers?! Because this:

sLineArray = Split(sLine, " ")

Replaces the old Array with the new one created after Split()

Integer.Parse(mystring)

would probably give the same error as

iLineArray = DirectCast(sLineArray, Integer())

I will try it out when I get home from school!

Thanks for all the help

Grtz,

Bloged