Reading Information from a File

[cmdolcet69]

I have this code below that will open a created file and read the file
to the end. However if my file has values 200,300,400 seperated by
commas how can i read in each seperate value and place it into an
arraylist? I need to do some sort of commas split to just read the
values and not the commas.

Dim oFile As File
Dim oRead As System.IO.StreamReader
Dim EntireFile As String

Try
oRead = oFile.OpenText("C:\sample.txt")
EntireFile = oRead.ReadToEnd()
oRead.Close()

Catch ex As Exception
'Error Handling Code.
End Try

[Armin Zingler]

"cmdolcet69" <co************@hotmail.comschrieb

I have this code below that will open a created file and read the
file to the end. However if my file has values 200,300,400 seperated
by commas how can i read in each seperate value and place it into an
arraylist? I need to do some sort of commas split to just read the
values and not the commas.

Dim oFile As File
Dim oRead As System.IO.StreamReader
Dim EntireFile As String

Try
oRead = oFile.OpenText("C:\sample.txt")
EntireFile = oRead.ReadToEnd()
oRead.Close()

Catch ex As Exception
'Error Handling Code.
End Try

Have a look at the methods of the String object. It also provides a Split
function. You can add several items to an arraylist at once using it's
AddRange method.
Armin

[Jay Pondy]

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser _
("c:\logs\bigfile")
MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
MyReader.Delimiters = New String() {vbTab}
Dim currentRow As String()
'Loop through all of the fields in the file.
'If any lines are corrupt, report an error and continue parsing.
While Not MyReader.EndOfData
Try
currentRow = MyReader.ReadFields()
' Include code here to handle the row.
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineExceptio n
MsgBox("Line " & ex.Message & _
" is invalid. Skipping")
End Try
End While
End Using

On Sun, 30 Sep 2007 15:58:29 -0700, cmdolcet69 <co************@hotmail.com>
wrote:

>I have this code below that will open a created file and read the file
to the end. However if my file has values 200,300,400 seperated by
commas how can i read in each seperate value and place it into an
arraylist? I need to do some sort of commas split to just read the
values and not the commas.

Dim oFile As File
Dim oRead As System.IO.StreamReader
Dim EntireFile As String

Try
oRead = oFile.OpenText("C:\sample.txt")
EntireFile = oRead.ReadToEnd()
oRead.Close()

Catch ex As Exception
'Error Handling Code.
End Try

[Cor Ligthert[MVP]]

Armin,

I have not the idea that CMDolcet looks ever to the answers.

http://groups.google.com/group/micro...rch+this+group

Cor

[Armin Zingler]

"Cor Ligthert[MVP]" <no************@planet.nlschrieb

Armin,

I have not the idea that CMDolcet looks ever to the answers.

I am patient (to a certain extent). :)
Armin

[cmdolcet69]

On Oct 1, 7:00 am, "Armin Zingler" <[e-mail]:

"Cor Ligthert[MVP]" <[e-mail]

Armin,

I have not the idea that CMDolcet looks ever to the answers.

I am patient (to a certain extent). :)

Armin

Sorry Cor i missed that one in my threads.......my main question would
be how can i parse out the commas when readings a file?

sorry again and will do my best to keep up on things.

[Cor Ligthert[MVP]]

Just use OleDB and datatables to get CSV files. It is so easy. Ten lines of
code and you have the file in a nice OP colletion. The Datatable in the
DataSet.

http://www.vb-tips.com/CSVDataSet.aspx

I never tried it, however I assume that you can fill a datatable direct as
well.

Cor

[Cor Ligthert [MVP]]

OO collection

[cmdolcet69]

On Oct 2, 7:14 am, "Cor Ligthert [MVP]" <[e-mail]>
wrote:

OO collection

Cor, that not exactly the thing i wanna do however i did take a look
at it and can maybe use it on another project, however i believe the
code below that i wrote will work but i have a problem with my string
array that i created. Below i parse out a file (sample.txt) i then
place the parsed data into an array of strings.

Public FileArray As New ArrayList
Public FileData As String()
Public EntireFile As String

Private Sub btnUploadFile_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnUploadFile.Click
Dim oFile As File
Dim oRead As System.IO.StreamReader
Dim EntireFile As String
'Dim FileData As String()
' Dim FileArray As New ArrayList
Try
oRead = oFile.OpenText("C:\sample.txt")
EntireFile = oRead.ReadToEnd()
FileData = Split(EntireFile, ",")
'FileArray.Add(FileData)
oRead.Close()
Catch ex As Exception
'Error Handling Code.
End Try
End Sub
After this code is executed i pass my FileArray into another event
handlers which is. This isn;t the complete code however it will break
at the line bitvalue= bitconverter.... I ran a similar program were i
would add my arralist.add(value) into the bitvalue equation that work
but when i run the code below i get the following.
"Overload resolution fail because no accessbile 'GetByte' can be
called without narrowing conversion. Public shared function GetByte
(value as Double) as Byte argument matching parameter value narrows
fro string to double".

Dim i As Integer = 0
Dim j As Integer = 0
ScaleLocation = 0
Try

For i = 0 To 1001
'convert to bytes
bitvalue = BitConverter.GetBytes(FileData(i))
bitlocation = BitConverter.GetBytes(ScaleLocation)
Next
Catch ex As Exception
' Warn the user.
MessageBox.Show("Upload Command is incorrect")
Finally
End Try
End Sub

