怎么验证一行文字中存在某些字符，请看我代码

cabrite

date()
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile("C:\Documents and Settings\Administrator\com.travelsky.angel\logs\EtermLog"&date()&".txt",1)
                logs = txt.ReadAll
If (instrrev(logs,"发送指令SID=81,Scmd=HBPR:CA1111/03MAY10/*PEK,12,HBNB") > 0) then
        reporter.ReportEvent micPass,"pass","pass"
else
    reporter.ReportEvent micfail,"failed","failed"
end if


我需要验证"发送指令SID=81,Scmd=HBPR:CA1111/03MAY10/*PEK,12,HBNB"中的"发送指令SID=81,Scmd=HBPR:,HBNB"存在，因为“CA1111/03MAY10/*PEK,12”这个不好参数化，决定忽略掉着部分，用vbs能实现吗

风雪夜归人

你的不是实现了么?

cabrite

原帖由 风雪夜归人 于 2010-5-6 13:28 发表
你的不是实现了么?

我实现的是检索“发送指令SID=81,Scmd=HBPR:CA1111/03MAY10/*PEK,12,HBNB”
我希望检索"发送指令SID=81,Scmd=HBPR:,HBNB"
忽略掉“CA1111/03MAY10/*PEK,12”

风雪夜归人

If instrrev(logs,"发送指令SID=81,Scmd=HBPR") <> 0 AND instrrev(logs,",HBNB") <> 0 Then
End If

这样可以不?分开检测.

风雪夜归人

str1 = "发送指令SID=81,Scmd=HBPR:CA1111/03MAY10/*PEK,12,HBNB"
str2 = "发送指令SID=81,Scmd=HBPR:asdffffffffsdddddddddddd//////////****,HBNBasdf"

aa = "发送指令SID=81,Scmd=HBPR.*),HBNB.*"
Set reg = New RegExp
reg.Pattern = aa
reg.Global = True
reg.IgnoreCase = True
MsgBox reg.Test(str1) '检测str1是否包含aa
MsgBox reg.Test(str2) '检测str2是否包含aa
MsgBox reg.Replace(str1, "$1") '取出str1中匹配部分
MsgBox reg.Replace(str2, "$1") '取出str2中匹配部分

Set reg = Nothing


正则表达式

skyzhu

知道中间忽略掉的大概长度吗？
找到前半段后，mid 截出后面剩下的内容，在一定的长度内搜索 后半段的  HBNB
或者找到前半段后，mid 截出之后到那一行的换行符，之后再这个范围里找后半

[ 本帖最后由 skyzhu 于 2010-5-6 14:03 编辑 ]

cabrite

原帖由 风雪夜归人 于 2010-5-6 13:42 发表
If instrrev(logs,"发送指令SID=81,Scmd=HBPR")  0 AND instrrev(logs,",HBNB")  0 Then
End If

这样可以不?分开检测.

不行
假设第一行是"发送指令SID=81,Scmd=HBPR。。。。。deaf"
第二行是“发送指令SID=81,Scmd=HBPW。。。。hbnb”
你这样的判断也是pass的吧

风雪夜归人

那就不清楚了,关键是你中间要忽略掉的长度是不是固定的?

风雪夜归人

假设忽略长度为 n

将5#中 aa = "发送指令SID=81,Scmd=HBPR.*),HBNB.*"
改为 aa = "发送指令SID=81,Scmd=HBPR.{n}),HBNB.*" 就可以了

cabrite

原帖由 风雪夜归人 于 2010-5-6 13:57 发表
那就不清楚了,关键是你中间要忽略掉的长度是不是固定的?

不固定啊

skyzhu

找到前半段后，mid 截出之后到那一行的换行符，之后再这个范围里找后半

风雪夜归人

那就用5楼的脚本嘛,
Set FSO = CreateObject("scripting.FileSystemObject")
Set FS = FSO.OpenTextFile("C:\asdf.txt") '打开txt文件
str1 = FS.ReadAll

aa = "发送指令SID=81,Scmd=HBPR.*),HBNB.*" '因为在正则表达式中.代表除了\n之外的任意字符,所以,要求HBNB和前面的发送指令...在一行
Set reg = New RegExp
reg.Pattern = aa
reg.Global = True
reg.IgnoreCase = True
MsgBox reg.Test(str1)
Set reg = Nothing
FS.Close
Set FS = Nothing
Set FSO = Nothing

cabrite

原帖由 风雪夜归人 于 2010-5-6 14:13 发表
那就用5楼的脚本嘛,
Set FSO = CreateObject("scripting.FileSystemObject")
Set FS = FSO.OpenTextFile("C:\asdf.txt") '打开txt文件
str1 = FS.ReadAll

aa = "发送指令SID=81,Scmd=HBPR.*),HBNB.*" '因为在 ...

可不可以
If (instrrev(logs,"发送指令SID=81,Scmd=HBPR") > 0) and (instrrev(logs,"HBNB") > 0) and (发送指令SID=81,Scmd=HBPR”和“HBNB"在同一行)then

红色部分有办法实现吗

skyzhu

你先用他的正则方法试试，如果你日志里的换行是 vblf 就能成功，只在一行里匹配
但如果是 vbcr 的，那就会串行匹配了

cabrite

原帖由 skyzhu 于 2010-5-6 14:35 发表
你先用他的正则方法试试，如果你日志里的换行是 vblf 就能成功，只在一行里匹配
但如果是 vbcr 的，那就会串行匹配了

其实，我没看懂他写的那个
我的if then怎么加啊

风雪夜归人

Set FSO = CreateObject("scripting.FileSystemObject")
Set FS = FSO.OpenTextFile("C:\asdf.txt") '打开txt文件
str1 = FS.ReadAll

aa = "发送指令SID=81,Scmd=HBPR.*),HBNB.*" '因为在正则表达式中.代表除了\n之外的任意字符,所以,要求HBNB和前面的发送指令...在一行
Set reg = New RegExp
reg.Pattern = aa
reg.Global = True
reg.IgnoreCase = True
If reg.Test(str1) Then
   '输出结果 成功
Else
   '输出结果 查找不到
End If

Set reg = Nothing
FS.Close
Set FS = Nothing
Set FSO = Nothing

我写脚本不习惯写注释的,因为是英文系统,都没有中文输入法,所以,写脚本的时候如果想办法写注释会非常郁闷...抱歉

[ 本帖最后由 风雪夜归人 于 2010-5-6 14:52 编辑 ]

skyzhu

str1 = FS.ReadAll
'前面的不写了
'正则：   
aaa = "前段"  &  ".*"  & "后段"   
'  .*  表示匹配任意字符任意长度，除了某个换行符，具体参考正则表达式
If regtest(str1,aaa) then
    存在
end if

Function regtest(str,regstr)
    Set reg = New RegExp
    reg.Pattern = regstr
    reg.Global = True
    reg.IgnoreCase = True
    regtest = reg.Test(str)
    Set reg = Nothing
End Function

[ 本帖最后由 skyzhu 于 2010-5-6 14:56 编辑 ]

cabrite

谢谢二位，终于成功了，十分感谢