很久之前，我就说了，PHP是最好的语言，是宇宙中最好的语言，因为方便啊，PHP有几千个估计得上万个函数了： http://php.net/manual/en/indexes.functions.php
所以，生活工作上，我也会拿PHP来写些命令行的脚本，比如这个
<?php
if ($argc < 2) {
die();
}
if (!is_file($argv[1])) {
die();
}
$offset = $argv[2] ?? 0;
// Search and Replace using Regular Expression with Arithmetic Evaluation
echo preg_replace_callback(
'~\<z\>(.*)\~i', // pattern for Z coordinate
function ($matches) {
global $offset;
return "".($matches[1] + $offset)."";
},
file_get_contents($argv[1])
);
目的是用来把一个XML中 所有 <Z></Z> 标签的数值给改变一个偏移。 命令行里这么用：
php shift.php data.xml 1.0 > new_data.xml
我自己平时需要当然觉得超级好用，碰巧今天公司的一个 support engineer 在客户的机器上也需要做这一件事情 - 因为软件还不支持这个功能，只能暂时这样帮助客户来实现 work-around。
这个 support engineer 不知道啥是PHP，也无法在客户的机器上安装程序（但可以下载PHP移动版）。想来想去，为了运行上面的PHP脚本特意去下载一大包PHP运行库也不是很友好，于是只能把上面的脚本给翻译成 WINDOWS 支持的VBS。
Option Explicit
Dim args
Set args = Wscript.Arguments
If args.Count < 2 Then
WScript.Echo "First Parameter: BSM Path. Second Parameter: Z Offset."
WScript.Quit
End If
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim bsm: bsm = args(0)
Dim offset: offset = args(1)
If Not IsNumeric(offset) Then
WScript.Echo "Second Parameter: Not a Number"
WScript.Quit
End If
offset = CDbl(offset)
If Not fs.FileExists(bsm) Then
WScript.Echo "File Not Found: " & bsm
WScript.Quit
End If
Dim text
Set text = fs.OpenTextFile(bsm, 1)
Dim objRegEx
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "<Z\>(.*)\"
Dim s, matches
Do Until text.AtEndOfStream
s = text.ReadLine
Set matches = objRegEx.Execute(s)
If matches.Count > 0 Then
WScript.Echo "" & matches.Item(0).SubMatches.Item(0) + offset & ""
Else
WScript.Echo s
End If
Loop
text.Close
Set text = Nothing
Set fs = Nothing
Set args = Nothing
Set objRegEx = Nothing
看吧，PHP几行就能安排的明明白白的事情在VBS上就得啰哩啰嗦的写个几十行。不过VBS的好处就是所有WINDOWS版本都支持，发过去，客户只需要按照说明在命令行里敲入命令即可跑VBS了。
刚刚同步到博文: https://justyy.com/archives/6414
支持我的工作 支持我成为 见证人
- 请在 这里 投我一票, 或者
- 设置我 为代理.
谢谢您！ 我的贡献：SteemIt 工具、API接口、机器人和教程
股东工具
请注意：每次代理都是以最后一次输入的SP数量为标准，比如已经代理10 SP，想多代理5 SP则需要输入 最后的数字 15 SP（而不是 5！）