文字の変換

 投稿者：山中和義  投稿日：2009年 5月12日(火)13時39分43秒
  　　　　　　　　　　　　ひらがな
　　　　　　　　　　　　　↑↓
　半角カタカナ　→　全角カタカナ
　　　　　　　　←
　半角数字　　　　　全角数字
　半角英字　　　　　全角英字
　半角記号　　　　　全角記号

を行うサブルーチンをつくってみました。

DECLARE EXTERNAL FUNCTION StrConv.ASC$ ,StrConv.JIS$ !半角、全角
DECLARE EXTERNAL FUNCTION StrConv.ToHiragana$ ,StrConv.ToKatakana$ !ひらがな、カタカナ


LET t$="BASICプログラミングーぅ～！"
PRINT ASC$(t$) !半角へ
PRINT JIS$(ASC$(t$)) !全角へ

PRINT ToKatakana$("abcXYZあいうカキク890 *?")
PRINT ToHiragana$("abcXYZあいうカキク890 *?")

END


MODULE StrConv !文字の変換

!「半角 → 全角」対応表　※JISコード（JIS X 0201）順
DATA " ","　" !32
DATA "!","！" !33
DATA """","”" !34
DATA "#","＃" !35
DATA "$","＄" !36
DATA "%","％" !37
DATA "&","＆" !38
DATA "'","’" !39
DATA "(","（" !40
DATA ")","）" !41
DATA "*","＊" !42
DATA "+","＋" !43
DATA ",","，" !44
DATA "-","－" !45
DATA ".","．" !46
DATA "/","／" !47
DATA "0","０" !48
DATA "1","１" !49
DATA "2","２" !50
DATA "3","３" !51
DATA "4","４" !52
DATA "5","５" !53
DATA "6","６" !54
DATA "7","７" !55
DATA "8","８" !56
DATA "9","９" !57
DATA ":","：" !58
DATA ";","；" !59
DATA "<","＜" !60
DATA "=","＝" !61
DATA ">","＞" !62
DATA "?","？" !63
DATA "@","＠" !64
DATA "A","Ａ" !65
DATA "B","Ｂ" !66
DATA "C","Ｃ" !67
DATA "D","Ｄ" !68
DATA "E","Ｅ" !69
DATA "F","Ｆ" !70
DATA "G","Ｇ" !71
DATA "H","Ｈ" !72
DATA "I","Ｉ" !73
DATA "J","Ｊ" !74
DATA "K","Ｋ" !75
DATA "L","Ｌ" !76
DATA "M","Ｍ" !77
DATA "N","Ｎ" !78
DATA "O","Ｏ" !79
DATA "P","Ｐ" !80
DATA "Q","Ｑ" !81
DATA "R","Ｒ" !82
DATA "S","Ｓ" !83
DATA "T","Ｔ" !84
DATA "U","Ｕ" !85
DATA "V","Ｖ" !86
DATA "W","Ｗ" !87
DATA "X","Ｘ" !88
DATA "Y","Ｙ" !89
DATA "Z","Ｚ" !90
DATA "[","［" !91
DATA "\","￥" !92
DATA "]","］" !93
DATA "^","＾" !94
DATA "_","＿" !95
DATA "`","‘" !96
DATA "a","ａ" !97
DATA "b","ｂ" !98
DATA "c","ｃ" !99
DATA "d","ｄ" !100
DATA "e","ｅ" !101
DATA "f","ｆ" !102
DATA "g","ｇ" !103
DATA "h","ｈ" !104
DATA "i","ｉ" !105
DATA "j","ｊ" !106
DATA "k","ｋ" !107
DATA "l","ｌ" !108
DATA "m","ｍ" !109
DATA "n","ｎ" !110
DATA "o","ｏ" !111
DATA "p","ｐ" !112
DATA "q","ｑ" !113
DATA "r","ｒ" !114
DATA "s","ｓ" !115
DATA "t","ｔ" !116
DATA "u","ｕ" !117
DATA "v","ｖ" !118
DATA "w","ｗ" !119
DATA "x","ｘ" !120
DATA "y","ｙ" !121
DATA "z","ｚ" !122
DATA "{","｛" !123
DATA "|","｜" !124
DATA "}","｝" !125
DATA "~","～" !126

DATA "｡","。" !161
DATA "｢","「" !162
DATA "｣","」" !163
DATA "､","、" !164
DATA "･","・" !165
DATA "ｦ","ヲ" !166
DATA "ｧ","ァ" !167
DATA "ｨ","ィ" !168
DATA "ｩ","ゥ" !169
DATA "ｪ","ェ" !170
DATA "ｫ","ォ" !171
DATA "ｬ","ャ" !172
DATA "ｭ","ュ" !173
DATA "ｮ","ョ" !174
DATA "ｯ","ッ" !175
DATA "ｰ","ー" !176
DATA "ｱ","ア" !177
DATA "ｲ","イ" !178
DATA "ｳ","ウ" !179
DATA "ｴ","エ" !180
DATA "ｵ","オ" !181
DATA "ｶ","カ" !182
DATA "ｷ","キ" !183
DATA "ｸ","ク" !184
DATA "ｹ","ケ" !185
DATA "ｺ","コ" !186
DATA "ｻ","サ" !187
DATA "ｼ","シ" !188
DATA "ｽ","ス" !189
DATA "ｾ","セ" !190
DATA "ｿ","ソ" !191
DATA "ﾀ","タ" !192
DATA "ﾁ","チ" !193
DATA "ﾂ","ツ" !194
DATA "ﾃ","テ" !195
DATA "ﾄ","ト" !196
DATA "ﾅ","ナ" !197
DATA "ﾆ","ニ" !198
DATA "ﾇ","ヌ" !199
DATA "ﾈ","ネ" !200
DATA "ﾉ","ノ" !201
DATA "ﾊ","ハ" !202
DATA "ﾋ","ヒ" !203
DATA "ﾌ","フ" !204
DATA "ﾍ","ヘ" !205
DATA "ﾎ","ホ" !206
DATA "ﾏ","マ" !207
DATA "ﾐ","ミ" !208
DATA "ﾑ","ム" !209
DATA "ﾒ","メ" !210
DATA "ﾓ","モ" !211
DATA "ﾔ","ヤ" !212
DATA "ﾕ","ユ" !213
DATA "ﾖ","ヨ" !214
DATA "ﾗ","ラ" !215
DATA "ﾘ","リ" !216
DATA "ﾙ","ル" !217
DATA "ﾚ","レ" !218
DATA "ﾛ","ロ" !219
DATA "ﾜ","ワ" !220
DATA "ﾝ","ン" !221
DATA "ﾞ","゛" !222
DATA "ﾟ","゜" !223


!「全角カタカナ → 半角カタカナ」の対応表
DATA "ァ","ｧ", "ア","ｱ", "ィ","ｨ", "イ","ｲ", "ゥ","ｩ", "ウ","ｳ", "ェ","ｪ", "エ","ｴ", "ォ","ｫ", "オ","ｵ"
DATA "カ","ｶ", "ガ","ｶﾞ", "キ","ｷ", "ギ","ｷﾞ", "ク","ｸ", "グ","ｸﾞ", "ケ","ｹ", "ゲ","ｹﾞ", "コ","ｺ", "ゴ","ｺﾞ"
DATA "サ","ｻ", "ザ","ｻﾞ", "シ","ｼ", "ジ","ｼﾞ", "ス","ｽ", "ズ","ｽﾞ", "セ","ｾ", "ゼ","ｾﾞ", "ソ","ｿ", "ゾ","ｿﾞ"
DATA "タ","ﾀ", "ダ","ﾀﾞ", "チ","ﾁ", "ヂ","ﾁﾞ", "ッ","ｯ", "ツ","ﾂ", "ヅ","ﾂﾞ", "テ","ﾃ", "デ","ﾃﾞ", "ト","ﾄ", "ド","ﾄﾞ"
DATA "ナ","ﾅ", "ニ","ﾆ", "ヌ","ﾇ", "ネ","ﾈ", "ノ","ﾉ"
DATA "ハ","ﾊ", "バ","ﾊﾞ", "パ","ﾊﾟ", "ヒ","ﾋ", "ビ","ﾋﾞ", "ピ","ﾋﾟ", "フ","ﾌ", "ブ","ﾌﾞ", "プ","ﾌﾟ", "ヘ","ﾍ", "ベ","ﾍﾞ", "ペ","ﾍﾟ", "ホ","ﾎ", "ボ","ﾎﾞ", "ポ","ﾎﾟ"
DATA "マ","ﾏ", "ミ","ﾐ", "ム","ﾑ", "メ","ﾒ", "モ","ﾓ"
DATA "ャ","ｬ", "ヤ","ﾔ", "ュ","ｭ", "ユ","ﾕ", "ョ","ｮ", "ヨ","ﾖ"
DATA "ラ","ﾗ", "リ","ﾘ", "ル","ﾙ", "レ","ﾚ", "ロ","ﾛ"
DATA "ヮ","ﾜ", "ワ","ﾜ", "ヰ","ｲ", "ヱ","ｴ", "ヲ","ｦ", "ン","ﾝ", "ヴ","ｳﾞ", "ヵ","ｶ", "ヶ","ｹ"


SHARE STRING JisTBL$(0 TO 255), KataTBL$(9505 TO 9590)
DO
   READ IF MISSING THEN EXIT DO : a$,aa$ !インデックス、変換値
   IF ORD(a$)<256 THEN
      LET JisTBL$(ORD(a$))=aa$ !ハッシュ表をつくる
   ELSE
      LET KataTBL$(ORD(a$))=aa$
   END IF
LOOP
!-------------------- ここまでが初期処理

つづく 		 

Re: 文字の変換

 投稿者：山中和義  投稿日：2009年 5月12日(火)13時42分8秒
  > No.374[元記事へ]

つづき

!関数、サブルーチンの定義

PUBLIC FUNCTION ASC$
EXTERNAL FUNCTION ASC$(x$) !全角文字を半角文字に変換する
   LET xx$=""
   FOR i=1 TO LEN(x$) !対象の文字列について
      LET t=ORD(x$(i:i))

      SELECT CASE t
      CASE 9008 TO 9017 !数字０～９
         LET w$=CHR$(t-ORD("０")+ORD("0"))

      CASE 9025 TO 9050 !英字Ａ～Ｚ
         LET w$=CHR$(t-ORD("Ｚ")+ORD("Z"))
      CASE 9057 TO 9082 !英字ａ～ｚ
         LET w$=CHR$(t-ORD("ｚ")+ORD("z"))

      CASE 9505 TO 9590 !カタカナ
         LET w$=KataTBL$(t) !変換表を参照して置き換える

      CASE 8481 !記号
         LET w$=" "
      CASE 8490
         LET w$="!"
      CASE 8521
         LET w$=""""
      CASE 8564
         LET w$="#"
      CASE 8560
         LET w$="$"
      CASE 8563
         LET w$="%"
      CASE 8565
         LET w$="&"
      CASE 8519
         LET w$="'"
      CASE 8522
         LET w$="("
      CASE 8523
         LET w$=")"
      CASE 8566
         LET w$="*"
      CASE 8540
         LET w$="+"
      CASE 8484
         LET w$=","
      CASE 8541
         LET w$="-"
      CASE 8485
         LET w$="."
      CASE 8511
         LET w$="/"
      CASE 8487
         LET w$=":"
      CASE 8488
         LET w$=";"
      CASE 8547
         LET w$="<"
      CASE 8545
         LET w$="="
      CASE 8548
         LET w$=">"
      CASE 8489
         LET w$="?"
      CASE 8567
         LET w$="@"
      CASE 8526
         LET w$="["
      CASE 8559
         LET w$="\"
      CASE 8527
         LET w$="]"
      CASE 8496
         LET w$="^"
      CASE 8498
         LET w$="_"
      CASE 8518
         LET w$="`"
      CASE 8528
         LET w$="{"
      CASE 8515
         LET w$="|"
      CASE 8529
         LET w$="}"
      CASE 8513
         LET w$="~"

      CASE 8483 !記号　※カタカナ
         LET w$="｡"
      CASE 8534
         LET w$="｢"
      CASE 8535
         LET w$="｣"
      CASE 8482
         LET w$="､"
      CASE 8486
         LET w$="･"
      CASE 8508
         LET w$="ｰ"
      CASE 8491
         LET w$="ﾞ"
      CASE 8492
         LET w$="ﾟ"

      CASE ELSE
         LET w$=CHR$(t) !そのまま
      END SELECT

      LET xx$=xx$ & w$
   NEXT i
   LET ASC$=xx$
