易截截图软件、单文件、免安装、纯绿色、仅160KB

求一个vb的正则表达式

字符串原来格式如下:
<a href="/bbbbbbbbbbbbbbbbbbb" class="fchvmqf1hgs8o0-1" target="_self"> <span class="fchvmqf1hgs8o0-1">Manage&nbsp;Activities </span> </a> </div>
<div class="adhvmqf1hgs8o0-0" nowrap="true" style="z-index:25;top:205px;left:500px;width:89px;height:16px;">
<span class="fchvmqf1hgs8o0-1">12/19/2006 </span> </div>
<a href="/aaaaaaaaaaaaaaaaaaa" class="fchvmqf1hgs8o0-1" target="_self"> <span class="fchvmqf1hgs8o0-1">Manage&nbsp;Activities </span> </a> </div>
…………
这里面会有好多class="fchvmqf1hgs8o0-1"样式,但是只有 <a ……  </a>里的class="fchvmqf1hgs8o0-1"要删掉,朋友叫我用正则表达式搜索一下。。可是我也是刚碰正则表达式,所以不太会写,希望大伙能帮帮忙。。谢谢了!!
BTW,整个字符串很大,文本文件的大小有1M-2M多~~所以效率比较重要~~谢谢了。。
<a\w* class="fchvmqf1hgs8o0-1" \w* </a>

你好,先谢谢你~~
fchvmqf1hgs8o0-1这个值是不固定的,每次运行都不一样的。。


(? <= <a[^>]+)class=[\S]+(?=[^>]+)

经测试可成功匹配 <a>标记内的class="fchvmqf1hgs8o0-1"
里面的值任意

用了#3的,可是在test的时候出错了~~
If (objRegExp.Test(myString) = True) Then
ENDIF


相关问答:

VB中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了&# ......

vb打包安装时提示输入序列号

我有自动生成序列号的程序,但是怎么跟打包后的安装程序结合在一起,在安装时提示用户输入序列号,正确后再继续安装???
方法1:你可以在运行程序后输入序列号注册,很多软件都是这样的。

方法2:使用Setu ......

VB数据收发

求一个可以用VB进行数据包收发的程序,要求在指定的IP之间进行

帮顶

UP

我在网上看到一个聊天的简单程序,执行后没有反应,Winsock1_DataArrival事件没有发生,不知道是什么问题,大家帮忙看看吧:

Privat ......

vb中sql语句引号问题

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
问题:对sql语句中单、双引号模糊。既然 Text1.Text就表示 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号