请教DataTable中某列数据对比问题

marspm

请教大虾们：
我把文件A的各种属性以文本形式输出，存储到DataTable中的某列
A
sdfsdfs
sdfssf
dfgdfgdg

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

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

lvguobin

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

marspm

谢谢楼上的！
如果我要对比一串字符，比如51testing,我要检查是否包含testing，那该如何呢？
再次感谢！

lvguobin

用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 编辑 ]