END FUNCTION

PUBLIC FUNCTION JIS$
EXTERNAL FUNCTION JIS$(x$) !半角文字を全角文字に変換する
   LET xx$=""
   LET i=1
   DO WHILE i<=LEN(x$) !対象文字を順に調べる
      LET t=ORD(x$(i:i))

      SELECT CASE t
      CASE 32 TO 126 !記号・英数字なら
         LET xx$=xx$ & JisTBL$(t) !変換表を参照して置き換える
      CASE 161 TO 223 !半角カタカナなら
         IF i<LEN(x$) THEN LET tt=ORD(x$(i+1:i+1)) ELSE LET tt=0
         IF tt=222 AND ( (t>=182 AND t<=196) OR (t>=202 AND t<=206) ) THEN !カ～ト、ハ～ホの濁点
            LET xx$=xx$ & CHR$(ORD(JisTBL$(t))+1) !１文字とする
            LET i=i+1
         ELSEIF tt=223 AND (t>=202 AND t<=206) THEN !ハ～ホの半濁点
            LET xx$=xx$ & CHR$(ORD(JisTBL$(t))+2)
            LET i=i+1
         ELSE
            LET xx$=xx$ & JisTBL$(t)
         END IF
      CASE ELSE !それ以外なら
         LET xx$=xx$ & CHR$(t) !そのまま
      END SELECT

      LET i=i+1 !次へ
   LOOP

   LET JIS$=xx$
END FUNCTION

PUBLIC FUNCTION ToHiragana$
EXTERNAL FUNCTION ToHiragana$(x$) !全角カタカナをひらがなに変換する
   LET xx$=x$
   FOR i=1 TO LEN(x$) !対象文字を順に調べる
      LET t=ORD(x$(i:i))
      IF t<ORD("ァ") OR t>ORD("ン") THEN
      ELSE
         LET xx$(i:i)=CHR$(t-ORD("ァ")+ORD("ぁ"))
      END IF
   NEXT i
   LET ToHiragana$=xx$
END FUNCTION

PUBLIC FUNCTION ToKatakana$
EXTERNAL FUNCTION ToKatakana$(x$) !ひらがなを全角カタカナに変換する
   LET xx$=x$
   FOR i=1 TO LEN(x$) !対象文字を順に調べる
      LET t=ORD(x$(i:i))
      IF t<ORD("ぁ") OR t>ORD("ん") THEN
      ELSE
         LET xx$(i:i)=CHR$(t-ORD("ぁ")+ORD("ァ"))
      END IF
   NEXT i
   LET ToKatakana$=xx$
END FUNCTION

END MODULE
 

戻る