易截截图软件、单文件、免安装、纯绿色、仅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打印问题


Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

用VB怎么实现这个程序的效果?

http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
或者Reshacker把这个程序里面的图片替换掉也行!
( ......

请好心人帮我把VB源码转为VB.NET~

希望大家能够帮我下.感谢了..


源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html

转为VB.NET源码.

小弟完全是新手 不懂的说.麻烦各位帮忙一下

我的EMAIL是:4452 ......

VB数据收发

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

帮顶

UP

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

Privat ......

求助VB与串口问题

采用VB发送接收ascii码!我的接收怎么是乱码?
VB code:

Private Sub com_init()

With MSComm1

.CommPort = 1 'COM1

.Settings = "9600, E, 7, 1&q ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号