VBSで便利なプログラムを作れスレ

VBSで便利なプログラ� ..

141:デフォルトの名無しさん
08/05/01 23:48:07 .net
２進数の仕組みがわかってりゃ簡単だよ。
手計算するのと同じことをＶＢにやらせればいいだけ。
頭から１文字ずつ取り出して、×２していくだけだろ。

msgbox unko("10101101")

Function unko(ByVal str)
　　 ret = 0
　　 For i = 1 To Len(str)
　　　　 ret = ret * 2 + CInt(Mid(str, i, 1))
　　 Next
　　 unko = ret
End Function

次ページ

続きを表示

1を表示