[xyzzy:04558] Re: 変換

[Hiroshi Saito <HiroshiSaito@xxxxxxx>]

こんにちは、サイトウです。

********** ここから、

(defun convert-encoding-directory (from to encoding)
  (setq from (namestring from))
  (setq to (namestring to))
  (or (and (path-equal from to)
	   (not (yes-or-no-p "入力と出力が同じっぽいっすけどいいっすか?")))
      (let (buffer)
	(unwind-protect
	    (progn
	      (do-events)
	      (setq buffer (create-new-buffer "*foo*"))
	      (set-buffer buffer)
	      (set-buffer-fileio-encoding encoding)
	      (mapc #'(lambda (f)
			(message "~a..." f)
			(erase-buffer buffer)
			(insert-file-contents (merge-pathnames f from))
			(write-region (point-min) (point-max)
				      (merge-pathnames f to)))
		    (directory from :file-only t)))
	  (and buffer (delete-buffer buffer)))))
  (message "done"))

(defun sjis2utf (from to)
  (interactive "Dsjis2utf: \nDto: ")
  (convert-encoding-directory from to *encoding-utf8*))

(defun utf2sjis (from to)
  (interactive "Dutf2sjis: \nDto: ")
  (convert-encoding-directory from to *encoding-sjis*))
  
********** ここまでを
.xyzzyに書いて、xyzzyを再起動させ、
M-x sjis2utf
と入力して、２つのディレクトリを指定すれば(実際には試してませんが)
動くと思います。

.xyzzy については
xyzzyをインストールしたディレクトリの manual-v02.txt を参照してください。


On Sun, 28 May 2000 02:46:00 +0900
Kyo <phosphor@xxxxxxxxxxxxx> wrote:
> Kyoです。亀井さん、こんにちは。
> 
> 試そうと思ったのですが、なんかどうやればいいのか全然解りません。
> このコマンドをどうすればいいんでしょうか？お手数ですがよろしくお願いしま
> す。

-----------------------------------
サイトウ ヒロシ
HiroshiSaito@xxxxxxx
MP3プレイヤー "LinePlayer1.00"
http://www.din.or.jp/~saitoke/lineplayer/readme.html