51Testing软件测试论坛

标题: 这段代码我不知道怎么用通配字符 [打印本页]

作者: vincenthan 时间: 2007-8-13 17:53
标题: 这段代码我不知道怎么用通配字符
Dim a1,a2,a3,a4,a5,a6
Set a1=createobject("scripting.filesystemobject")
Set a2=a1.createfolder("e:\han")
Set a3=a1.createtextfile("e:\han\8.txt")
Set a6=a1.getfolder("e:\han")
Set a4=a1.getfile("e:\han\8.txt")
Set a5=a1.opentextfile("e:\bin.txt",2,true)
a5.writeline("the last modified time is '"&a4.datelastmodified&"'")
a5.close
If a4.datelastmodified="2007-8-13*" Then
      a3.close
      a4.delete
      else
      a4.copy("e:\8.txt")
      a3.close
a6.delete
End If

a4指向的文件的修改日期为2007－8－13 10：10：06，但我不知道怎么用通配符匹配，有哪位高人知道吗，指点一下

作者: vincenthan 时间: 2007-8-13 17:54
用的*是不正确的，无法实现a6.deletesdlkfj7

作者: 风过无息 时间: 2007-8-13 20:22
.*就好了．

作者: bobile 时间: 2007-8-14 09:19
用.*吧，就是正则匹配了

作者: bobile 时间: 2007-8-14 09:19
顶起呀，呵呵

作者: vincenthan 时间: 2007-8-14 10:26
是怎么用，是改成2007-8-13.*吗，可是我试这样不行啊sdlkfj9

作者: surlary 时间: 2007-8-14 13:53
为什么看到通配符就想到正则呢？不要草木皆兵啊。
把If a4.datelastmodified="2007-8-13*" Then
改成If Left(a4.datelastmodified, 9)="2007-8-13" Then
试试。

作者: lantianwei 时间: 2007-8-14 13:59
标题: 回复 #7 surlary 的帖子
呵呵思路不错！

作者: yuandjing 时间: 2007-8-14 16:51
恩，想不到正则还能换个思路去解决

作者: vincenthan 时间: 2007-8-14 17:33
sdlkfj3 ,谢谢你的回答，不过这似乎回避了通配符的问题，如果不是在左边，而是在一些任意的位置，还要另想方法，不管怎么说，还是谢谢你，至少解决了当下的问题，强啊

作者: loho1968 时间: 2007-8-14 21:00
instr(a4.datelastmodified,"2007-8-13")>0

作者: zhangj8826 时间: 2007-8-14 23:05
ding qi

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)