Question

我具有读取从另一个线程here复制的多个字符串的功能。

我有一个字符串名称strResult所需的整个文档，我的目的是只比较strList上的字段，然后在strResult中找到它们。

这是功能：

Function FindString(strCheck,strFind) 
    Arr = Split(strResult,",")
    Flag = 0

我这样称呼它：调用FindString（strResult，strList）

For Each str in Arr    
  If InStr(strCheck, str) > 0 Then
  Flag = 1    
     Reporter.ReportEvent micPass,"Field Found","Field:"&str&" was found"
  Else
  Flag = 0
      Reporter.ReportEvent micFail,"Field not Found","Field:"&str&" was not found"
  End If
Next
If Flag = 1 Then
  FindString = True
  Reporter.ReportEvent micPass,"Field Found","Field"&str&"was found"
Else
  FindString = False
  Reporter.ReportEvent micFail,"Field not found","Field"&str&"was not found"
End If

当没有找到字段时，它应该返回失败，但它会忽略它们，字符串列表位于包含诸如“ field1”和“ __field2”之类的变量上，主要问题是即使“ field3” “不在strList中，它将显示找到的内容，我只希望它采用strList上的字段，而不是全部strResult字符串

Answer 1

我也通过拆分值列表来固定该函数，

Arr = Split(strCheck,",")
Arr2 = Split(strFind,",")
Flag = 0

For Each str in Arr  
    For Each str2 in Arr2
        If InStr(str, str2) > 0 Then
            Flag = 1    
            Reporter.ReportEvent micPass,"Field "&str2&" Found","Field:"&str&" was found"
            Exit For
        End If

    Next

VBScript函数读取多个字符串无法正常工作

1 个答案: