51Testing软件测试论坛

标题: 请教DataTable中某列数据对比问题 [打印本页]

作者: marspm 时间: 2009-6-26 11:44
标题: 请教DataTable中某列数据对比问题
请教大虾们：
我把文件A的各种属性以文本形式输出，存储到DataTable中的某列
A
sdfsdfs
sdfssf
dfgdfgdg

我现在要在这些属性中检测包不包含c这个字符，如果有一行的数据包含c，则在最下一行写入pass，如果都不包含c，则在最下一行写入fail。请教该如何操作？

[ 本帖最后由 marspm 于 2009-6-26 11:50 编辑 ]

作者: lvguobin 时间: 2009-6-26 11:52
用Instr(1,str1,str2)
1是代表不区别大小写
它返回值是对应字符所在位置
例如：Instr(1,"abc","c")它的返回值是3
假如返回值为0，那么就没有包含"c"

作者: marspm 时间: 2009-6-26 11:59
谢谢楼上的！
如果我要对比一串字符，比如51testing,我要检查是否包含testing，那该如何呢？
再次感谢！

作者: lvguobin 时间: 2009-6-26 12:42
用Instr(1,"51testing","testing")
或者用正则表达式
Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches    ' 创建变量。
  Set regEx = New RegExp       ' 创建正则表达式。
  regEx.Pattern = patrn       ' 设置模式。
  regEx.IgnoreCase = True       ' 设置为不区分大小写。
  regEx.Global = True       ' 设置全局适用。
  Set Matches = regEx.Execute(strng) ' 执行搜索。
  For Each Match in Matches    ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
  Next
  RegExpTest = RetStr
End Function
MsgBox(RegExpTest("testing", "51testing"))

[ 本帖最后由 lvguobin 于 2009-6-26 12:46 编辑 ]

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