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

标签： , , , ,

标题: VBS中的左移位&右移位运算
作者: Demon
链接: https://demon.tw/programming/vbs-bit-shift.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

之前用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. 在VBS中执行Javascript语句
  2. 用VBS解析JSON格式数据
  3. JavaScript调用VBS中的InputBox和MsgBox函数
  4. 用VBS实现PHP的crc32函数
  5. 不用循环计算1到100的和

随机文章:

  1. This document was successfully checked as XHTML 1.0 Strict!
  2. 使用正确版本的XMLHTTP
  3. 邪恶的eval和new Function
  4. 利用53端口的OpenVPN免费上网
  5. 用JavaScript实现PHP的urlencode函数

这篇文章发布于 2010年08月22日，星期日，02:21，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。

留下回复