VB6 正则表达式提取内容

概述今天帮同事做一个数据对接，从返回的数据中提取想要的部分。返回的是一个WebService结果，由外圈的XML标记和中间的有效内容组成，现在要把有效内容取出来，VB6.0实现。 下面是返回的内容： <?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soa

今天帮同事做一个数据对接，从返回的数据中提取想要的部分。返回的是一个WebService结果，由外圈的XML标记和中间的有效内容组成，现在要把有效内容取出来，VB6.0实现。

下面是返回的内容：

<?xml version='1.0' enCoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Body><ns:getAllQuickInfoResponse xmlns:ns="http://webservice.sp.action.org" xmlns:ax21="http://service.webservice.sp.action.org/xsd"><ns:return>[...省略]</ns:return></ns:getAllQuickInfoResponse></soapenv:Body></soapenv:Envelope>

要把中间的有效内容取出来。想到了正则表达式，在VB6中用法如下：

首先要添加正则表达式的引用：

菜单栏： “工程” - “引用” - “Microsoft VBScript Regular Expressions 5.5”

用法：

'获取有效内容  Dim str As String    Dim re As RegExp  Dim mh As Match  Dim mhs As MatchCollection      str = httpClIEnt.responseText  Set re = New RegExp   re.Pattern = "\[.*]"  Set mhs = re.Execute(str)  Set mh = mhs(0)  MsgBox (mh.Value)

效果：

总结

以上是内存溢出为你收集整理的VB6 正则表达式提取内容全部内容，希望文章能够帮你解决VB6 正则表达式提取内容所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。