ゴルフ練習場紹介サイト：ゴルフ練習場行脚録更新中！
from 1998/3/4コンピューター：C言語講座：全角・半角変換について
概要
プログラムを作成していると、全角の数字・アルファベットを半角にしたり、その逆を行いたい、ということが良くあります。たとえば２バイト文字の数字で書かれた文書から数字を数値として内部処理したい場合など。特に文書管理物などで良く出てくると思いますが、仕様を決めるお客さんにとってそんなことは簡単なことだ、と思われてしまう割に意外と手間がかかりませんか？
SolarisやSunOSなどでは独自の日本語処理ライブラリが付属していて助かる場合もありますが、移植性を考えるとやっぱり1つは確実な物を自分で持っておきたいところです。
そんな物コードの特性を考えれば簡単だ、といきなりASCIIコードとSJIS（EUC)コードをにらめっこして式を考えても良いのですが、意外とSJISで作らなければならないのに自分の環境がEUCだったりして実験に困るものです。
そこで今回は実に泥臭く、変換する文字をすべてソース中に埋め込んでしまうことにします。速度的には比較が多くなるのでもちろん落ちますが、ソースを動かしたい環境のコードに変換してコンパイルすればSJISでもEUCでも使えるという大きなメリット（人によってはどうでも良いことかもしれませんが・・・）があります。このくらい自分でも作れるわい、という人でも意外とキーを打つだけでも疲れるので、念のためサンプルも掲載します。
サンプル
#include <stdio.h>
#include <string.h>
int han2zen(char *str)
{
char *buf,*p,*ptr;
buf=(char *)calloc(strlen(str)*2+1,sizeof(char));
for(ptr=str,p=buf;*ptr!='\0';*ptr++){
switch((int)*ptr){
case ' ': strcpy(p," ");p+=2;break;
case '!': strcpy(p,"！");p+=2;break;
case '"': strcpy(p,"”");p+=2;break;
case '#': strcpy(p,"＃");p+=2;break;
case '$': strcpy(p,"＄");p+=2;break;
case '%': strcpy(p,"％");p+=2;break;
case '&': strcpy(p,"＆");p+=2;break;
case '\'': strcpy(p,"’");p+=2;break;
case '(': strcpy(p,"（");p+=2;break;
case ')': strcpy(p,"）");p+=2;break;
case '*': strcpy(p,"＊");p+=2;break;
case '+': strcpy(p,"＋");p+=2;break;
case ',': strcpy(p,"，");p+=2;break;
case '-': strcpy(p,"−");p+=2;break;
case '.': strcpy(p,"．");p+=2;break;
case '/': strcpy(p,"／");p+=2;break;
case '0': strcpy(p,"０");p+=2;break;
case '1': strcpy(p,"１");p+=2;break;
case '2': strcpy(p,"２");p+=2;break;
case '3': strcpy(p,"３");p+=2;break;
case '4': strcpy(p,"４");p+=2;break;
case '5': strcpy(p,"５");p+=2;break;
case '6': strcpy(p,"６");p+=2;break;
case '7': strcpy(p,"７");p+=2;break;
case '8': strcpy(p,"８");p+=2;break;
case '9': strcpy(p,"９");p+=2;break;
case ':': strcpy(p,"：");p+=2;break;
case ';': strcpy(p,"；");p+=2;break;
case '<': strcpy(p,"＜");p+=2;break;
case '=': strcpy(p,"＝");p+=2;break;
case '>': strcpy(p,"＞");p+=2;break;
case '?': strcpy(p,"？");p+=2;break;
case '@': strcpy(p,"＠");p+=2;break;
case 'A': strcpy(p,"Ａ");p+=2;break;
case 'B': strcpy(p,"Ｂ");p+=2;break;
case 'C': strcpy(p,"Ｃ");p+=2;break;
case 'D': strcpy(p,"Ｄ");p+=2;break;
case 'E': strcpy(p,"Ｅ");p+=2;break;
case 'F': strcpy(p,"Ｆ");p+=2;break;
case 'G': strcpy(p,"Ｇ");p+=2;break;
case 'H': strcpy(p,"Ｈ");p+=2;break;
case 'I': strcpy(p,"Ｉ");p+=2;break;
case 'J': strcpy(p,"Ｊ");p+=2;break;
case 'K': strcpy(p,"Ｋ");p+=2;break;
case 'L': strcpy(p,"Ｌ");p+=2;break;
case 'M': strcpy(p,"Ｍ");p+=2;break;
case 'N': strcpy(p,"Ｎ");p+=2;break;
case 'O': strcpy(p,"Ｏ");p+=2;break;
case 'P': strcpy(p,"Ｐ");p+=2;break;
case 'Q': strcpy(p,"Ｑ");p+=2;break;
case 'R': strcpy(p,"Ｒ");p+=2;break;
case 'S': strcpy(p,"Ｓ");p+=2;break;
case 'T': strcpy(p,"Ｔ");p+=2;break;
case 'U': strcpy(p,"Ｕ");p+=2;break;
case 'V': strcpy(p,"Ｖ");p+=2;break;
case 'W': strcpy(p,"Ｗ");p+=2;break;
case 'X': strcpy(p,"Ｘ");p+=2;break;
case 'Y': strcpy(p,"Ｙ");p+=2;break;
case 'Z': strcpy(p,"Ｚ");p+=2;break;
case '[': strcpy(p,"［");p+=2;break;
case '\\': strcpy(p,"￥");p+=2;break;
case ']': strcpy(p,"］");p+=2;break;
case '^': strcpy(p,"＾");p+=2;break;
case '_': strcpy(p,"＿");p+=2;break;
case '`': strcpy(p,"‘");p+=2;break;
case 'a': strcpy(p,"ａ");p+=2;break;
case 'b': strcpy(p,"ｂ");p+=2;break;
case 'c': strcpy(p,"ｃ");p+=2;break;
case 'd': strcpy(p,"ｄ");p+=2;break;
case 'e': strcpy(p,"ｅ");p+=2;break;
case 'f': strcpy(p,"ｆ");p+=2;break;
case 'g': strcpy(p,"ｇ");p+=2;break;
case 'h': strcpy(p,"ｈ");p+=2;break;
case 'i': strcpy(p,"ｉ");p+=2;break;
case 'j': strcpy(p,"ｊ");p+=2;break;
case 'k': strcpy(p,"ｋ");p+=2;break;
case 'l': strcpy(p,"ｌ");p+=2;break;
case 'm': strcpy(p,"ｍ");p+=2;break;
case 'n': strcpy(p,"ｎ");p+=2;break;
case 'o': strcpy(p,"ｏ");p+=2;break;
case 'p': strcpy(p,"ｐ");p+=2;break;
case 'q': strcpy(p,"ｑ");p+=2;break;
case 'r': strcpy(p,"ｒ");p+=2;break;
case 's': strcpy(p,"ｓ");p+=2;break;
case 't': strcpy(p,"ｔ");p+=2;break;
case 'u': strcpy(p,"ｕ");p+=2;break;
case 'v': strcpy(p,"ｖ");p+=2;break;
case 'w': strcpy(p,"ｗ");p+=2;break;
case 'x': strcpy(p,"ｘ");p+=2;break;
case 'y': strcpy(p,"ｙ");p+=2;break;
case 'z': strcpy(p,"ｚ");p+=2;break;
case '{': strcpy(p,"｛");p+=2;break;
case '|': strcpy(p,"｜");p+=2;break;
case '}': strcpy(p,"｝");p+=2;break;
default:
*p=*ptr;
p++;
*p='\0';
break;
}
}
strcpy(str,buf);
free(buf);
return(0);
}
int zen2han(char *str)
{
char *buf,*p,*ptr;
buf=(char *)calloc(strlen(str)+1,sizeof(char));
for(ptr=str,p=buf;*ptr!='\0';*ptr++){
if(strncmp(ptr," ",2)==0){*p=' ';p++;ptr++;}
else if(strncmp(ptr,"！",2)==0){*p='!';p++;ptr++;}
else if(strncmp(ptr,"”",2)==0){*p='"';p++;ptr++;}
else if(strncmp(ptr,"＃",2)==0){*p='#';p++;ptr++;}
else if(strncmp(ptr,"＄",2)==0){*p='$';p++;ptr++;}
else if(strncmp(ptr,"％",2)==0){*p='%';p++;ptr++;}
else if(strncmp(ptr,"＆",2)==0){*p='&';p++;ptr++;}
else if(strncmp(ptr,"’",2)==0){*p='\'';p++;ptr++;}
else if(strncmp(ptr,"（",2)==0){*p='(';p++;ptr++;}
else if(strncmp(ptr,"）",2)==0){*p=')';p++;ptr++;}
else if(strncmp(ptr,"＊",2)==0){*p='*';p++;ptr++;}
else if(strncmp(ptr,"＋",2)==0){*p='+';p++;ptr++;}
else if(strncmp(ptr,"，",2)==0){*p=',';p++;ptr++;}
else if(strncmp(ptr,"−",2)==0){*p='-';p++;ptr++;}
else if(strncmp(ptr,"．",2)==0){*p='.';p++;ptr++;}
else if(strncmp(ptr,"／",2)==0){*p='/';p++;ptr++;}
else if(strncmp(ptr,"０",2)==0){*p='0';p++;ptr++;}
else if(strncmp(ptr,"１",2)==0){*p='1';p++;ptr++;}
else if(strncmp(ptr,"２",2)==0){*p='2';p++;ptr++;}
else if(strncmp(ptr,"３",2)==0){*p='3';p++;ptr++;}
else if(strncmp(ptr,"４",2)==0){*p='4';p++;ptr++;}
else if(strncmp(ptr,"５",2)==0){*p='5';p++;ptr++;}
else if(strncmp(ptr,"６",2)==0){*p='6';p++;ptr++;}
else if(strncmp(ptr,"７",2)==0){*p='7';p++;ptr++;}
else if(strncmp(ptr,"８",2)==0){*p='8';p++;ptr++;}
else if(strncmp(ptr,"９",2)==0){*p='9';p++;ptr++;}
else if(strncmp(ptr,"：",2)==0){*p=':';p++;ptr++;}
else if(strncmp(ptr,"；",2)==0){*p=';';p++;ptr++;}
else if(strncmp(ptr,"＜",2)==0){*p='<';p++;ptr++;}
else if(strncmp(ptr,"＝",2)==0){*p='=';p++;ptr++;}
else if(strncmp(ptr,"＞",2)==0){*p='>';p++;ptr++;}
else if(strncmp(ptr,"？",2)==0){*p='?';p++;ptr++;}
else if(strncmp(ptr,"＠",2)==0){*p='@';p++;ptr++;}
else if(strncmp(ptr,"Ａ",2)==0){*p='A';p++;ptr++;}
else if(strncmp(ptr,"Ｂ",2)==0){*p='B';p++;ptr++;}
else if(strncmp(ptr,"Ｃ",2)==0){*p='C';p++;ptr++;}
else if(strncmp(ptr,"Ｄ",2)==0){*p='D';p++;ptr++;}
else if(strncmp(ptr,"Ｅ",2)==0){*p='E';p++;ptr++;}
else if(strncmp(ptr,"Ｆ",2)==0){*p='F';p++;ptr++;}
else if(strncmp(ptr,"Ｇ",2)==0){*p='G';p++;ptr++;}
else if(strncmp(ptr,"Ｈ",2)==0){*p='H';p++;ptr++;}
else if(strncmp(ptr,"Ｉ",2)==0){*p='I';p++;ptr++;}
else if(strncmp(ptr,"Ｊ",2)==0){*p='J';p++;ptr++;}
else if(strncmp(ptr,"Ｋ",2)==0){*p='K';p++;ptr++;}
else if(strncmp(ptr,"Ｌ",2)==0){*p='L';p++;ptr++;}
else if(strncmp(ptr,"Ｍ",2)==0){*p='M';p++;ptr++;}
else if(strncmp(ptr,"Ｎ",2)==0){*p='N';p++;ptr++;}
else if(strncmp(ptr,"Ｏ",2)==0){*p='O';p++;ptr++;}
else if(strncmp(ptr,"Ｐ",2)==0){*p='P';p++;ptr++;}
else if(strncmp(ptr,"Ｑ",2)==0){*p='Q';p++;ptr++;}
else if(strncmp(ptr,"Ｒ",2)==0){*p='R';p++;ptr++;}
else if(strncmp(ptr,"Ｓ",2)==0){*p='S';p++;ptr++;}
else if(strncmp(ptr,"Ｔ",2)==0){*p='T';p++;ptr++;}
else if(strncmp(ptr,"Ｕ",2)==0){*p='U';p++;ptr++;}
else if(strncmp(ptr,"Ｖ",2)==0){*p='V';p++;ptr++;}
else if(strncmp(ptr,"Ｗ",2)==0){*p='W';p++;ptr++;}
else if(strncmp(ptr,"Ｘ",2)==0){*p='X';p++;ptr++;}
else if(strncmp(ptr,"Ｙ",2)==0){*p='Y';p++;ptr++;}
else if(strncmp(ptr,"Ｚ",2)==0){*p='Z';p++;ptr++;}
else if(strncmp(ptr,"［",2)==0){*p='[';p++;ptr++;}
else if(strncmp(ptr,"￥",2)==0){*p='\\';p++;ptr++;}
else if(strncmp(ptr,"］",2)==0){*p=']';p++;ptr++;}
else if(strncmp(ptr,"＾",2)==0){*p='^';p++;ptr++;}
else if(strncmp(ptr,"＿",2)==0){*p='_';p++;ptr++;}
else if(strncmp(ptr,"‘",2)==0){*p='`';p++;ptr++;}
else if(strncmp(ptr,"ａ",2)==0){*p='a';p++;ptr++;}
else if(strncmp(ptr,"ｂ",2)==0){*p='b';p++;ptr++;}
else if(strncmp(ptr,"ｃ",2)==0){*p='c';p++;ptr++;}
else if(strncmp(ptr,"ｄ",2)==0){*p='d';p++;ptr++;}
else if(strncmp(ptr,"ｅ",2)==0){*p='e';p++;ptr++;}
else if(strncmp(ptr,"ｆ",2)==0){*p='f';p++;ptr++;}
else if(strncmp(ptr,"ｇ",2)==0){*p='g';p++;ptr++;}
else if(strncmp(ptr,"ｈ",2)==0){*p='h';p++;ptr++;}
else if(strncmp(ptr,"ｉ",2)==0){*p='i';p++;ptr++;}
else if(strncmp(ptr,"ｊ",2)==0){*p='j';p++;ptr++;}
else if(strncmp(ptr,"ｋ",2)==0){*p='k';p++;ptr++;}
else if(strncmp(ptr,"ｌ",2)==0){*p='l';p++;ptr++;}
else if(strncmp(ptr,"ｍ",2)==0){*p='m';p++;ptr++;}
else if(strncmp(ptr,"ｎ",2)==0){*p='n';p++;ptr++;}
else if(strncmp(ptr,"ｏ",2)==0){*p='o';p++;ptr++;}
else if(strncmp(ptr,"ｐ",2)==0){*p='p';p++;ptr++;}
else if(strncmp(ptr,"ｑ",2)==0){*p='q';p++;ptr++;}
else if(strncmp(ptr,"ｒ",2)==0){*p='r';p++;ptr++;}
else if(strncmp(ptr,"ｓ",2)==0){*p='s';p++;ptr++;}
else if(strncmp(ptr,"ｔ",2)==0){*p='t';p++;ptr++;}
else if(strncmp(ptr,"ｕ",2)==0){*p='u';p++;ptr++;}
else if(strncmp(ptr,"ｖ",2)==0){*p='v';p++;ptr++;}
else if(strncmp(ptr,"ｗ",2)==0){*p='w';p++;ptr++;}
else if(strncmp(ptr,"ｘ",2)==0){*p='x';p++;ptr++;}
else if(strncmp(ptr,"ｙ",2)==0){*p='y';p++;ptr++;}
else if(strncmp(ptr,"ｚ",2)==0){*p='z';p++;ptr++;}
else if(strncmp(ptr,"｛",2)==0){*p='{';p++;ptr++;}
else if(strncmp(ptr,"｜",2)==0){*p='|';p++;ptr++;}
else if(strncmp(ptr,"｝",2)==0){*p='}';p++;ptr++;}
else{ *p=*ptr; p++; }
}
strcpy(str,buf);
free(buf);
return(0);
}
zen2han(),han2zen()とも文字列をただ渡すだけです。ただし、返答も同じアドレスを書き換えて行いますので、文字列バッファのサイズは十分に気を付けてください。基本的にzen2han()は長くなりませんが、han2zen()は最大で2倍の長さになります。han2zen()はまあまあ速度的にも良いと思いますが、zen2han()はstrncmp()を呼びまくるので遅いです。もっとも最近はコンピューターの速度が速いので下手に速度を上げて移植性を下げるよりも賢いかも知れません。
なお、このようなソースを作る際にいちいち全部キーを入力するようでは疲れてしまいます。少なくともASCII文字などはソースの雛形を作るような簡単なプログラムを作って楽をしましょう。
まとめ
こんな課題はつまらん、といわれてしまうかもしれませんが、このソースはSJIS,EUCでは動きますが、JISでは動かない、ということなどちゃんと気がつきましたか？簡単な物こそしっかりと自分で理解しているライブラリが役に立つものです。このようなライブラリをしっかり自分で持っていれば依頼主からの「こんなの簡単でしょ」攻撃も難なく「もちろん」と答えられるようになります。
※SJISの場合、han2zen()でswitch文の前にSJIS1バイト目だったらスキップする処理を入れないと文字化けになります。SJIS2バイト目はASCIIと重なりますので。
#define issjiskanji(c) ((0x81 <= (unsigned char)(c&0xff) && (unsigned char)(c&0xff) <= 0x9f) \
|| (0xe0 <= (unsigned char)(c&0xff) && (unsigned char)(c&0xff) <= 0xfc))
とデファインしておいて、
for(ptr=str,p=buf;*ptr!='\0';*ptr++){
if(issjiskanji(*ptr)){
/* SJIS漢字1バイト目の場合 */
*p=*ptr;
p++;
ptr++;
*p=*ptr;
p++;
*p='\0';
continue;
}
switch((int)*ptr){
case ' ': strcpy(p," ");p+=2;break;
case '!': strcpy(p,"！");p+=2;break;