ruby-list

田守と申します。その存在はちょっと前から偶然知ってたんですが(Webのサー
チでひっかかったんで試しにダウンロードしてちょっと動かしてそのまま）
TRY PC!の記事を読んで思いだし、rubyをいじりだして面白さにはまっている
ところです。

さて、（ほんとは扱いたくないんだけど）いわゆる半角カナを全角に直すプロ
グラムを書いていて気が付いたんですが…
＃やっつけプログラミングなものでお恥ずかしい…

----
#!/usr/local/bin/ruby
$KCODE = "e"
require "kconv"
require "jcode"

module HanZen
  Table1 = { # 変換テーブル(EUC)
    0xa1 => [0xa1,0xa3],    0xa2 => [0xa1,0xd6],    0xa3 => [0xa1,0xd7],
    0xa4 => [0xa1,0xa2],    0xa5 => [0xa1,0xa6],    0xa6 => [0xa5,0xf2],
    0xa7 => [0xa5,0xa1],    0xa8 => [0xa5,0xa3],    0xa9 => [0xa5,0xa5],
    0xaa => [0xa5,0xa7],    0xab => [0xa5,0xa9],    0xac => [0xa5,0xe3],
    0xad => [0xa5,0xe5],    0xae => [0xa5,0xe7],    0xaf => [0xa5,0xc3],
    0xb0 => [0xa1,0xbc],    0xb1 => [0xa5,0xa2],    0xb2 => [0xa5,0xa4],
    0xb3 => [0xa5,0xa6],    0xb4 => [0xa5,0xa8],    0xb5 => [0xa5,0xaa],
    0xb6 => [0xa5,0xab],    0xb7 => [0xa5,0xad],    0xb8 => [0xa5,0xaf],
    0xb9 => [0xa5,0xb1],    0xba => [0xa5,0xb3],    0xbb => [0xa5,0xb5],
    0xbc => [0xa5,0xb7],    0xbd => [0xa5,0xb9],    0xbe => [0xa5,0xbb],
    0xbf => [0xa5,0xbd],    0xc0 => [0xa5,0xbf],    0xc1 => [0xa5,0xc1],
    0xc2 => [0xa5,0xc4],    0xc3 => [0xa5,0xc6],    0xc4 => [0xa5,0xc8],
    0xc5 => [0xa5,0xca],    0xc6 => [0xa5,0xcb],    0xc7 => [0xa5,0xcc],
    0xc8 => [0xa5,0xcd],    0xc9 => [0xa5,0xce],    0xca => [0xa5,0xcf],
    0xcb => [0xa5,0xd2],    0xcc => [0xa5,0xd5],    0xcd => [0xa5,0xd8],
    0xce => [0xa5,0xdb],    0xcf => [0xa5,0xde],    0xd0 => [0xa5,0xdf],
    0xd1 => [0xa5,0xe0],    0xd2 => [0xa5,0xe1],    0xd3 => [0xa5,0xe2],
    0xd4 => [0xa5,0xe4],    0xd5 => [0xa5,0xe6],    0xd6 => [0xa5,0xe8],
    0xd7 => [0xa5,0xe9],    0xd8 => [0xa5,0xea],    0xd9 => [0xa5,0xeb],
    0xda => [0xa5,0xec],    0xdb => [0xa5,0xed],    0xdc => [0xa5,0xef],
    0xdd => [0xa5,0xf3],    0xde => [0xa1,0xab],    0xdf => [0xa1,0xac] 
  }

  def Hankaku2ZenkakuEuc( str )
    i = 0
    result = "";    bbb = "xx";    bbb2 = "x"
    while i < str.length
      if str.mbchar?( str[i,1] ) then
	# 全角文字(の判定はなんかうまくいってないのでここは無視してください）
	result << str[i,2]
	i = i + 2
      else
	# 半角
	if str[i] >= 0xa0 and str[i] <= 0xdf then
	  # 半角カナ
	  printf("%c", str[i])
	  p Table1[str[i]]
	  if Table1[str[i]] then
	    bbb[0] = Table1[str[i]][0];  bbb[1] = Table1[str[i]][1]
	  else
	    if Table1[str[i]] = 192 then # 謎のエラー回避
	      bbb[0] = 0xa5;  bbb[1] = 0xbf
	    end
	  end
	  result << bbb
	  i = i + 1
	else
	  bbb2[0] = str[i]
	  result << bbb2
	  i = i + 1
	end
      end
    end
    return result
  end
  module_function :Hankaku2ZenkakuEuc
end

test = "" # ←ここに半角カナ文字列を入れる

str = HanZen::Hankaku2ZenkakuEuc( Kconv.toeuc(test))

print Kconv.tojis( str ),"\n"

---
謎のエラー と書いてあるように0xc0(=192)（半角のタ）というキーで
ハッシュをひくとなぜかnilが返されてしまいます。これはバグ？

unix,winの971118のどちらでも起きました。

それから今は不細工な方法で文字コードから文字列へ変換して文字列の
concatinateをやっているのですが、文字コードを簡単に文字列にくっつける
方法はありませんでしょうか。

＃あともっとスマートな半角全角変換方法も…

                                                田守＠Sony

Thread

Prev Next

In This Thread

Prev Next

[#5209] Please append me to ruby-ML — IWAMURO Motonori <iwa@...>

[#5210] みなさんはじめまして — "kozuka" <kozuka@...>

[#5214] 参加します — "MORIOKA,Toru" <vette@...>

[#5215] Join me. — "Motoyuki S." <moto@...>

[#5216] My first coding. — HAYASHI Daihachi <hayashi@...>

[#5218] base64.rb — HYOUDOU Kouichi /note <hyoudo@...>

[#5219] ruby for perl users — Noritsugu Nakamura <nnakamur@...>

[#5222] Re:ruby for perl users — yamakawa@...

[#5223] Re:ruby for perl users — yamakawa@...

[#5239] rbc-0_5.gz — toyofuku@...

[#5243] read from subprocess — Kikutani Makoto <kikutani@...>

[#5246] byte compile and ruby embeded system — Kikutani Makoto <kikutani@...>

[#5268] Re: ruby package for debian — Kikutani Makoto <kikutani@...>

[#5282] Re: rbc-0_5.gz — toyofuku@...

[#5283] None — "Koji Sago" <sago_koji@...>

[#5284] sub — "Motoyuki S." <moto@...>

[#5293] Re: rbc-0_5.gz — toyofuku@...

[#5294] binmode (Re: rbc-0_5.gz) — toyofuku@...

[#5300] Win32用の Rubyでの tkの使用 — Tomoaki Takebayashi <tota@...>

[#5304] Re^2: dbm & flock — 青山 和光 <PXN11625@...>

[#5306] Re^3: dbm & flock — 青山 和光 <PXN11625@...>

[#5313] Mail to HTML — akira yamada / やまだあきら <akira@...>

[#5314] 正規表現について — futami ryutaro <theworld.anet.ne.jp@...>

[#5320] ruby 1.0-971118 released — matz@... (Yukihiro Matsumoto)

[#5322] Questions on specs and threads — Kazuhisa Yanagawa <katze@...>

[#5329] RE: 正規表現について — futami ryutaro <theworld@...>

[#5336] DBM.delete_if bug ? — 藤本尚邦 / FUJIMOTO Hisakuni <hisa@...>

[#5339] Hi — senda@...

[#5349] [How] Send ITERATOR BLOCK to "super" — Shin-ichiro HARA <sinara@...>

[#5358] strange bracket problem — Kikutani Makoto <kikutani@...>

[#5360] help — "Takahiro Kobayashi" <tkoba@...>

[#5365] mirror — Shunichi Matsumoto <mat@...>

[#5373] オブジェクト指向用語 — KIMURA Koichi <kkimura@...>

[#5380] Hash bug ?? — tamori@...

[#5397] curses module extconf.rb and Slackware 3.1 — Noritsugu Nakamura <nnakamur@...>

[#5398] 配列への追加について — a-nisida@... (西田明良)

[#5405] XeasyGraphic Module 0.1 — Noritsugu Nakamura <nnakamur@...>

[#5409] rbc.rb output — Noritsugu Nakamura <nnakamur@...>

[#5413] ruby for Linux RPM — Shoichi OZAWA <ozawa@...>

[#5419] blade mirrors netlab — Shin-ichiro HARA <sinara@...>

[#5421] TokyoNet mirrors netlab — TAKEUCHI Kahori (竹内かほり) <take-k@...>

[#5432] Re: curses module extconf.rb and Slackwa — 岡部 勝幸 <HGC02147@...>

[#5443] push build-in funciton ? — Kikutani Makoto <kikutani@...>

[#5444] Re: Mail to HTML — takagi@... (TAKAGI Hiromitsu)

[#5449] Re: curses module extconf.rb and Slackwa — 岡部 勝幸 <HGC02147@...>

[#5470] communicate with subprocess part II — Kikutani Makoto <kikutani@...>

[#5477] Re: Mail to HTML — takagi@... (TAKAGI Hiromitsu)

[#5478] GD and Japanese character — Noritsugu Nakamura <nnakamur@...>

[#5479] Thread and system — "Motoyuki S." <moto@...>

[#5480] between? bug — Jun Hattori <jhat@...>

[ruby-list:5380] Hash bug ??

Thread

In This Thread

[#5304] Re^2: dbm & flock — 青山　和光 <PXN11625@...>

[#5306] Re^3: dbm & flock — 青山　和光 <PXN11625@...>

[#5432] Re: curses module extconf.rb and Slackwa — 岡部　勝幸 <HGC02147@...>

[#5449] Re: curses module extconf.rb and Slackwa — 岡部　勝幸 <HGC02147@...>