1.工程名称改为英文
2.写一篇删除c++代码注释的文章
3.写一篇直接替换一个文章中所有手机号最后4位为*的文章
4.工具增加一个参数，可以设置是以追加还是覆盖方式写入文件
5.模式需要提供具体，可以有默认模式，例如-wn,-wu以及-a,-o
以空格为间隔获取各个参数可以使用正则“(".+?"|.+?)(?:\s+|$)”
麻烦哪位专家把下面代码转成标准VB代码 谢谢!
$stockCode = 600000
$url = "http://money.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/{0}.phtml" -f $stockCode
$wc = New-Object System.Net.WebClient
$content = $wc.DownloadString($url)
$reg = " <a target='_blank'\s+href='http://biz.finance.sina.com.cn/stock/history_min.php\?symbol=sh\d{6}&date=\d{4}-\d{2}-\d{2}'>\s*([^\s]+)\s+ </a>\s* </div> </td>\s* <td[^\d]*([^ <]*) </div> </td>\s+ <td[^\d]*([^ <]*) </div> </td>\s+ <td[^\d]*([^ <]*) </div> </td>\s+ <td[^\d]*([^ <]*) </div> </td>\s+"
$result = [RegEx]::matches($content, $reg)
foreach($item in $result)
{
$date = $item.Groups[1].Value # 时间
$opening = $item.Groups[2].Value # 开盘
$maxHigh = $item.Groups[3].Value # 最高
$closing = $item.Groups[4].Value # 收盘
$maxLow = $item.Groups[5].Value # 最低
Write-Host $date $opening $maxHigh $closing $maxLow
}
Private Sub demo()
Dim strData$
Dim reg As Object
Dim matches As Object, match As Object
strData = "r ""c:\Program Files\aa.txt"" ""c:\bb.txt"" QQ qq" & vbCrLf & _
""
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.IgnoreCase = True
reg.Pattern = "("".+?""|.+?)(?:\s+|$)"
Set matches = reg.Execute(strData)
For Each match In matches
Debug.Print match.SubMatches(0)
Next
End Sub
http://topic.csdn.net/u/20091110/19/233fb89b-cdc4-412c-bc7a-9ac38a63ea94.html?78873
