文字コード変換プログラム

質問

こんにちは
文字コードを一発で２進数に変換してくれるプログラムを探しています。例えば
Ａ-->０１０００００１
あ-->１０００００１０１０１０００００

１６進数に変換してくれるプログラムって結構見つかりましたが
なぜか２進数が見つかりませんでした。
（１６進数を２進数に変換すれは良いのですが、できれば一発で…）
プログラムを載せているサイトをご存知の方、宜しくお願いします。

回答No.5

suiko_wkk · ベストアンサー

アルファベット限定っぽいですけど・・・
下記のアドレスで紹介されているプログラムなどだと
一発で表示されました。

参考URL：

http://homepage2.nifty.com/fluidmechanics/

お礼

情報ありがとうございます。
早速使ってみました。面白いソフトですね。
ただ、アスキーコードだけなのがとっても残念です。

回答No.4

NINJA104

ＰＣのＯＳはWindowsでしょうか？
もしそうであれば、ＯＳに標準で付いてくる電卓（アクセサリプログラム）が便利ですよ。
２進数８進数１０進数１６進数の相互変換が出来ます。

お礼

アドバイスありがとうございます。電卓とは中々のアイデアですね！
ただ、ちょっと疑問がありまして、
文字コードの１６進数を他のソフトで得て、電卓で２進数の変換する時
アスキーコードの場合は先頭に０を足さなければならないのでは？
つい見落としをしてしまいそうで…

回答No.3

noname#21649

＞文字コードがユニコードになってしまって
ああ.これ.以前バイナリ入力をするソフトをこのサイトで公開しています。過去の質問を捜してください

お礼

情報ありがとうございます。
「バイナリ　入力」で検索してみたのですが、どうも引っかかりません。
また後で検索しようと思います。

回答No.2

BLUEPIXY

>vbで
試しにちょっとやってみたんですが、
私の環境では、文字コードがユニコードになってしまって、シフトＪＩＳのコードで取り出せませんでした。
というわけで、とりあえず、パス

お礼

お手数をかけまして申し訳ありませんでした。

回答No.1

BLUEPIXY

#Perlで
$a="A";
$b="あ";
print &toBinary($a) . "\n";
print &toBinary($b) . "\n";

sub toBinary ($){
my $chs = shift;

return join("",map(sprintf("%08b", $_),unpack("C*",$chs)));
}

補足

早速のご返事ありがとうございます。
実は、私はその昔VisualBasicをかじった事があるのですが
Perlは知らないんです。
もし出来ましたらvbで教えて頂けないでしょうか。