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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/03/19 10:31:27
  • 終了:--

回答(2件)

id:quintia No.1

quintia回答回数562ベストアンサー獲得回数712005/03/19 12:16:10

ポイント25pt

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,代入は無駄です。別の初期化の部分でやるべき)ですが、こんな感じでいいですかね。

id:shochankun

ありがとうございました

たすかりました

2005/03/19 13:06:00
id:quintia No.2

quintia回答回数562ベストアンサー獲得回数712005/03/19 12:18:12

ポイント25pt

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

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません