Dim strChildClass
regEx.Pattern = "\{\$ShowChildClass\((.*?)\)\}"
Set Matches = regEx.Execute(strHtml)
For Each Match In Matches
arrTemp2 = Split(Match.SubMatches(0), ",")
strHtml = Replace(strHtml, Match.value, strChildClass)
Next
有没有谁能将次VB语言转换成DELPHI的?
试了很多办法,就是转不好。
regEx.Pattern = "\{\$ShowChildClass\((.*?)\)\}"
Set Matches = regEx.Execute(strHtml)
For Each Match In Matches
arrTemp2 = Split(Match.SubMatches(0), ",")
strHtml = Replace(strHtml, Match.value, strChildClass)
Next
有没有谁能将次VB语言转换成DELPHI的?
试了很多办法,就是转不好。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货