Cool. I was wondering how to test for EOF using Streamreader. I ended up using a different file access system via file handles (as it was in the good ol' VB6 and even QB4.5 days).<br><br><div class="gmail_quote">On 26 August 2011 09:52, Shane Dawson <span dir="ltr"><<a href="mailto:shaned@sjc.vic.edu.au">shaned@sjc.vic.edu.au</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">If you are using the str.split(",") function in VB.Net and have an array that stores how many columns of data you have eg. Splitstring(50,4) (50 rows, 4 coulmns) you can then read in each csv line and store it as separate elements in the array.<br>
<br>
You can then use this to populate the relevant text boxes.<br>
<br>
cmbDish.Items.Clear() 'clear the combobox containing dishes<br>
'cmbDish.Items.Add("") 'add a first line that is empty in combobox<br>
Dim C As Integer = 0 'count for dishes<br>
Dim Openfile As StreamReader = File.OpenText(TextFile) 'open text file for the selected section of the menu<br>
Do While Openfile.Peek <> -1 'read from file until end of file<br>
strDish = Openfile.ReadLine() 'read a line from the text file and store into a string<br>
strsplit = strDish.Split(",") 'split the stored line into dish and cost<br>
cmbDish.Items.Add(strsplit(0)) 'add the dish name to the the dish combobox<br>
strDishCost(C) = Val(strsplit(1)) 'store the dish cost into an array<br>
C = C + 1 'add one to the dish count<br>
Loop<br>
Openfile.Close()<br>
<br>
-----Original Message-----<br>
From: <a href="mailto:sofdev-bounces@edulists.com.au">sofdev-bounces@edulists.com.au</a> [mailto:<a href="mailto:sofdev-bounces@edulists.com.au">sofdev-bounces@edulists.com.au</a>] On Behalf Of Travis Parker<br>
Sent: Friday, 26 August 2011 9:41 AM<br>
To: Year 12 Software Development Teachers' Mailing List<br>
Subject: [Year 12 SofDev] Working with CSV text files<br>
<br>
Dear All,<br>
<br>
I am halfway through a program with my Year 12 SD class that writes to a text file (Comma separated) and allows them to add and delete records from it (Using similar techniques to Adrian Janson's "Hi-scores table"<br>
in his great "VB.net for education" book). I have included many validation techniques, including range checking for a person's age (They must be a uni student so this is a bit controversial, particularly about mature age students!), existence checking for names, and data type checking for numbers (They must enter numbers only for phone numbers - Not necessarily correct in real life but just using it as an example).<br>
<br>
I have also created a funky little program that validates email addresses (Attached as a zip file). It makes sure that it follows a logical structure, including containing the "@" symbol and a ".com" or equivalent at the end. Students incorporate this code into their validation of user entries as well.<br>
<br>
One thing that I am doing at the moment though is looking at editing individual records. I have tried numerous methods using past code for CSV files, and ideally I would have the user select a record (Displayed in a listbox) and click btnEdit, then the program would read each field back into the original textbox that it was entered (i.e. Their name is read back into the text property of txtName). So far all I can manage is having it read the entire text file back into a multiline textbox and allow the user to edit it there, then save or discard the changes. This works, but is more prone to human error and I would like a better way of doing things.<br>
<br>
If anyone can help or is facing a similar issue it would be great if you could give me some idea of what to do here.<br>
<br>
Many thanks<br>
<br>
Trav<br>
<br>
<br>
<br>
_______________________________________________<br>
<a href="http://www.edulists.com.au" target="_blank">http://www.edulists.com.au</a> - FAQ, Subscribe, Unsubscribe<br>
IT Software Development Mailing List kindly supported by<br>
<a href="http://www.vcaa.vic.edu.au" target="_blank">http://www.vcaa.vic.edu.au</a> - Victorian Curriculum and Assessment Authority and<br>
<a href="http://www.vcaa.vic.edu.au/vce/studies/infotech/softwaredevel3-4.html" target="_blank">http://www.vcaa.vic.edu.au/vce/studies/infotech/softwaredevel3-4.html</a><br>
<a href="http://www.vitta.org.au" target="_blank">http://www.vitta.org.au</a> - VITTA Victorian Information Technology Teachers Association Inc<br>
</blockquote></div><br><br clear="all"><br>-- <br>Mark Kelly<br>Manager of ICT, Reporting, IT Learning Area<br>McKinnon Secondary College<br>McKinnon Rd McKinnon 3204, Victoria, Australia<br>Direct line / Voicemail: +613 8520 9085, Fax +613 9578 9253<br>
<a href="mailto:kel@mckinnonsc.vic.edu.au" target="_blank">kel@mckinnonsc.vic.edu.au</a><br>VCE IT Lecture Notes: <a href="http://vceit.com" target="_blank">http://vceit.com</a><br>Moderator: <a href="http://www.edulists.com.au/" target="_blank">IT Applications Edulist</a><br>
<br><font>Want a good time? Call 0112358. Ask for Mr </font>Fibonacci.<br>