Set reg1 = New RegExp
reg1.Pattern = "VbScript\=.*?VbsHoldPlay"
reg1.IgnoreCase = True
reg1.Global = True
Set matches = reg1.Execute(iniop.GetSection(modulename))
CMPvbScrip = matches(0)
Set reg1 = Nothing
以上代码是查找字符串"VbScript=" 和"VbsHoldPlay"之间的字符串,但运行后,字符串包括"VbScript=" 和"VbsHoldPlay"
我只需要之间的字符串,怎么写。
reg1.Pattern = "VbScript\=.*?VbsHoldPlay"
reg1.IgnoreCase = True
reg1.Global = True
Set matches = reg1.Execute(iniop.GetSection(modulename))
CMPvbScrip = matches(0)
Set reg1 = Nothing
以上代码是查找字符串"VbScript=" 和"VbsHoldPlay"之间的字符串,但运行后,字符串包括"VbScript=" 和"VbsHoldPlay"
我只需要之间的字符串,怎么写。
解决方案 »
- 关于MSWLESS.ocx(无窗体级控件)的界面问题
- 听说VB区有个很猥琐的版主
- 请问我在WINDOWS2000里编的程序为何在98里运行不起来
- 紧急求助:datareport分页打印问题!
- ToolBar中的ButtonMenu怎么能够点击Button时就能弹出来呢?
- 汇报,汇报--关于跟Cooly大哥的见面会汇报!
- 问题很简单,如何打印控制字体大小
- 怎样设置richtextbox行间距至单倍行间距以内,甚至将其设置为0???
- MSHFlexGrid的数据显示问题.(泰山,巴顿你们谁会啊?)
- 送分!!!
- 在VB.NET中如何把UTF8和gb2312编码互换?
- 我要提取下面网页中的(title=" 与 ">)字符间的中文,如“秘密” 哪位大侠帮帮忙呢,知道怎么用正则表达式呢!
reg1.Pattern = "VbScript\=(.*?)VbsHoldPlay"
reg1.IgnoreCase = True
reg1.Global = True
Set matches = reg1.Execute(iniop.GetSection(modulename))
for i=0 to matches.count-1
debug.print matches(i).SubMatches(0)
next
Set reg1 = Nothing