- 浏览: 1451115 次
- 性别:
- 来自: 苏州
文章分类
- 全部博客 (564)
- 算法 (7)
- 流金岁月 (1)
- Javascript (30)
- actionscript (108)
- as3.0 game (14)
- flex (84)
- fms2 (27)
- 正则表达式 (7)
- 开源组件代码(as3.0) (1)
- Pv3d (13)
- Cairngorm (4)
- vbs (54)
- VB程序设计 (26)
- 计算机应用与维护 (4)
- 职场实用穿衣技巧 (3)
- 历史风云 (15)
- 淡泊明志,宁静致远 (12)
- 情感 (26)
- 杂谈 (41)
- 越南风 (14)
- DirectX (9)
- Dev-cpp (11)
- 回望百年 (2)
- 建站经验 (2)
- Python (24)
- 网络赚钱 (4)
- php (2)
- html (1)
- ob0短址网 (1)
- ob0.cn (1)
- wordpress (1)
- pandas logistic (1)
- haxe (1)
- opencv (1)
- 微信小程序 (3)
- vue (3)
- Flutter (1)
最新评论
-
GGGGeek:
第一个函数滚动监听不起作用,onPageScroll可以
微信小程序--搜索框滚动到顶部时悬浮 -
naomibyron:
解决办法:工具 -> 编译选项 -> 编译器 ...
dev-c++中编译含WINSOCK的代码出现错误的解决方法 -
haichuan11:
这个…… 代码不全真的是让人很憋屈的感觉啊
actionScript 3.0 图片裁剪及旋转 -
chenyw101:
老兄能留个QQ号吗?具体的我有些东西想请教下你
用VB制作网站登陆器 -
yantao1943:
貌似有点问题,只派发一次事件啊
使用ActionScript 2.0或ActionScript 3.0处理音频文件的提示点(cue
最近在用VB6解决一个网页解析的应用,涉及到了正则。如何在VB6中使用正则表达式,这个在MS网站上有介绍,不过介绍的不是很全面。下面结合MS网站的内容和搜索到的东西,自己汇总一下。
引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了。主要有三个对象:RegExp、MatchCollection、Match。
1. RegExp 这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给 RegExp 实例的字符串的模式。 其提供的方法以确定字符串是否与正则表达式的特定模式相匹配。
属性:
Pattern:一个字符串,用来定义正则表达式。
IgnoreCase:一个布尔值属性,指示是否必须对一个字符串中的所有可能的匹配进行正则表达式测试。这是MS的解释,有点费解,实际使用中的实例是,如果True,则忽略英文字母大小的匹配,False对大小写进行匹配。
Global:设置一个布尔值或返回一个布尔值,该布尔值指示一个模式是必须匹配整个搜索字符串中的所有搜索项还是只匹配第一个搜索项。
MultiLine:这个MS没有介绍。查了一下资料,设置一个布尔值或返回一个布尔值,是否在串的多行中搜索。如果允许匹配多行文本,则multiline为true,如果搜索必须在换行时停止,则为false 。方法:
Execute:返回一个 MatchCollection 对象,该对象包含每个成功匹配的 Match 对象。
Replace:MS没有介绍,这是返回一个将匹配字符替换为指定字符的字符串。
Test:返回一个布尔值,该值指示正则表达式是否与字符串成功匹配。
2. MatchCollection 是集合对象,包含有关匹配字符串的信息,该对象包含每个成功匹配的 Match 对象。
属性
Count:匹配对象的总数。
Item:匹配对象的索引。
3. Match 是成功匹配的对象。
属性:
FirstIndex:匹配对象所匹配字符串的起始位置。
Length:匹配对象所匹配字符串的字符长度。
SubMatches:匹配对象所匹配结果的子项。
Value:匹配对象所匹配的值。
相关示例参照MS的网站:http://support.microsoft.com/kb/818802/zh-cn。MS上没有介绍的几个属性和方法的使用,见下面的几个简单示例:1. RegExp的Test方法:
1. RegExp的Test方法:
Function bTest(ByVal s As String, ByVal p As String) As Boolean
Dim re As RegExp
Set re = New RegExp
re.IgnoreCase = False '设置是否匹配大小写
re.Pattern = p
bTest = re.Test(s)
End Function
Private Sub Command1_Click()
Dim s As String
Dim p As String
s = "我的邮箱: test@163.com 。欢迎致电!"
'测试字符串中是否包含数字:
p = "\d+"
MsgBox bTest(s, p)
'测试字符串中是否全是由数字组成:
p = "^\d+$"
MsgBox bTest(s, p)
'测试字符串中是否有大写字母:
p = "[A-Z]+"
MsgBox bTest(s, p)
End Sub
2. RegExp的Replace方法:
Function StrReplace(s As String, p As String, r As String) As String
Dim re As RegExp
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = p
StrReplace = re.Replace(s, r)
End Function
Private Sub Command2_Click()
Dim s As String '字符串
Dim p As String '正则表达式
Dim r As String '要替换的字符串
'以下代码是替换邮箱地址
s = "我的E-mail: Test@163.com 。欢迎致电!"
p = "w+@w+.w+"
r = "E_Mail@sohu.net"
s = StrReplace(s, p, r)
Debug.Print s
'结果:我的E-mail: E_Mail@sohu.net 。欢迎致电!
End Sub
3. Match的SubMatches属性:
Private Sub Command3_Click()
Dim re As RegExp
Dim mh As Match
Dim mhs As MatchCollection
Dim inpStr As String
inpStr = "我的E-mail: lucky@163.com 。欢迎致电!"
Set re = New RegExp
re.Pattern = "(w+)@(w+).(w+)" '同样是匹配地址,注意和上例的不同
Set mhs = re.Execute(inpStr)
Set mh = mhs(0) '只有一个匹配
Debug.Print "电子邮件地址是: " & mh.Value '这里是匹配的内容
Debug.Print "用户名是: " & mh.SubMatches(0) '第一个括号中的内容
Debug.Print "邮箱是: " & mh.SubMatches(1) '第二个括号中的内容
Debug.Print "域名是: " & mh.SubMatches(2) '第三个括号中的内容
End Sub
发表评论
-
wxpython学习笔记
2011-01-13 21:21 2026出处:http://www.cnblogs.com ... -
ADO编程实用宝典
2009-05-08 13:05 1473目录 ADO编程实用宝典 目录 一引入A ... -
创建ACCESS的存储过程
2008-09-11 22:52 4796在Access自身的帮助中看到了Create Procedu ... -
实现服务器端的多线程SOCKET Server
2008-09-11 16:45 3409实现服务器端的多线程SOCKET Server 想要实现 ... -
轻量级xml读写模块 tinyXML
2008-09-11 16:32 2896文档和使用例子: http://www.grinningl ... -
基于TinyXML的XML文档操作(部分测试代码)
2008-09-11 16:31 2432#include <stdio.h> #incl ... -
使用tinyxml类解析XML
2008-09-11 16:26 2446读取和设置xml配置文件是最常用的操作,试用了几个C++的XM ... -
用VB制作网站登陆器
2008-08-25 20:59 4093Private Sub Command1_Click() Wb ... -
vb+Webbrowser控件详解
2008-08-25 20:54 3280方法 说明 GoBack 相当 ... -
VB自动提交表单问题
2008-08-25 14:32 2472需要知道表单名称呢,比如 <Form name=&quo ... -
BBS灌水机脚本(vb scritp, telnet, bbs, sterm)
2008-08-16 11:32 2510'****************************** ... -
c++下载网页的代码,VC6.0编译通过
2008-05-30 19:21 3854#include <winsock2.h> ... -
【译】C/S 多线程Socket类
2008-05-30 19:16 1668Multi-threaded Client/Server So ... -
C++ Socket Class for Windows
2008-05-30 18:59 1630Here, I present the source c ... -
C++ socket程序
2008-05-30 17:58 11510C++ socket程序 下面是一个C++调用windows ... -
字符串提取
2008-05-05 11:24 1299Function bTest(ByVal s As Strin ... -
VB用正则表达式提取网页中的链接
2008-05-05 10:37 2903VBScript code Function getUrl ... -
利用VB提取HTML文件中的EMAIL地址
2008-05-05 09:53 1188电子邮件(EMAIL)是INTERNET上应用最广泛的一种服务 ... -
VB写一个IE插件
2008-05-04 18:20 3063Q: 就类似于3721的插件一样,当用户浏览我的网站的时候,提 ... -
破解VisualStudio2005(vs2005) 的180天限制
2008-04-19 11:53 4556中文版本的软件本身是正式版,但内置的序列号却是180天试用版的 ...
相关推荐
这段代码详细展示了如何在VB6.0中使用正则表达式进行复杂的文本匹配操作,并且体现了正则表达式在字符串处理方面的强大功能和灵活性。通过对RegExp对象属性和方法的设置与调用,可以实现对字符串的高级搜索和替换...
本文将详细介绍如何在VB6.0中使用正则表达式,并通过具体的代码示例进行说明。 #### 二、准备工作 要在VB6.0中使用正则表达式,首先需要引用“Microsoft VBScript Regular Expressions 5.5”库。这可以通过在工程中...
VB6.0是微软公司推出的一种面向对象的可视化编程工具,它提供了对正则表达式的支持,允许开发者使用正则表达式进行复杂的文本操作。在VB6.0中,我们可以使用MS VBScript Regular Expressions 5.5库来实现正则表达式...
VB6.0虽然不内建正则表达式支持,但可以通过引入Microsoft VBScript Regular Expressions 5.5库来实现。首先,在VB6的工程中添加引用,选择“工具”菜单 -> “引用”,然后勾选“Microsoft VBScript Regular ...
使用VB6.0开发的正则表达式验证小工具,体积超小只有72KB. 支持 全局搜索 支持 大小写敏感匹配 支持 替换功能 这个是工具, 正则表达式的匹配与开发使用的语言无关。
在VB6.0环境下,统计文本单词的个数是一项常见的编程任务,这涉及到字符串处理、正则表达式以及循环结构等基础知识。以下是对这个主题的详细讲解: 首先,我们需要了解VB6.0的基础知识。Visual Basic 6.0是微软公司...
VB6.0可以使用字符串处理函数和正则表达式来解析这些信息,以便进一步分析和展示。 5. **用户界面设计**:VB6.0的集成开发环境(IDE)提供了直观的拖放界面设计工具,使开发者能快速构建用户界面。在这个课程监控...
5. **查找与替换模块**:通过正则表达式或简单的字符串匹配实现文本的查找和替换功能。 6. **事件处理**:VB6.0中的事件驱动编程模型使得可以对用户的各种操作(如按键、点击按钮等)做出响应。 **VB6.0控件和编程...
VB6.0中的DOM(Document Object Model)模型或者正则表达式可以用来解析和提取所需信息。解析后的数据,如手机号的凶吉描述和得分,会被存储在程序内部的数据结构中,比如数组或集合,以便进一步处理和展示。 在...
- Web Service返回的XML数据可能需要解析,这通常涉及到DOM或正则表达式等技术。 总的来说,VB6.0调用Web Service虽然比现代语言复杂,但仍然是可行的,关键在于理解和利用好代理类。随着技术的发展,现在更推荐...
2. **正则表达式**:使用正则表达式进行匹配时,需要确保表达式的正确性,以避免误匹配。 3. **安全性和权限问题**:在编写涉及系统信息获取的脚本时,需要考虑到安全性和权限问题,尤其是在生产环境中运行这些脚本...
4. **数据验证**:为了确保输入的网址格式正确,程序可能包含了URL验证机制,例如使用正则表达式。 5. **数据检索**:用户输入关键词后,系统需要能够快速匹配数据库中的记录。这可能涉及到数据库查询优化,如索引...
这涉及到对RTF格式的理解,通常需要使用正则表达式或者专门的RTF解析库来完成。 在VB6.0中,虽然没有内置的RTF解析器,但可以通过第三方库或者自定义函数来实现。一个简单的方法是使用`RichTextBox`控件,它可以...
虽然VB6不直接支持正则表达式,但VB.NET(Visual Basic .NET)版本中提供了`System.Text.RegularExpressions`命名空间,可以进行复杂的字符串匹配和替换。例如,删除所有非字母数字的字符: ```vbnet Imports ...
【文件名称列表】中的"Compilador_VB6.0-master"可能是一个项目仓库的名称,暗示了这是一个关于VB 6.0编译器的开源项目,可能包含了使用JFlex和JCup编写的源代码、配置文件以及相关的文档。通过研究这个项目,开发者...
"JW_创建正则表达式.ec"文件可能是易语言中用于处理正则表达式的代码,正则表达式是一种强大的文本处理工具,常用于字符串匹配、查找、替换等操作。在VB中,可以使用System.Text.RegularExpressions命名空间中的...
在VB6.0中实现这样的功能,开发者可能使用了字符串处理、正则表达式或者特定的身份证号码算法来解析身份证号码。 描述中提到,“VB6.0源代码,可提取身份证所在地信息”,这暗示了这个程序能够根据身份证号码获取到...
- 如何读取和解析简谱文件的格式,这通常涉及到字符串处理和正则表达式。 - 如何将解析出的简谱信息转化为音乐播放指令。 - 如何利用VB6.0的多媒体组件播放音乐,并控制播放速度、音量等参数。 - 如何设计和实现用户...