Back to Questions
3.6k
views0
comment
Code snippet for reading CSV (& How to post F# code snippets?)
f#html

I was looking for a tool that helps in reading CSV files and I have found some instructions on using ADODB (Microsoft ActiveX Object); and after some ``C# 4.0``ing with it, I managed to read a CSV file successfully.

Some time later I came across a built-in .NET class (credit: it was a blog that I do not remember now)! .NET is vast and sometimes I think even in Microsoft many people are not aware of some existing library in .NET and use other tools or do duplicate the solution. Anyway that was very fun and shocking for me and I think It may be useful to somebody else too.

This sample reads a CSV file and generate a simple html file from it:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

#r "Microsoft.VisualBasic.dll"

// The #r directive references an assembly.

// The #I directive adds a new directory to the search path for references.

// The #load directive opens up another F# file with a relative path and executes it.

let hereDir  = __SOURCE_DIRECTORY__

let hereFile = __SOURCE_FILE__

open System

open System.IO

open System.Text

open Microsoft.VisualBasic.FileIO

let csv  = Path.Combine(hereDir, "data.csv")

let html = Path.Combine(hereDir, "data.html")

using(new TextFieldParser(csv)) (fun parser ->

    parser.SetDelimiters(",")

    let flag = ref true

    using(new StreamWriter(html, false, System.Text.Encoding.UTF8)) (fun writer -> 

        writer.WriteLine(@"

            <!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">

            <html xmlns=""http://www.w3.org/1999/xhtml"" >

            <head>

                <title>csv exported</title>

            </head>

            <body>

            <table border=""1"">

            ")

        while !flag do

            let record = parser.ReadFields()

            if record = null || record.Length = 0 then

                flag := false 

            else

                writer.WriteLine("<tr>")

                for f in record do

                    writer.WriteLine (String.Format("<td>{0}</td>", f))

                

                writer.WriteLine("</tr>")

        

        writer.WriteLine(@"</table></body></html>"))

    parser.Close())

Note: How to post F# code snippets? I have found this solution for highlighting F# code on hubfs (Thanks to Brian McNamara) yet indentation does not works and adding   at the beginning of each line instead of spaces is useless too. Please help me with posting code; thanks.

.

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper