Asp/VB Script Source Codes

Display CSV Files Using ASP

CSV files are common formats to get information . I have seen commission sites , stock quotes and various links in these types of files . CSV are comma seperated value files , the typical format of one of these could be like this.
1000,age,234,billy
This is not much to look at but with a little scripting we can make it more readable . In this example we have a stock quotes csv file downloaded from Yahoo which we wish to display.
<% 'declare our variables Dim objFSO , strURL , objFile 'create an instance of the file system object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'this is the csv file downloaded from yahoo strURL = Server.MapPath("quotes.csv") 'open the file Set objFile = objFSO.OpenTextFile(strURL) 'while we are not at the end of the file Do While Not objFile.AtEndOfStream 'store the contents of the file in strText strText = objFile.readLine 'split the strText arrText = split(strText, ",", 9) Loop 'close and destroy objects objFile.Close Set objFile = Nothing<% 'declare our variables Dim objFSO , strURL , objFile 'create an instance of the file system object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'this is the csv file downloaded from yahoo strURL = Server.MapPath("quotes.csv") 'open the file Set objFile = objFSO.OpenTextFile(strURL) 'while we are not at the end of the file Do While Not objFile.AtEndOfStream 'store the contents of the file in strText strText = objFile.readLine 'split the strText arrText = split(strText, ",", 9) Loop 'close and destroy objects objFile.Close Set objFile = Nothing Set objFSO = Nothing %> <table> <tr><td>description</td><td>latest figure</td><tr> <tr><td>symbol</td><td><%= arrText(0) %></td></tr> <tr><td>last price</td><td><%= arrText(1) %></td></tr> <tr><td>date</td><td><%= arrText(2) %></td></tr> <tr><td>time</td><td><%= arrText(3) %></td></tr> <tr><td>change</td><td><%= arrText(4) %></td></tr> <tr><td>open</td><td><%= arrText(5) %></td></tr> <tr><td>high</td><td><%= arrText(6) %></td></tr> <tr><td>low</td><td><%= arrText(7) %></td></tr> <tr><td>volume</td><td><%= arrText(8) %></td></tr> </table> Set objFSO = Nothing %> <table> <tr><td>description</td><td>latest figure</td><tr> <tr><td>symbol</td><td><%= arrText(0) %></td></tr> <tr><td>last price</td><td><%= arrText(1) %></td></tr> <tr><td>date</td><td><%= arrText(2) %></td></tr> <tr><td>time</td><td><%= arrText(3) %></td></tr> <tr><td>change</td><td><%= arrText(4) %></td></tr> <tr><td>open</td><td><%= arrText(5) %></td></tr> <tr><td>high</td><td><%= arrText(6) %></td></tr> <tr><td>low</td><td><%= arrText(7) %></td></tr> <tr><td>volume</td><td><%= arrText(8) %></td></tr> </table>

<<<----- Return to Asp/VB Script Source Code Questions Page.

Have a Question ? post your questions here. It will be answered as soon as possible.