// ----------------------------------------------------------------- // csv_create.spl // // Sep/06/2011 // ----------------------------------------------------------------- load "file"; #file-as-code /var/www/data_base/common/spl_common/text_manipulate.spl; // ----------------------------------------------------------------- function data_prepare_proc () { var dict_aa; dict_append_proc (dict_aa,'t1271','千葉',57652,'1962-5-3'); dict_append_proc (dict_aa,'t1272','勝浦',36814,'1962-6-12'); dict_append_proc (dict_aa,'t1273','市原',92351,'1962-8-24'); dict_append_proc (dict_aa,'t1274','流山',38143,'1962-5-18'); dict_append_proc (dict_aa,'t1275','八千代',51762,'1962-1-16'); dict_append_proc (dict_aa,'t1276','我孫子',62821,'1962-4-15'); dict_append_proc (dict_aa,'t1277','鴨川',29456,'1962-10-12'); dict_append_proc (dict_aa,'t1278','銚子',34198,'1962-8-24'); dict_append_proc (dict_aa,'t1279','市川',82345,'1962-9-3'); return (dict_aa); } // ----------------------------------------------------------------- write ("*** 開始 ***\n"); var file_out = argv[0]; write (file_out ~ "\n"); var dict_aa = data_prepare_proc (); csv_write_proc (file_out,dict_aa); write ("*** 終了 ***\n"); // -----------------------------------------------------------------