CSV Inlezen

Auteur: Caspar - 08 juli 2007 - 11:31 - Gekeurd door: Stijn - Hits: 10968 - Aantal punten: 2.00 (2 stemmen)

Uitleg:
Zoals jullie misschien weten (of niet weten) is een CSV bestand een geschijden door lijstscheidingstekens bestand (een tabel), een csv bestand ziet er zo uit:
rij1 colom1;rij1 colom2;rij1 colom3
rij2 colom1;rij2 colom2;rij2 colom3
rij3 colom1;rij3 colom2;rij3 colom3

Het zou er als tabel zo uitzien (ongeveer):
______________________________
|rij1 colom1|rij1 colom2|rij1 colom3|
______________________________
|rij2 colom1|rij2 colom2|rij2 colom3|
______________________________
|rij3 colom1|rij3 colom2|rij3 colom3|
______________________________

EXTRA Uitleg:
Voor mensen die niet weten wat CSV bestanden zijn heb ik nog wat meer uitleg:
Als het goed is kennen jullie excel (of misschien andere programma's), deze slaat bestanden op als *.xls, maar als je een *.xls bestand opent met de kladblok dan ziet dit er onleesbaar uit.
Om te zorgen dat je het wel kan lezen heeft iemand (ik denk Microsoft) CSV bestanden verzonnen, deze zijn zonder opmaak maar wel leesbaar in de kladblok.
Om een CSV bestand te maken van een *.xls start je excel (or een ander programma) op en doe je Opslaan Als, in dit dialoog venster kun je onderaan kiezen in welk bestandstype hij het bestand moet opslaan, verander dit naar "CSV (gescheiden door lijstscheidingsteken) (*.csv)", geef het nu een naam en klaar is je CSV bestand. En nogmaals een CSV bestand bevat geen opmaak.

Installatie:
Stap 1:
Maak een bestand dat writecsv.asp heet.

Stap 2:
Plak er de code in die hieronder staat.

Stap 3:
Typ aan het begin (maar niet boven een eventueele <% @LANGUAGE=VBScript %>) van het document waar de csv tabel in moet komen 

Stap 4:
Je kan nu in de documenten waar  staat de functie gebruiken om een csv tabel te plakken, dit doe je door bijvoorbeeld <%= writeCSV("mijncsvbestand.csv") %> te typen; nu komt de tabel van mijncsvbestand.csv in het document geladen.

EXTRA:
In het bestand writecsv.asp kun je de opmaak veranderen, probeer het maar eens.

Code:

writecsv.asp:

php code - Bekijk de code zonder highlighting - Klap code in

<%
Dim fs, f, fac, fa, faa, fab, i, ii

Function writeCSV(file)	
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	Set f = fs.OpenTextFile(Server.MapPath(file), 1)
	
	DO WHILE f.AtEndOfStream = false
	'Response.Write(f.ReadLine)
	'Response.Write("<br>")
	fac = fac & f.ReadLine & vbCrLf
	LOOP
	
	fa = "<TABLE BORDER=""1"">" & vbCrLf
	
	faa = Split(fac, vbCrLf)
		
	For i = 0 To UBound(faa) - 1
		fa = fa & "	<TR>" & vbCrLf
		fab = Split(faa(i), ";")
		For ii = 0 To UBound(fab)
			fa = fa & "		<TD>" & fab(ii) & "</TD>" & vbCrLf
		Next
		fa = fa & "	</TR>" & vbCrLf
	Next
	
	fa = fa & "</TABLE>"
	
	f.Close
	Set f = Nothing
	Set fs = Nothing
	writeCSV = fa
End Function
%>

<%
Dim fs, f, fac, fa, faa, fab, i, ii
 
Function writeCSV(file)	
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	Set f = fs.OpenTextFile(Server.MapPath(file), 1)
 
	DO WHILE f.AtEndOfStream = false
	'Response.Write(f.ReadLine)
	'Response.Write("<br>")
	fac = fac & f.ReadLine & vbCrLf
	LOOP
 
	fa = "<TABLE BORDER=""1"">" & vbCrLf
 
	faa = Split(fac, vbCrLf)
 
	For i = 0 To UBound(faa) - 1
		fa = fa & "	<TR>" & vbCrLf
		fab = Split(faa(i), ";")
		For ii = 0 To UBound(fab)
			fa = fa & "		<TD>" & fab(ii) & "</TD>" & vbCrLf
		Next
		fa = fa & "	</TR>" & vbCrLf
	Next
 
	fa = fa & "</TABLE>"
 
	f.Close
	Set f = Nothing
	Set fs = Nothing
	writeCSV = fa
End Function
%>

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (2)