;;; ----------------------------------------------------------- ;;; text_delete.el ;;; ;;; Aug/09/2011 ;;; ;;; ----------------------------------------------------------- (setq load-path (append (list nil "/var/www/data_base/common/elisp_common") load-path)) (load "text_manipulate") ;;; ----------------------------------------------------------- (princ "*** 開始 ***\n") (setq file_text (car argv)) (setq key (nth 1 argv)) (princ file_text) (princ "\t") (princ key) (princ "\n") ; (setq dict_aa (csv_read_proc file_text)) ; (princ (hash-table-count dict_aa)) (princ "\n") (remhash key dict_aa) ; (princ (hash-table-count dict_aa)) (princ "\n") (dict_display_proc dict_aa) (csv_write_proc file_text dict_aa) (princ "*** 終了 ***\n") ;;; -----------------------------------------------------------