VBScript Function to Convert an Integer to Binary String Represe

  • 时间:2020-09-17 10:57:36
  • 分类:网络文摘
  • 阅读:80 次

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 VBScript Function to Convert an Integer to Binary String Representation vbscript

vbscript-convert-integer-to-binary-in-vbsedit

–EOF (The Ultimate Computing & Technology Blog) —

推荐阅读:
夏季美味之毛豆的营养价值和食疗功效  食用小龙虾时需要注意的问题  如何将鲜活小龙虾彻底清洗干净?  老少皆宜的美食豆腐还可以当作治病良药  饮酒之道:取其益而去其害 扬长避短善用之  秋冬季节这八种人不适合吃辣椒  儿童不宜吃含化学合成甜味剂的食品  十大“垃圾”食品在你家的餐桌上吗?  让你的孩子远离“三无”劣质小零食  网络传闻中的“致癌食物”是否真致癌 
评论列表
添加评论