人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VISUAL BASIC にて、10進数と62進数(0〜9,a〜z,A〜Z)の相互変換ができる関数をお教え願います

●質問者: shochankun
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:Visual Basic 進数 関数
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● quintia
●25ポイント

http://www.asahi-net.or.jp/~ai2h-ykmz/tech/base64vb.htm

BASE64 Sample Code for VB4

urlは(多分)ダミーです。

0-9,a-z,A-Zでは62個しか文字が無いので変換はできませんよ。

Function to64$ (src&)

Dim henkan$()

Dim ret$

ReDim henkan$(0 To 63)

henkan$(0) = ”0”

henkan$(1) = ”1”

henkan$(2) = ”2”

henkan$(3) = ”3”

henkan$(4) = ”4”

henkan$(5) = ”5”

henkan$(6) = ”6”

henkan$(7) = ”7”

henkan$(8) = ”8”

henkan$(9) = ”9”

henkan$(10) = ”a”

henkan$(11) = ”b”

henkan$(12) = ”c”

henkan$(13) = ”d”

henkan$(14) = ”e”

henkan$(15) = ”f”

henkan$(16) = ”g”

henkan$(17) = ”h”

henkan$(18) = ”i”

henkan$(19) = ”j”

henkan$(20) = ”k”

henkan$(21) = ”l”

henkan$(22) = ”m”

henkan$(23) = ”n”

henkan$(24) = ”o”

henkan$(25) = ”p”

henkan$(26) = ”q”

henkan$(27) = ”r”

henkan$(28) = ”s”

henkan$(29) = ”t”

henkan$(30) = ”u”

henkan$(31) = ”v”

henkan$(32) = ”w”

henkan$(33) = ”x”

henkan$(34) = ”y”

henkan$(35) = ”z”

henkan$(36) = ”A”

henkan$(37) = ”B”

henkan$(38) = ”C”

henkan$(39) = ”D”

henkan$(40) = ”E”

henkan$(41) = ”F”

henkan$(42) = ”G”

henkan$(43) = ”H”

henkan$(44) = ”I”

henkan$(45) = ”J”

henkan$(46) = ”K”

henkan$(47) = ”L”

henkan$(48) = ”M”

henkan$(49) = ”N”

henkan$(50) = ”O”

henkan$(51) = ”P”

henkan$(52) = ”Q”

henkan$(53) = ”R”

henkan$(54) = ”S”

henkan$(55) = ”T”

henkan$(56) = ”U”

henkan$(57) = ”V”

henkan$(58) = ”W”

henkan$(59) = ”X”

henkan$(60) = ”Y”

henkan$(61) = ”Z”

henkan$(62) = ”-”

henkan$(63) = ”+”

ret$ = ””

Do While src > 63

ret$ = henkan$(src Mod 64) + ret$

src = src / 64

Loop

ret$ = henkan$(src Mod 64) + ret$

to64$ = ret$

End Function

実行効率無視(いちいちReDim,代入は無駄です。別の初期化の部分でやるべき)ですが、こんな感じでいいですかね。

◎質問者からの返答

ありがとうございました

たすかりました


2 ● quintia
●25ポイント

http://www.google.co.jp/

Google

すみません読み間違えました。62進数変換で良かったんですね。適当に64→62に直してください。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