| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]从一大堆字符串中，获取某个特征的字符串 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106172) |
| -- 作者：农村人 -- 发布时间：2017/9/3 23:18:00 -- [求助]从一大堆字符串中，获取某个特征的字符串 字符如下： https://shop.m.taobao.com/shop/coupon.htm?seller_id=1094195928&activity_id=37e83bfadb27411da38f2f016103e6e8</a></br>下单链接:<a target="_blank" href="https://detail.tmall.com/item.htm?id=534618276467">https://detail.tmall.com/item.htm?id=534618276467</a></br>超舒适柔软面料，透气贴身亲肤，双屿100%棉档，弹力出众，24小时可穿睿，不褪色不起球~<img src="http://imgproxy.dataoke.com/imgextra/i3/2027589505/*t*b2*jhg8ck.*h*l1*jj*s*z*fu*x*x*x8d*x*xa_!!2027589505.jpg"></br>37度恒温保暖内衣女超薄套装</br>券后?30元?包邮秒板</br>5元优惠券:<a target="_blank" href="https://shop.m.taobao.com/shop/coupon.htm?seller_id=2027589505&activity_id=49b40a5988254836943516c874853bc4">https://shop.m.taobao.com/shop/coupon.htm?seller_id=2027589505&activity_id=49b40a5988254836943516c874853bc4</a></br>下单链接:<a target="_blank" href="https://item.taobao.com/item.htm?id=557193364284">https://item.taobao.com/item.htm?id=557193364284</a></br>37度发热内衣，新升级发热纤维，保暖持久拒绝臃肿，薄如蝉翼，做濧感女人＿<img src="http://imgproxy.dataoke.com/bao/uploaded/i3/*t*b1*y1*g*u*op*x*x*x*xaj*x*x*x*x*x*x*x*x*x*x*x*x_!!0-item_pic.jpg"></br>浪莎纯棉防臭四季中筒男士袜子7叿</br>券后?39.8元?包邮秒板</br>10元优惠券:<a target="_blank" href="https://shop.m.taobao.com/shop/coupon.htm?seller_id=272715291&activity_id=f3b426606e4440369795a9e66ab3283c">https://shop.m.taobao.com/shop/coupon.htm?seller_id=272715291&activity_id=f3b426606e4440369795a9e66ab3283c</a></br>下单链接:<a target="_blank" href="https://detail.tmall.com/item.htm?id=529738345266">https://detail.tmall.com/item.htm?id=529738345266</a></br>官方正品，纯棉品质，商务休闲，舒适亲肤，防臭吸汗，你霿要一双真正的好袜子?<img src="http://imgproxy.dataoke.com/imgextra/i4/849038814/*t*b210*s*vc*fc*j*l1*jj*s*z*f*o*x*xc*wl*x*xa_!!849038814.jpg"></br>【南极人】加绒加厚保暖衣套装</br>券后?39.9元?包邮秒板</br>10元优惠券:<a target="_blank" href="https://shop.m.taobao.com/shop/coupon.htm?seller_id=2106525799&activity_id=e864a01a6ec14c79a54d5f3e87af9caa">https://shop.m.taobao.com/shop/coupon.htm?seller_id=2106525799&activity_id=e864a01a6ec14c79a54d5f3e87af9caa</a></br>下单链接:<a target="_blank" href="https://detail.tmall.com/item.htm?id=521136254098">https://detail.tmall.com/item.htm?id=521136254098</a></br>黄金甿2件套套装，一体超厚，双层加厚黄金甲套装，柔软保暖，健康亲肤，限量秒杀~<img src="http://imgproxy.dataoke.com/imgextra/i2/2089289571/*t*b2v*w4*z*xrs*t*me*jjy1zb*x*xchl*v*xa_!!2089289571.jpg"></br>俞兆枿 秋衣秋裤套装男女保暖内衣套装</br>券后?29.8元?包邮秒板</br>10元优惠券:<a target="_blank" href="https://shop.m.taobao.com/shop/coupon.htm?seller_id=2089289571&activity_id=dbe207532d2c47e2bd03c76b3ea01089"> 有许多类似id=557193364284的字符串，我需要将他们提取出来。请问如何做？
|
| -- 作者：有点甜 -- 发布时间：2017/9/4 8:46:00 -- Dim str As String = "href=""https://detail.tmall.com/item.htm?id=534618276467"">dddddddhref=""https://detail.tmall.com/item.htm?id=534618276467"">" msgbox(str) Dim reg As new System.Text.RegularExpressions.Regex("(?<=\\?id=)[0-9]+(?="")") Dim mc As object = reg.Matches(str) For i As Integer = 0 To mc.count-1 msgbox(mc(i).value) Next |