Newsgroups: fj.editor.mule,fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!NTTDgate!NTTDnews!plansun!icarus!isoyama
From: isoyama@erlic.rd.nttdata.jp (Hideyuki "natural-weave" Isoyama)
Subject: decimal -> kanji
Message-ID: <ISOYAMA.94Oct28182728@erlic.rd.nttdata.jp>
Followup-To: fj.editor.mule
Sender: news@rd.nttdata.jp
Nntp-Posting-Host: icarus
Organization: NTT DATA COMMUNICATIONS SYSTEMS CORPORATION
Distribution: fj
Date: Fri, 28 Oct 1994 09:27:28 GMT
Lines: 47
Xref: galaxy.trc.rwcp.or.jp fj.editor.mule:209 fj.editor.emacs:5069
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5069&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B$$$=$d$^!w#N#T#T%G!<%?$G$9!#(B

nemacs, nepoch $B$r;HMQ$7$F$$$?$3$m$K!"(B

{50350, 676}, {50126, 609}, {47777, 600}, {50864, 561}, {45242, 560},
{52462, 555}, {42207, 555}, {50938, 552}, {50925, 547}, {47053, 543},

$B$H$$$&%F%-%9%H$r(B

{$BD.(B, 676}, {$BCN(B, 609}, {$B:!(B, 600}, {$BF0(B, 561}, {$B0:(B, 560},
{$BLn(B, 555}, {$B$_(B, 555}, {$BFz(B, 552}, {$BFm(B, 547}, {$B7M(B, 543},

$B$N$h$&$KJQ49$9$k4X?t$r:n$j$^$7$?!#(B
 $B$D$^$j!V4A;z%3!<%I$i$7$-?tCM$,$"$l$P4A;z$KCV$-49$($k!W$H$$(B
$B$&4X?t$G$9!#$H$3$m$,!"(Bmule-2.0 $B$G$O$3$N4X?t$,K>$`F0:n$r$7$F(B
$B$/$l$J$/$F:$$C$F$$$^$9!#$I$N$h$&$K$9$l$P!"(Bmule $B$G;H$($k$h$&(B
$B$K$J$k$+$*65$(2<$5$$!#(B


(defun num-to-kanji-region (start end &optional hexadecimal)
  "region $BFb$N?tCM(B(10$B?J(B)$B$rBP1~$9$k(BEUC$B%3!<%I$N4A;z$KCV$-49$($k(B
hexadecimal $B$,(B non-nil $B$@$H(B16$B?J$N?tCM$r07$&(B($B$h$&$K$7$?$$$1$I$^$@$G$-$F$J$$(B)"
  (interactive "r\nP")
  (save-excursion
    (let (number kanji kanji-string
 (pattern "[^0-9]\\([4-6][0-9][0-9][0-9][0-9]\\)[^0-9]"))
      (if hexadecimal
  (setq pattern "[x\W]\\([a-f][0-9a-f][0-9a-f][0-9a-f]\\)[^0-9a-f]"))
      (goto-char start)
      (while (re-search-forward pattern end t )
(setq number (string-to-int
      (buffer-substring (match-beginning 1) (match-end 1))))
(setq kanji (format "%c%c" (/ number 256) (% number 256)))
(goto-char (match-end 1))
(delete-region (match-beginning 1) (match-end 1))
(insert kanji)
(setq kanji-string (concat kanji-string kanji))
)
      (if kanji-string (message kanji-string))
      )
    )
  )

--
                                      $B$$$=$d$^!w#N#T#T%G!<%?(B
                                             Ballroom Dancer
                                                     TKFC #9
