VBS中的左移位&右移位运算

标签: , , , ,

之前用VBS写UTF-16编码转UTF-8编码的时候要用到移位运算,但是VBS中没有移位运算符,就用简单的乘除运算实现了移位运算函数。而移位运算并不仅仅是简单的乘除而已,这样写可能会有未知的错误。现在知道了MSScriptControl.ScriptControl对象,实现左移位、右移位是如此的简单。

Function LShift(Value, Shift)
	Set sc = CreateObject("MSScriptControl.ScriptControl")
	sc.Language = "JScript"
	LShift = sc.Eval(Value & "<<" & Shift)
End Function

Function RShift(Value, Shift)
	Set sc = CreateObject("MSScriptControl.ScriptControl")
	sc.Language = "JScript"
	RShift = sc.Eval(Value & ">>" & Shift)
End Function
赞赏

微信赞赏支付宝赞赏

随机文章:

  1. neg eax sbb eax, eax
  2. OpenWrt挂载USB储存设备实现Samba共享
  3. JavaScript调用VBS中的InputBox和MsgBox函数
  4. 那些长的像UTF-8的GBK编码
  5. 用C语言实现PHP的base64_decode函数

留下回复