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

Revision 91, 404 bytes (checked in by MrLapinot, 10 years ago)

cleancsv: rend toutes les lignes de la même longueur

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