root/elections/trunk/tools/cleancsv.ml @ 83

Revision 83, 371 bytes (checked in by MrLapinot, 10 years ago)

cleancsv: supprime les retours à la ligne et les espaces superflus

Line 
1open Csv;;
2
3let assoc = [("\n"," ") ;
4             (* espace insécable ! *)
5             (" ", " ");
6             ("[ ]+", " ");
7             ("^ ","")];;
8
9let clean s =
10  List.fold_left (fun s (a,b) ->
11  Str.global_replace (Str.regexp a) b s)
12  s assoc;;
13
14let doc = load_in ~separator:';' stdin in
15let copy = List.map (List.map clean) doc in
16print ~separator:';' copy
Note: See TracBrowser for help on using the browser.