51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1816|回复: 3
打印 上一主题 下一主题

[原创] 如何匹配N个换行符?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-11-5 11:43:23 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
正则表达式 如何匹配N个换行符?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

4#
发表于 2009-11-5 13:51:06 | 只看该作者
已经说了啊。。。换行符有很多种的啊,你要先确认你你要匹配的换行符是哪一种,不能确定就用 | 将3种换行符都写上,"\n"等价于vblf,多数情况下是vbcrlf
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2009-11-5 12:15:05 | 只看该作者
需求不同  我现在的需求是这样的:
===start====
.........
........
....
...
===end====
我就需要检查 开头和结尾 怎么写?
"===start====(\n*)(.*)===end===="  这样为什么不行?
回复 支持 反对

使用道具 举报

该用户从未签到

2#
发表于 2009-11-5 12:09:06 | 只看该作者
换行符的表示有多种。。。举个小例子好了
Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(strng)   ' Execute search.
   For Each Match in Matches   ' Iterate Matches collection.
      RetStr = RetStr & "Match " & I & " found at position "
      RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
      RetStr = RetStr & Match.Value & "'." & VbCrLf
   Next
   RegExpTest = RetStr
End Function
s = "1"&vbNewLine&"2"&VbCrLf&"3"&vbCr&"4"&vbLf&"5"
MsgBox(RegExpTest(vbLf&"+", s))
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 14:20 , Processed in 0.061542 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表