利用powershell调用.net程序集来实现。下面两个简单的例子，只是展示怎么去使用,并不一定是最佳方案。希望对大家有所助益吧。
示例一：查找字符串A123B76A45里面A后面的数字.我们vbs里面regex不支持肯定向前预查。借用.net实现：
Sub ss1()
Dim ws As Object '正则肯定向前预查
Set ws = CreateObject("wscript.shell")
Debug.Print ws.exec("powershell ""$matches=[System.Text.RegularExpressions.Regex]::Matches('A123B76A45','(?<=A)(\d+)');" _
& "for($i=0;$i -lt $matches.Count;$i++){$match=$matches[$i];$piece=$match.Groups[0].Value;$piece}""").stdout.readall
End Sub
运行结果如下图：
示例2是读取图片的宽度和高度。我们平时用wia.imagefile或者shell.application去读取属性。也可以利用.net里的System.Draw来获取相关信息：
Sub ss2()
Dim ws As Object '读取图片的信息宽度高度
Set ws = CreateObject("wscript.shell")
Debug.Print ws.exec("powershell ""add-type -AssemblyName System.Drawing;$im =[System.Drawing.Image]::FromFile('D:\py_qrcode.png');$r='高度:{0},宽度:{1}' -f $im.Height,$im.Width;$r""").stdout.readall
End Sub
在两个例子中后者.net程序集需要add-type进行加载。而前者应该是主程序集可以直接调用。这里说明一下。代码主要部分需要有一点powershell基础。.net程序集可以查看官方文档了解一下就差不多能简单地使用了。当然我也只是略懂。进阶还需深耕。