powershell调用.net程序集

fxl447098457

利用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程序集可以查看官方文档了解一下就差不多能简单地使用了。感觉写着写着像C#了。当然我也只是略懂,就写到这里吧，做个记录。

向東

方法不错，但是powershell在XP没有自带，需要win7以上版本。
powershell另外的一个用法可以参考我发的一个贴：http://club.excelhome.net/thread-1431713-1-1.html