function countUnicodeLines @tdata
put number of characters of tdata into tlength
set useunicode to true
put 1 into tlinecount
repeat with i = 1 to tlength step 2
if chartonum(char i to i+1 of tdata) is 10 then add 1 to tlinecount
end repeat
return tlinecount
end countUnicodeLines
function UnicodeLineOffset @tdata,pWhichline
put number of characters of tdata into tlength
set useunicode to true
put 1 into tlinecount
put 1 into tlineoffset
repeat with i = 1 to tlength step 2
if tlinecount is pWhichline then exit repeat
if chartonum(char i to i+1 of tdata) is 10 then
add 1 to tlinecount
put i+2 into tlineoffset
end if
end repeat
if pWhichline > tlinecount then put tlength + 1 into tlineoffset
return tlineoffset
end UnicodeLineOffset
function unicodeLineNum pFldname
put the unicodetext of fld pFldname into tUnicodeText
return countUnicodeLines(tUnicodeText)
end unicodeLineNum
function unicodeThisLine pFldname, pStart
put the unicodetext of fld pFldname into tUnicodeText
put UnicodeLineOffset(tUnicodeText,pStart) into startchar
put UnicodeLineOffset(tUnicodeText,pStart+1) - 1 into endchar
return (char startchar to endchar of tUnicodeText)
end unicodeThisLine
@ D cREVGeometryCacheIDs 1147191356594 10191145642691713 10071147207385282 10261147207577638 10291146262268931 10151145645610747 10111147191360650 10211147207635557 10301147214174401 10321146262268889 10141145713222812 10131147191366072 10221147207637657 10311145642745101 10091145642190897 10041147191420753 1024 cREVGeometrycache order total 16 cREVGeneral bookmarks handlerList prevHandler tempScript script jpFld x 0on mouseUp put clickCharChunk() into fld "tClickCharChunk" put clickLine() into fld "tClickLine" if clickCharChunk() is empty then put "" into fld "tClickChar" put "" into fld "tCharNum" put "" into fld "tClickLine" exit to top end if set the unicodeText of fld "tClickChar" to \ the unicodeText of clickCharChunk() set the useUnicode to true put charToNum(the unicodeText of clickCharChunk()) into tDec put "UnicodeHex: "& BaseConvert(tDec,10,16) &cr& \ "UnicodeDecimal: "&tDec into fld "tCharNum" end mouseUp @ d cREVTable @ currentview %耳無芳一の話
THE STORY OF MIMI-NASHI-HOICHI
小泉八雲 Lafcadio Hearn
戸川明三訳
七百年以上も昔の事、下ノ関海峡の壇ノ浦で、平家すなわち平族と、源氏すなわち源族との間の、永い争いの最後の戦闘が戦われた。この壇ノ浦で平家は、その一族の婦人子供ならびにその幼帝——今日安徳天皇として記憶されている——と共に、まったく滅亡した。そうしてその海と浜辺とは七百年間その怨霊に祟られていた……他の個処で私はそこに居る平家蟹という不思議な蟹の事を読者諸君に語った事があるが、それはその背中が人間の顔になっており、平家の武者の魂であると云われているのである。しかしその海岸一帯には、たくさん不思議な事が見聞きされる。闇夜には幾千となき幽霊火が、水うち際にふわふわさすらうか、もしくは波の上にちらちら飛ぶ——すなわち漁夫の呼んで鬼火すなわち魔の火と称する青白い光りである。そして風の立つ時には大きな叫び声が、戦の叫喚のように、海から聞えて来る。
平家の人達は以前は今よりも遥かに焦慮（もが）いていた。夜、漕ぎ行く船のほとりに立ち顕れ、それを沈めようとし、また水泳する人をたえず待ち受けていては、それを引きずり込もうとするのである。これ等の死者を慰めるために建立されたのが、すなわち赤間ヶ関の仏教の御寺なる阿彌陀寺であったが、その墓地もまた、それに接して海岸に設けられた。そしてその墓地の内には入水された皇帝と、その歴歴の臣下との名を刻みつけた幾箇かの石碑が立てられ、かつそれ等の人々の霊のために、仏教の法会がそこで整然（ちゃん）と行われていたのである。この寺が建立され、その墓が出来てから以後、平家の人達は以前よりも禍いをする事が少くなった。しかしそれでもなお引き続いておりおり、怪しい事をするのではあった——彼等が完き平和を得ていなかった事の証拠として。
幾百年か以前の事、この赤間ヶ関に芳一という盲人が住んでいたが、この男は吟誦して、琵琶を奏するに妙を得ているので世に聞えていた。子供の時から吟誦し、かつ弾奏する訓練を受けていたのであるが、まだ少年の頃から、師匠達を凌駕していた。本職の琵琶法師としてこの男は重もに、平家及び源氏の物語を吟誦するので有名になった、そして壇ノ浦の戦の歌を謡うと鬼神すらも涙をとどめ得なかったという事である。
芳一には出世の首途（かどで）の際、はなはだ貧しかったが、しかし助けてくれる深切な友があった。すなわち阿彌陀寺の住職というのが、詩歌や音楽が好きであったので、たびたび芳一を寺へ招じて弾奏させまた、吟誦さしたのであった。後になり住職はこの少年の驚くべき技倆にひどく感心して、芳一に寺をば自分の家とするようにと云い出したのであるが、芳一は感謝してこの申し出を受納した。それで芳一は寺院の一室を与えられ、食事と宿泊とに対する返礼として、別に用のない晩には、琵琶を奏して、住職を悦ばすという事だけが注文されていた。
ある夏の夜の事、住職は死んだ檀家の家で、仏教の法会を営むように呼ばれたので、芳一だけを寺に残して納所を連れて出て行った。それは暑い晩であったので、盲人芳一は涼もうと思って、寝間の前の縁側に出ていた。この縁側は阿彌陀寺の裏手の小さな庭を見下しているのであった。芳一は住職の帰来を待ち、琵琶を練習しながら自分の孤独を慰めていた。夜半も過ぎたが、住職は帰って来なかった。しかし空気はまだなかなか暑くて、戸の内ではくつろぐわけにはいかない、それで芳一は外に居た。やがて、裏門から近よって来る跫音が聞えた。誰れかが庭を横断して、縁側の処へ進みより、芳一のすぐ前に立ち止った——が、それは住職ではなかった。底力のある声が盲人の名を呼んだ——出し抜けに、無作法に、ちょうど、侍が下下（したじた）を呼びつけるような風に——
『芳一！』
芳一はあまりに吃驚（びっくり）してしばらくは返事も出なかった、すると、その声は厳しい命令を下すような調子で呼ばわった——
『芳一！』
『はい！』と威嚇する声に縮み上って盲人は返事をした——『私は盲目で御座います！——どなたがお呼びになるのか解りません！』
見知らぬ人は言葉をやわらげて言い出した、『何も恐わがる事はない、拙者はこの寺の近処に居るもので、お前の許（とこ）へ用を伝えるように言いつかって来たものだ。拙者の今の殿様と云うのは、大した高い身分の方で、今、たくさん立派な供をつれてこの赤間ヶ関に御滞在なされているが、壇ノ浦の戦場を御覧になりたいというので、今日、そこを御見物になったのだ。ところで、お前がその戦争（いくさ）の話を語るのが、上手だという事をお聞きになり、お前のその演奏をお聞きになりたいとの御所望である、であるから、琵琶をもち即刻拙者と一緒に尊い方方の待ち受けておられる家へ来るが宜い』
当時、侍の命令と云えば容易に、反くわけにはいかなかった。で、芳一は草履をはき琵琶をもち、知らぬ人と一緒に出て行ったが、その人は巧者に芳一を案内して行ったけれども、芳一はよほど急ぎ足で歩かなければならなかった。また手引きをしたその手は鉄のようであった。武者の足どりのカタカタいう音はやがて、その人がすっかり甲冑を著けている事を示した——定めし何か殿居（とのい）の衛士ででもあろうか、芳一の最初の驚きは去って、今や自分の幸運を考え始めた——何故かというに、この家来の人の「大した高い身分の人」と云った事を思い出し、自分の吟誦を聞きたいと所望された殿様は、第一流の大名に外ならぬと考えたからである。やがて侍は立ち止った。芳一は大きな門口に達したのだと覚った——ところで、自分は町のその辺には、阿彌陀寺の大門を外にしては、別に大きな門があったとは思わなかったので不思議に思った。「開門！」と侍は呼ばわった——すると閂を抜く音がして、二人は這入って行った。二人は広い庭を過ぎ再びある入口の前で止った。そこでこの武士は大きな声で「これ誰れか内のもの！ 芳一を連れて来た」と叫んだ。すると急いで歩く跫音、襖のあく音、雨戸の開く音、女達の話し声などが聞えて来た。女達の言葉から察して、芳一はそれが高貴な家の召使である事を知った。しかしどういう処へ自分は連れられて来たのか見当が付かなかった。が、それをとにかく考えている間もなかった。手を引かれて幾箇かの石段を登ると、その一番最後（しまい）の段の上で、草履をぬげと云われ、それから女の手に導かれて、拭（ふ）き込んだ板鋪のはてしのない区域を過ぎ、覚え切れないほどたくさんな柱の角を り、驚くべきほど広い畳を敷いた床を通り——大きな部屋の真中に案内された。そこに大勢の人が集っていたと芳一は思った。絹のすれる音は森の木の葉の音のようであった。それからまた何んだかガヤガヤ云っている大勢の声も聞えた——低音で話している。そしてその言葉は宮中の言葉であった。
芳一は気楽にしているようにと云われ、座蒲団が自分のために備えられているのを知った。それでその上に座を取って、琵琶の調子を合わせると、女の声が——その女を芳一は老女すなわち女のする用向きを取り締る女中頭だと判じた——芳一に向ってこう言いかけた——
『ただ今、琵琶に合わせて、平家の物語を語っていただきたいという御所望に御座います』
さてそれをすっかり語るのには幾晩もかかる、それ故芳一は進んでこう訊ねた——
『物語の全部は、ちょっとは語られませぬが、どの条下（くさり）を語れという殿様の御所望で御座いますか？』
女の声は答えた——
『壇ノ浦の戦（いくさ）の話をお語りなされ——その一条下（ひとくさり）が一番哀れの深い処で御座いますから』
芳一は声を張り上げ、烈しい海戦の歌をうたった——琵琶を以て、あるいは橈を引き、船を進める音を出さしたり、はッしと飛ぶ矢の音、人々の叫ぶ声、足踏みの音、兜にあたる刃の響き、海に陥る打たれたもの音等を、驚くばかりに出さしたりして。その演奏の途切れ途切れに、芳一は自分の左右に、賞讃の囁く声を聞いた、——「何という巧（うま）い琵琶師だろう！」——「自分達の田舎ではこんな琵琶を聴いた事がない！」——「国中に芳一のような謡い手はまたとあるまい！」するといっそう勇気が出て来て、芳一はますますうまく弾きかつ謡った。そして驚きのため周囲は森としてしまった。しかし終りに美人弱者の運命——婦人と子供との哀れな最期——双腕に幼帝を抱き奉った二位の尼の入水を語った時には——聴者はことごとく皆一様に、長い長い戦（おのの）き慄える苦悶の声をあげ、それから後というもの一同は声をあげ、取り乱して哭き悲しんだので、芳一は自分の起こさした悲痛の強烈なのに驚かされたくらいであった。しばらくの間はむせび悲しむ声が続いた。しかし、おもむろに哀哭の声は消えて、またそれに続いた非常な静かさの内に、芳一は老女であると考えた女の声を聞いた。
その女はこう云った——
『私共は貴方が琵琶の名人であって、また謡う方でも肩を並べるもののない事は聞き及んでいた事では御座いますが、貴方が今晩御聴かせ下すったようなあんなお腕前をお有ちになろうとは思いも致しませんでした。殿様には大層御気に召し、貴方に十分な御礼を下さる御考えである由を御伝え申すようにとの事に御座います。が、これから後六日の間毎晩一度ずつ殿様の御前（ごぜん）で演奏（わざ）をお聞きに入れるようとの御意に御座います——その上で殿様にはたぶん御帰りの旅に上られる事と存じます。それ故明晩も同じ時刻に、ここへ御出向きなされませ。今夜、貴方を御案内いたしたあの家来が、また、御迎えに参るで御座いましょう……それからも一つ貴方に御伝えするように申しつけられた事が御座います。それは殿様がこの赤間ヶ関に御滞在中、貴方がこの御殿に御上りになる事を誰れにも御話しにならぬようとの御所望に御座います。殿様には御忍びの御旅行ゆえ、かような事はいっさい口外致さぬようにとの御上意によりますので。……ただ今、御自由に御坊に御帰りあそばせ』
芳一は感謝の意を十分に述べると、女に手を取られてこの家の入口まで来、そこには前に自分を案内してくれた同じ家来が待っていて、家につれられて行った。家来は寺の裏の縁側の処まで芳一を連れて来て、そこで別れを告げて行った。
芳一の戻ったのはやがて夜明けであったが、その寺をあけた事には、誰れも気が付かなかった——住職はよほど遅く帰って来たので、芳一は寝ているものと思ったのであった。昼の中芳一は少し休息する事が出来た。そしてその不思議な事件については一言もしなかった。翌日の夜中に侍がまた芳一を迎えに来て、かの高貴の集りに連れて行ったが、そこで芳一はまた吟誦し、前囘の演奏が贏ち得たその同じ成功を博した。しかるにこの二度目の伺候中、芳一の寺をあけている事が偶然に見つけられた。それで朝戻ってから芳一は住職の前に呼びつけられた。住職は言葉やわらかに叱るような調子でこう言った、——
『芳一、私共はお前の身の上を大変心配していたのだ。目が見えないのに、一人で、あんなに遅く出かけては険難だ。何故、私共にことわらずに行ったのだ。そうすれば下男に供をさしたものに、それからまたどこへ行っていたのかな』
芳一は言い れるように返事をした——
『和尚様、御免下さいまし！ 少々私用が御座いまして、他の時刻にその事を処置する事が出来ませんでしたので』
住職は芳一が黙っているので、心配したというよりむしろ驚いた。それが不自然な事であり、何かよくない事でもあるのではなかろうかと感じたのであった。住職はこの盲人の少年があるいは悪魔につかれたか、あるいは騙されたのであろうと心配した。で、それ以上何も訊ねなかったが、ひそかに寺の下男に旨をふくめて、芳一の行動に気をつけており、暗くなってから、また寺を出て行くような事があったなら、その後を跟けるようにと云いつけた。
すぐその翌晩、芳一の寺を脱け出して行くのを見たので、下男達は直ちに提灯をともし、その後を跟けた。しかるにそれが雨の晩で非常に暗かったため、寺男が道路へ出ない内に、芳一の姿は消え失せてしまった。まさしく芳一は非常に早足で歩いたのだ——その盲目な事を考えてみるとそれは不思議な事だ、何故かと云うに道は悪るかったのであるから。男達は急いで町を通って行き、芳一がいつも行きつけている家へ行き、訊ねてみたが、誰れも芳一の事を知っているものはなかった。しまいに、男達は浜辺の方の道から寺へ帰って来ると、阿彌陀寺の墓地の中に、盛んに琵琶の弾じられている音が聞えるので、一同は吃驚した。二つ三つの鬼火——暗い晩に通例そこにちらちら見えるような——の外、そちらの方は真暗であった。しかし、男達はすぐに墓地へと急いで行った、そして提灯の明かりで、一同はそこに芳一を見つけた——雨の中に、安徳天皇の記念の墓の前に独り坐って、琵琶をならし、壇ノ浦の合戦の曲を高く誦して。その背後（うしろ）と周囲（まわり）と、それから到る処たくさんの墓の上に死者の霊火が蝋燭のように燃えていた。いまだかつて人の目にこれほどの鬼火が見えた事はなかった……
『芳一さん！——芳一さん！』下男達は声をかけた『貴方は何かに魅（ばか）されているのだ！……芳一さん！』
しかし盲人には聞えないらしい。力を籠めて芳一は琵琶を錚錚 と鳴らしていた——ますます烈しく壇ノ浦の合戦の曲を誦した。男達は芳一をつかまえ——耳に口をつけて声をかけた——
『芳一さん！——芳一さん！——すぐ私達と一緒に家にお帰んなさい！』
叱るように芳一は男達に向って云った——
『この高貴の方方の前で、そんな風に私の邪魔をするとは容赦はならんぞ』
事柄の無気味なに拘らず、これには下男達も笑わずにはいられなかった。芳一が何かに魅（ばか）されていたのは確かなので、一同は芳一を捕（つかま）え、その身体（からだ）をもち上げて起たせ、力まかせに急いで寺へつれ帰った——そこで住職の命令で、芳一は濡れた著物を脱ぎ、新しい著物を著せられ、食べものや、飲みものを与えられた。その上で住職は芳一のこの驚くべき行為をぜひ十分に説き明かす事を迫った。
芳一は長い間それを語るに躊躇していた。しかし、遂に自分の行為が実際、深切な住職を脅かしかつ怒らした事を知って、自分の緘黙を破ろうと決心し、最初、侍の来た時以来、あった事をいっさい物語った。
すると住職は云った……
『可哀そうな男だ。芳一、お前の身は今大変に危ういぞ！ もっと前にお前がこの事をすっかり私に話さなかったのはいかにも不幸な事であった！ お前の音楽の妙技がまったく不思議な難儀にお前を引き込んだのだ。お前は決して人の家を訪れているのではなくて、墓地の中に平家の墓の間で、夜を過していたのだという事に、今はもう心付かなくてはいけない——今夜、下男達はお前の雨の中に坐っているのを見たが、それは安徳天皇の記念の墓の前であった。お前が想像していた事はみな幻影（まぼろし）だ——死んだ人の訪れて来た事の外は。で、一度死んだ人の云う事を聴いた上は、身をその為（す）るがままに任したというものだ。もしこれまであった事の上に、またも、その云う事を聴いたなら、お前はその人達に八つ裂きにされる事だろう。しかし、いずれにしても早晩、お前は殺される……ところで、今夜私はお前と一緒にいるわけにいかぬ。私はまた一つ法会をするように呼ばれている。が、行く前にお前の身体を護るために、その身体に経文を書いて行かなければなるまい』
日没前住職と納所とで芳一を裸にし、筆を以て二人して芳一の、胸、背、頭、顔、頸、手足——身体中どこと云わず、足の裏にさえも——般若心経というお経の文句を書きつけた。それが済むと、住職は芳一にこう言いつけた。——
『今夜、私が出て行ったらすぐに、お前は縁側に坐って、待っていなさい。すると迎えが来る。が、どんな事があっても、返事をしたり、動いてはならぬ。口を利かず静かに坐っていなさい——禅定に入っているようにして。もし動いたり、少しでも声を立てたりすると、お前は切りさいなまれてしまう。恐（こ）わがらず、助けを呼んだりしようと思ってはいかぬ。——助けを呼んだところで助かるわけのものではないから。私が云う通りに間違いなくしておれば、危険は通り過ぎて、もう恐わい事はなくなる』
日が暮れてから、住職と納所とは出て行った、芳一は言いつけられた通り縁側に座を占めた。自分の傍の板鋪の上に琵琶を置き、入禅の姿勢をとり、じっと静かにしていた——注意して咳もせかず、聞えるようには息もせずに。幾時間もこうして待っていた。
すると道路の方から跫音のやって来るのが聞えた。跫音は門を通り過ぎ、庭を横断り、縁側に近寄って止った——すぐ芳一の正面に。
『芳一！』と底力のある声が呼んだ。が盲人は息を凝らして、動かずに坐っていた。
『芳一！』と再び恐ろしい声が呼ばわった。ついで三度——兇猛な声で——
『芳一』
芳一は石のように静かにしていた——すると苦情を云うような声で——
『返事がない！——これはいかん！……奴、どこに居るのか見てやらなけれやア』……
縁側に上る重もくるしい跫音がした。足はしずしずと近寄って——芳一の傍に止った。それからしばらくの間——その間、芳一は全身が胸の鼓動するにつれて震えるのを感じた——まったく森閑としてしまった。
遂に自分のすぐ傍（そば）であらあらしい声がこう云い出した——『ここに琵琶がある、だが、琵琶師と云っては——ただその耳が二つあるばかりだ！……道理で返事をしないはずだ、返事をする口がないのだ——両耳の外、琵琶師の身体は何も残っていない……よし殿様へこの耳を持って行こう——出来る限り殿様の仰せられた通りにした証拠に……』
その瞬時に芳一は鉄のような指で両耳を掴まれ、引きちぎられたのを感じた！ 痛さは非常であったが、それでも声はあげなかった。重もくるしい足踏みは縁側を通って退いて行き——庭に下り——道路の方へ通って行き——消えてしまった。芳一は頭の両側から濃い温いものの滴って来るのを感じた。が、あえて両手を上げる事もしなかった……
日の出前に住職は帰って来た。急いですぐに裏の縁側の処へ行くと、何んだかねばねばしたものを踏みつけて滑り、そして慄然（ぞっ）として声をあげた——それは提灯の光りで、そのねばねばしたものの血であった事を見たからである。しかし、芳一は入禅の姿勢でそこに坐っているのを住職は認めた——傷からはなお血をだらだら流して。
『可哀そうに芳一！』と驚いた住職は声を立てた——『これはどうした事か……お前、怪我をしたのか』……
住職の声を聞いて盲人は安心した。芳一は急に泣き出した。そして、涙ながらにその夜の事件を物語った。『可哀そうに、可哀そうに芳一！』と住職は叫んだ——『みな私の手落ちだ！——酷い私の手落ちだ！……お前の身体中くまなく経文を書いたに——耳だけが残っていた！ そこへ経文を書く事は納所に任したのだ。ところで納所が相違なくそれを書いたか、それを確かめておかなかったのは、じゅうじゅう私が悪るかった！……いや、どうもそれはもう致し方のない事だ——出来るだけ早く、その傷を治（なお）すより仕方がない……芳一、まア喜べ！——危険は今まったく済んだ。もう二度とあんな来客に煩わされる事はない』
深切な医者の助けで、芳一の怪我はほどなく治った。この不思議な事件の話は諸方に広がり、たちまち芳一は有名になった。貴い人々が大勢赤間ヶ関に行って、芳一の吟誦を聞いた。そして芳一は多額の金員を贈り物に貰った——それで芳一は金持ちになった……しかしこの事件のあった時から、この男は耳無芳一という呼び名ばかりで知られていた。
底本：「小泉八雲全集第八卷家庭版」第一書房
1937（昭和12）年1月15日発行
※「旧字、旧仮名で書かれた作品を、現代表記にあらためる際の作業指針」に基づいて、底本の表記をあらためました。
その際、以下の置き換えをおこないました。
「敢て→あえて 遊ぶ→あそぶ 或る→ある 或→あるい 如何にも→いかにも 何れ→いずれ 一切→いっさい 一層→いっそう 未だ嘗て→いまだかつて 徐ろに→おもむろに 折折→おりおり 且つ→かつ 斯様→かよう 位→くらい 悉く→ことごとく 此処→ここ 此→この 然るに→しかるに 暫く→しばらく 重重→じゅうじゅう 悉皆→すっかり 則ち→すわなち 是非→ぜひ 其処→そこ 其→その 沢山→たくさん 只→ただ 忽ち→たちまち 度度→たびたび 多分→たぶん 為め→ため 丁度→ちょうど 一寸→ちょっと 就いて→ついて て戴く→ていただく て居る→ている・ておる て置く→ておく て見る→てみる 何処→どこ 処で→ところで 何誰→どなた 兎に角→とにかく 何の→どの 中中→なかなか 并びに→ならびに に連れて→につれて には行かない→にはいかない 筈→はず 甚だ→はなはだ 密かに→ひそかに 酷く→ひどく 程→ほど 程なく→ほどなく 正しく→まさしく 益々→ますます 又・亦→また 全く→まったく 寧ろ→むしろ 若し→もし 若しくは→もしくは 余程→よほど」
※底本は、物を数える際や地名などに用いる「ヶ」（区点番号5-86）を、大振りにつくっています。
入力：京都大学電子テクスト研究会入力班（訓練者一同）
校正：京都大学電子テクスト研究会校正班（大久保ゆう）
2004年3月29日作成
青空文庫作成ファイル：
このファイルは、インターネットの図書館、青空文庫（http://www.aozora.gr.jp/）で作られました。入力、校正、制作にあたったのは、ボランティアの皆さんです。
●表記について
このファイルは W3C 勧告 XHTML1.1 にそった形式で作成されています。
「くの字点」をのぞくJIS X 0213にある文字は、画像化して埋め込みました。
cREVGeneral scriptChecksum 82JU bookmarks revUniqueID 1145642190897 handlerList mouseUpscriptSelection char 560 to 559 prevHandler mouseUp tempScript script 4on mouseUp
put clickCharChunk() into fld "tClickCharChunk"
put clickLine() into fld "tClickLine"
if clickCharChunk() is empty then
put "" into fld "tClickChar"
put "" into fld "tCharNum"
put "" into fld "tClickLine"
exit to top
end if
set the unicodeText of fld "tClickChar" to \
the unicodeText of clickCharChunk()
set the useUnicode to true
put charToNum(the unicodeText of clickCharChunk()) into tDec
put "UnicodeHex: "& BaseConvert(tDec,10,16) &cr& \
"UnicodeDecimal: "&tDec into fld "tCharNum"
end mouseUp
3q!N 0nq THE STORY OF MIMI-NASHI-HOICHI \lQk0 Lafcadio Hearn b8]fN 3 0 Nv~^tNN 0f0nN0N 0Εmw\0nX0mf0g0^s[0Y0j00a^se0h0nl0Y0j00ane0h0n0n0l80DN0D0ng _0nb&0Lb&000_00S0nX0mf0g^s[0o00]0nN e0nZfN[PO0j00s0k0]0n^|^ Ne[_Y)v0h0W0fa0U00f0D0 0hQq0k00~0c0_0OnN0W0_00]0F0W0f0]0nmw0hm\0h0oNv~^t0]0n`( 0ky_000f0D0_ & &N0nP Q0gy0o0]0S0k\E0^s[0h0D0FN ` p0j0nN0T0k0c0_N0L0B00L00]00o0]0nN-0LN0nT0k0j0c0f0J00^s[0nkf0nB0g0B00hN000f0D00n0g0B000W0K0W0]0nmw\N ^/0k0o00_0O0U0N ` p0jN0L^0M0U000Y 0k0o^~SC0h0j0M^} pk0L0l40F0a0k0u00u00U0Y00F0K000W0O0ol0nN 0k0a00a00v 0Y0j00aoY+0nT|00gThe ClickCharChunk:
cREVGeneral revUniqueID 1145645610747 The ClickCharChunk: tClickCharChunk cREVGeneral revUniqueID 1145713222812 bookmarks handlerList tempScript prevHandler script char 1 to 2 of field 1 Label Field cREVTable currentview 0The ClickLine:
cREVGeneral revUniqueID 1146262268889 The ClickLine: tClickLine y cREVGeneral revUniqueID 1146262268931 line 1 of field 1 getUniChars e on mouseUp put fld "tLineNum" into tLineNum put fld "tStart" into tStart put fld "tEnd" into tEnd set the unicodeText of fld "tResult" to \ unicodeGetChars(jpFld,tLineNum,tStart,tEnd) end mouseUp function unicodeGetChars pFldname, pLineNum, pStartChar, pEndChar put the unicodetext of fld pFldname into tdata put UnicodeLineOffset(tdata,pLineNum) into startchar put UnicodeLineOffset(tdata,pLineNum+1) - 1 into endchar put (char startchar to endchar of tdata) into tLineData if pEndChar<0 then put (the num of chars of tLineData \ + (pEndChar*2))/2 into pEndChar set the useUnicode to true repeat with i = (pStartChar*2-1) to (pEndChar-1)*2 step 2 put char i to i+1 of tLineData after tString end repeat return tString end unicodeGetChars ^ Get Japanese Characters cREVGeneral scriptChecksum + 1;?&& bookmarks revUniqueID 1147191356594 handlerList mouseUp unicodeGetCharsscriptSelection char 783 to 782 prevHandler mouseUp tempScript scripton mouseUp
put fld "tLineNum" into tLineNum
put fld "tStart" into tStart
put fld "tEnd" into tEnd
set the unicodeText of fld "tResult" to \
unicodeGetChars(jpFld,tLineNum,tStart,tEnd)
end mouseUp
function unicodeGetChars pFldname, pLineNum, pStartChar, pEndChar
put the unicodetext of fld pFldname into tdata
put UnicodeLineOffset(tdata,pLineNum) into startchar
put UnicodeLineOffset(tdata,pLineNum+1) - 1 into endchar
put (char startchar to endchar of tdata) into tLineData
if pEndChar<0 then put (the num of chars of tLineData \
+ (pEndChar*2))/2 into pEndChar
set the useUnicode to true
repeat with i = (pStartChar*2-1) to (pEndChar-1)*2 step 2
put char i to i+1 of tLineData after tString
end repeat
return tString
end unicodeGetChars
tLineNum -x on returnInField send mouseUp to btn "getUniChars" end returnInField on enterInField send mouseUp to btn "getUniChars" end enterInField d * cREVGeneral scriptChecksum Usې|-kw% bookmarks revUniqueID 1147191360650 handlerList returnInField enterInFieldscriptSelection char 143 to 142 prevHandler tempScript scripton returnInField
send mouseUp to btn "getUniChars"
end returnInField
on enterInField
send mouseUp to btn "getUniChars"
end enterInField
3 tStart -x on returnInField send mouseUp to btn "getUniChars" end returnInField on enterInField send mouseUp to btn "getUniChars" end enterInField * cREVGeneral scriptChecksum Usې|-kw% bookmarks revUniqueID 1147191366072 handlerList returnInField enterInFieldscriptSelection char 143 to 142 prevHandler tempScript scripton returnInField
send mouseUp to btn "getUniChars"
end returnInField
on enterInField
send mouseUp to btn "getUniChars"
end enterInField
1 tResult )` ^ m cREVGeneral revUniqueID 1147191420753 \lQk0 Lafcadio Hearn ` g k tEnd -x on returnInField send mouseUp to btn "getUniChars" end returnInField on enterInField send mouseUp to btn "getUniChars" end enterInField M * cREVGeneral scriptChecksum Usې|-kw% bookmarks revUniqueID 1147207385282 handlerList returnInField enterInFieldscriptSelection char 143 to 142 prevHandler tempScript scripton returnInField
send mouseUp to btn "getUniChars"
end returnInField
on enterInField
send mouseUp to btn "getUniChars"
end enterInField
-1 Label Field d cREVTable currentview 2The line number:
cREVGeneral revUniqueID 1147207577638 The line number: Label Field \ f cREVTable currentview 1The start char:
cREVGeneral revUniqueID 1147207635557 The start char: Label Field ` cREVTable currentview /The end char:
cREVGeneral revUniqueID 1147207637657 The end char: Line K Zd [z[ cREVGeneral revUniqueID 1147214174401