Leer archivo CSV con ASP clásico

Código ASP clásico

Script de ASP clásico para leer el contenido de un archivo separado por comas .CSV

<%Option Explicit%>
<html>
<head>
<title>Ejemplo leer archivo CSV</title>
</head>
<body>
<%
Dim objFSO,oInStream,sRows,arrRows
Dim sFileName
 
sFileName = "archivo.csv"
‘*** Create Object ***’
  Set objFSO = CreateObject("Scripting.FileSystemObject")
‘*** Check Exist Files ***’
  If Not objFSO.FileExists(Server.MapPath(sFileName)) Then
  Response.write("File not found.")
  Else
‘*** Open Files ***’
  Set oInStream = objFSO.OpenTextFile(Server.MapPath(sFileName),1,False)
%>
  <table width="600″ border="1″>
  <tr>
  <th width="91″> <div align="center">CustomerID </div></th>
  <th width="98″> <div align="center">Name </div></th>
  <th width="198″> <div align="center">Email </div></th>
  <th width="97″> <div align="center">CountryCode </div></th>
  <th width="59″> <div align="center">Budget </div></th>
  <th width="71″> <div align="center">Used </div></th>
  </tr>
  <%
  Do Until oInStream.AtEndOfStream
  sRows = oInStream.readLine
  arrRows = Split(sRows,";")
  %>
  <tr>
  <td><div align="center"><%=arrRows(0)%></div></td>
  <td><%=arrRows(1)%></td>
  <td><%=arrRows(2)%></td>
  <td><div align="center"><%=arrRows(3)%></div></td>
  <td align="right"><%=FormatNumber(arrRows(4),2)%></td>
  <td align="right"><%=FormatNumber(arrRows(5),2)%></td>
  </tr>
  <%
  Loop
oInStream.Close()
  Set oInStream = Nothing
End IF
  %>
  </table>
  </body>
  </html>

tags:

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por ASP TEAM. Compartimos recursos útiles de buena fe para formar una base de conocimiento en el desarrollo de aplicaciones en ASP Clásico.