解决方案 »
- 100分在线等候,救命求救:问什么下面的代码打不出来横板的东西?
- 如何取得汉字的GBK码???又如何由GBK码转换成对应的汉字???
- 关于数据库备份的问题
- 请问 crystal report6.0能不能动态绑定数据?谢谢
- 保存图片的问题,大家可以试一试啊
- 我做了一个快速复制和保存资料文档的自由软件,欢迎大家下载。
- vb6 类不支持自动化或不支持期望的接口
- ???VB 6.0 / VB的*.exe 在 Win98 / Win2k / WinXP 运行是不是一样的效果???再线2小时急等.......
- 求救:关于实现模拟键盘
- 一般情况下,ado对象绑定的问题。
- 关于webbrowser动态分析源码并呈现
- 求助:VB调用本地摄像头拍照程序提示错误
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object strData = "AA,BB,%CC%,DD,%EE%" Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.MultiLine = True
reg.Pattern = "%.*?%"
Set matchs = reg.Execute(strData)
For Each match In matchs
Debug.Print match.Value
Next
End Sub
习惯性使用正则大法,上面为vb6的,自己改成。net的
如果要找多个需要把 c 拼到一个结果变量中,继续循环;最后如果结果变量有内容就返回结果变量。