VBScript Function to Convert an Integer to Binary String Represe
- 时间:2020-09-17 10:57:36
- 分类:网络文摘
- 阅读:93 次
Given a Integer, we want to convert it to binary string. We can do this iteratively, by concatenating the modulus by two result and shifting the number 1 position to the right. We also need to check if it is negative number and appending a ‘-‘ sign before the result accordingly.
Implementing the ToBinaryString in VBScript is as follows. The zero is a special case. And to shift an integer one position to the right. We can use the Int(Num/2). The CInt() function will round up the values for example, CInt(3.5) is 4. Thus the Int() function in VBScript is equivalent to the Floor Function.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Function ToBinaryString(ByVal Num) Dim s, sign: sign = "" If Num < 0 Then sign = "-" Num = -Num ElseIf Num = 0 Then ToBinaryString = "0" Exit Function End If While Num > 0 s = Chr(48 + (Num Mod 2)) & s Num = Int(Num / 2) Wend ToBinaryString = sign & s End Function |
Function ToBinaryString(ByVal Num) Dim s, sign: sign = "" If Num < 0 Then sign = "-" Num = -Num ElseIf Num = 0 Then ToBinaryString = "0" Exit Function End If While Num > 0 s = Chr(48 + (Num Mod 2)) & s Num = Int(Num / 2) Wend ToBinaryString = sign & s End Function
The results are shown in the VBSEdit IDE – and you can verify a few integers from negative 15 to positive 15, respectively.

vbscript-convert-integer-to-binary-in-vbsedit
–EOF (The Ultimate Computing & Technology Blog) —
推荐阅读:姜蒜发芽了不会产生有毒物质 营养保健:七种干果养胃补肾延寿 整治食品安全要用重典才能阻击问题食品 演艺明星代言问题食品要依法追责 危害食品安全的犯罪手段更趋隐蔽 对危害食品安全犯罪案件从严量刑 媒体评论:食品安全乱象,谁之过? 健康饮食:妙用瓜果防治夏季疾病 农夫山泉危机曝出饮用水行业乱象 消费者严重不信任国产奶粉的原因
- 评论列表
-
- 添加评论