(* ------------------------------------------------------------------- *) (* csv_read.ml Aug/23/2011 *) (* ------------------------------------------------------------------- *) open Str open Printf open Text_manipulate (* ------------------------------------------------------------------- *) let file_text = Sys.argv.(1) let _ = print_endline "*** 開始 ***" let dict_aa = Hashtbl.create 100 let _ = csv_read_proc file_text dict_aa let _ = dict_display_proc dict_aa let _ = print_endline "*** 終了 ***" (* ------------------------------------------------------------------- *) (* ------------------------------------------------------------------- *)