请选择 进入手机版 | 继续访问电脑版

玩酷之家

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 339|回复: 0

VB.NET获取两个标签之间的数据

[复制链接]

17

主题

19

帖子

214

积分

中级会员

Rank: 3Rank: 3

积分
214
发表于 2018-7-23 21:56:30 | 显示全部楼层 |阅读模式
请插入Imports System.Text.RegularExpressions,在VB2015中测试通过
  1.     Public Function Match(ByVal Str As String, ByVal Pattern As String) As String

  2.         If Regex.IsMatch(Str, Pattern) Then
  3.             Match = Regex.Match(Str, Pattern).Groups(1).Value
  4.         Else
  5.             Match = "未找到匹配项"
  6.         End If

  7.     End Function
复制代码

使用代码:
  1. Dim x As String, Str As String, Pattern As String
  2.         Str = "<MemberInfo><online_count>0天0小时27分</online_count></MemberInfo>"
  3.         Pattern = "<online_count>(.*)</online_count>"
  4.         x = Match(Str, Pattern)
  5.         MsgBox(x)
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )

GMT+8, 2018-12-12 15:54 , Processed in 0.164059 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表