Leer archivo CSV con ASP clásico

Código ASP clásico

Por Programador ASP clásico /
16/12/2015 @ 10:46:10 /
1430 visitas

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 CoreASP. Estos recursos se comparten de buena fe con el único objetivo de servir como base de conocimiento en el desarrollo de aplicaciones en ASP Clásico. CoreASP no garantiza la precisión, vigencia ni funcionamiento de los artículos o fragmentos de código publicados, y no se hace responsable por el uso que se les dé. Se recomienda siempre revisar, adaptar y probar el código antes de implementarlo en entornos de producción.