[Armin Zingler]

"cmdolcet69" <co************@hotmail.comschrieb

After this code is executed i pass my FileArray into another event
handlers which is.

Which is....? What does "pass [...] into another event handler" mean?

This isn;t the complete code however it will
break at the line bitvalue= bitconverter.... I ran a similar program
were i would add my arralist.add(value) into the bitvalue equation
that work but when i run the code below i get the following.
"Overload resolution fail because no accessbile 'GetByte' can be
called without narrowing conversion. Public shared function GetByte
(value as Double) as Byte argument matching parameter value narrows
fro string to double".

Dim i As Integer = 0
Dim j As Integer = 0
ScaleLocation = 0
Try

For i = 0 To 1001
'convert to bytes
bitvalue = BitConverter.GetBytes(FileData(i))

You try to pass a String, but if you look at the list of available
overloads, it is not possible to pass a string. What do you expect from the
function? If you expect BitConverter to convert each char in the string,
then write a loop.
Armin

[cmdolcet69]

On Oct 2, 9:26 am, "Armin Zingler" <[e-mail]:

"cmdolcet69" <[e-mail]

After this code is executed i pass my FileArray into another event
handlers which is.

Which is....? What does "pass [...] into another event handler" mean?

This isn;t the complete code however it will
break at the line bitvalue= bitconverter.... I ran a similar program
were i would add my arralist.add(value) into the bitvalue equation
that work but when i run the code below i get the following.
"Overload resolution fail because no accessbile 'GetByte' can be
called without narrowing conversion. Public shared function GetByte
(value as Double) as Byte argument matching parameter value narrows
fro string to double".

Dim i As Integer = 0
Dim j As Integer = 0
ScaleLocation = 0
Try

For i = 0 To 1001
'convert to bytes
bitvalue = BitConverter.GetBytes(FileData(i))

You try to pass a String, but if you look at the list of available
overloads, it is not possible to pass a string. What do you expect from the
function? If you expect BitConverter to convert each char in the string,
then write a loop.

Armin- Hide quoted text -

- Show quoted text -

Armin, i wnat to do the same thing like i did with the code below: I
added value to an arraylist and then looped through those value.
However with the code in the previous post all im doing is reading and
parsing from a file. How can i get the previous post to work like my
code in this post. Does that make sense?

Public bitvalue As Byte()
Public ArrList As New ArrayList

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim i As Integer = 0
Dim completelist As New ArrayList
ArrList.Add(3000)
ArrList.Add(3003)
ArrList.Add(3006)
ArrList.Add(3009)
ArrList.Add(3012)
ArrList.Add(3015)
For i = 0 To 5
bitvalue = BitConverter.GetBytes(ArrList(i))
Next
End Sub

[Armin Zingler]

"cmdolcet69" <co************@hotmail.comschrieb

In the inner loop, each character is converted into an array of
bytes. Though, I don't know what you wanna do with this array.

Armin- Hide quoted text -

- Show quoted text -

Armin I was able to get this conversion to work. I thank you again
and appreiciate all your help. You post help me think outside the
box and further.
Thanks again i was able to make my own loop and convert the string.

Yeeeaahhh! I love loops! Yeeeahhh.

:-)
Armin

[cmdolcet69]

On Oct 3, 6:53 am, "Armin Zingler" <[e-mail]:

"cmdolcet69" <[e-mail]

In the inner loop, each character is converted into an array of
bytes. Though, I don't know what you wanna do with this array.

Armin- Hide quoted text -

- Show quoted text -

Armin I was able to get this conversion to work. I thank you again
and appreiciate all your help. You post help me think outside the
box and further.
Thanks again i was able to make my own loop and convert the string.

Yeeeaahhh! I love loops! Yeeeahhh.

:-)

Armin

Oh boy i love loops too, Armin how can i exit my for loop we where
just talking about if my user hits a button on the screen. I want to
make sure that if he see a problem on the screen he can hit an exit
button and exit oout of the loop, rather than waiting the 4 minutes or
so till it completes.
Thanks

[Lloyd Sheen]

"cmdolcet69" <co************@hotmail.comwrote in message
news:11**********************@d55g2000hsg.googlegr oups.com...

On Oct 3, 6:53 am, "Armin Zingler" <[e-mail]:

>"cmdolcet69" <[e-mail]

In the inner loop, each character is converted into an array of
bytes. Though, I don't know what you wanna do with this array.

Armin- Hide quoted text -

- Show quoted text -

Armin I was able to get this conversion to work. I thank you again
and appreiciate all your help. You post help me think outside the
box and further.
Thanks again i was able to make my own loop and convert the string.

Yeeeaahhh! I love loops! Yeeeahhh.

:-)

Armin

Oh boy i love loops too, Armin how can i exit my for loop we where
just talking about if my user hits a button on the screen. I want to
make sure that if he see a problem on the screen he can hit an exit
button and exit oout of the loop, rather than waiting the 4 minutes or
so till it completes.
Thanks

Check out the DoEvents method. Place this in your loop (try not to do it
everytime as this may slow the process down considerably), and then the
event for the button click will be called when the button is clicked. Set a
variable within the scope of both your routine that has the loop processing
and the event handler so that it can indicate when to stop.

Psuedo code:
Loop

Do things

DoEvents

If stop_variable = true then
exit loop
end if
End Loop
Hope this helps
Lloyd Sheen