网站地图 |  TAG标签 |  RSS订阅  【设为首页】  【加入收藏
网站首页   学校介绍   专业设置   师资力量   就业保障   青鸟学社   校园生活   学校新闻   招生简章   网上学堂   博客   开班计划
北大青鸟 北大青鸟咨询服务 北大青鸟报名北大青鸟就业保障 北大青鸟专题 北大青鸟高中生专题 北大青鸟中职生专题 北大青鸟大学生专题 北大青鸟待业者题 北大青鸟跳槽转行专题
当前位置: 首 页 > 网上学堂 > 程序开发 >

北大青鸟华腾教育 在VB中如何使用正则表达式

来源:未知 编辑:北大青鸟老师 日期:2013-12-11 16:03
 注意 这个示例中将对照“IS1 is2 IS3 is4”字符串检查 is. 模式。您可以将句点这一特殊字符(.)用作通配符,这样,搜索模式就能够多匹配并多显示一个字符。如果www.x-force.cn您在搜索模式中添加两个句点,您会看到两个其他字符。如果您不使用任何句点,您只

  1. 启动 Microsoft Visual Basic 6.0。

  2. 在“文件”菜单上,单击“新建项目”。

  3. 在“新建项目”对话框中,单击“Standard Exe”,然后单击“确定”。

  默认情况下将创建 Form1。

  4. 在“项目”菜单上单击“引用”。

  5. 双击“Microsoft VBScript Regular Expressions 5.5”,然后单击“确定”。

  6. 在工具箱中,双击“命令按钮”。

  默认情况下,“Command1”将添加到窗体中。

  7. 双击“Command1”以打开代码窗口。

  8. 将下面的代码粘贴到“Command1_Click”事件处理程序:MsgBox(TestRegExp(“is.”, “IS1 is2 IS3 is4″))

  注意 这个示例中将对照“IS1 is2 IS3 is4”字符串检查 is. 模式。您可以将句点这一特殊字符(.)用作通配符,这样,搜索模式就能够多匹配并多显示一个字符。如果www.x-force.cn您在搜索模式中添加两个句点,您会看到两个其他字符。如果您不使用任何句点,您只会看到搜索模式。

  9. 将以下函数添加到“Command1_click”事件处理程序后:

  1. [codes=vb]Function TestRegExp(myPattern As String, myString As String)  
  2. ”Create objects.  
  3. Dim objRegExp As RegExp  
  4. Dim objMatch As Match  
  5. Dim colMatches As MatchCollection  
  6. Dim RetStr As String 
  7. ” Create a regular expression object.  
  8. Set objRegExp = New RegExp  
  9. Set the pattern by using the Pattern property.  
  10. objRegExp.Pattern = myPattern  
  11. ” Set Case Insensitivity.  
  12. objRegExp.IgnoreCase = True 
  13. Set global applicability.  
  14. objRegExp.Global = True 
  15. ”Test whether the String can be compared.  
  16. If (objRegExp.Test(myString) = TrueThen 
  17. Get the matches.  
  18. Set colMatches = objRegExp.Execute(myString) ” Execute search.  
  19. For Each objMatch In colMatches ” Iterate Matches collection.  
  20. RetStr = RetStr & “Match found at position “  
  21. RetStr = RetStr & objMatch.FirstIndex & “. Match Value is ””  
  22. RetStr = RetStr & objMatch.Value & “”.” & vbCrLf  
  23. Next 
  24. Else 
  25. RetStr = “String Matching Failed”  
  26. End If 
  27. TestRegExp = RetStr  
  28. End Function[/codes] 

  10. 在“运行”菜单上,单击“启动”来运行该应用程序。

  11. 单击“Command1”。

  此时将出现一个消息框,该消息显示 IS1 is2 IS3 is4 字符串中的所有 is 匹配项。

温馨提示:如果您对北大青鸟的学费、专业设置、就业推荐有任何疑问,可以点击“在线报名”老师与您联系!

------分隔线----------------------------
  • 复制网址发给好友
  • 收藏本文
若您对这篇文章的内容有疑问或者评论,请在此留言给老师,老师会尽快答复你的。
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
最新留言/评论 浏览更多留言/评论>>
栏目导航
北大青鸟入学咨询服务
    点击咨询 毕业工作分配问题
    点击咨询 毕业学历证书问题
    点击咨询 学费书费杂费问题
    点击申请 免费试听机会
    点击报名 参加技术讲座
课程,学费,就业等资料索取(免费)
       姓 名:
     联系电话:
     qq:
     验证码:
    E-mail:
     
北大青鸟就业明星
    北大青鸟北京华腾校区就业学员 我的选择,我的路
      每个人心中都有梦
    想,尤其在年轻的时
    候。无论这个梦想多么
    的遥不可及,却都寄托
    北大青鸟北京华腾校区就业学员 刘友富,安徽人
      我只有高中学历,
    却能在北京奔驰汽车公
    司上班.感谢北大青鸟
    学校,感谢老师们,祝
北大青鸟免费技术讲座
    讲座日期: 本周六 点击抢座
    讲座时间: 下午1点30分
    讲座地点: 北大青鸟BENET网络工程师校区,第一教室
    主讲老师: 李庆儒老师 , 网络工程师培训金牌讲师
    讲座主题: 我的安全我做主
    讲座内容: 检测、防御、黑客信息,如何过滤不安全的网站,如何防御黑客的进攻。
    咨询电话: 010-82011433
    订座电话: 010-82011432
网友推荐内容