Question

我有一个包含.txt文件的目录。我正在将每个文件的行写入数组，并且需要知道文件中的任何行是否与另一个文件中的任何行匹配。

示例：

If any item in Array1 = any item in Array2 then...

到目前为止

代码：

For Each foundBaseFile As String In My.Computer.FileSystem.GetFiles _
 (DataDir, _
     FileIO.SearchOption.SearchTopLevelOnly, "*.vpk.txt")
        Dim BaseTextArray = IO.File.ReadAllLines(foundBaseFile)
        For Each foundCheckFile As String In My.Computer.FileSystem.GetFiles _
 (DataDir, _
     FileIO.SearchOption.SearchTopLevelOnly, "*.vpk.txt")
            If Not foundBaseFile = foundCheckFile Then
                Dim CheckTextArray = IO.File.ReadAllLines(foundCheckFile)
                'If any item in CheckTextArray = any item in BaseTextArray then
                '    Do X
                'End If
            End If
        Next
    Next

谢谢！的

Answer 1

这应该可以解决问题。

If BaseTextArray.Any(Function(o) CheckTextArray.Contains(o)) Then
  ' Do X

Answer 2

声明两个数组变量

dim arr1() as string
dim arr2() as string

从.txt文件行b行读取值并添加到每个arrarlevel。您还可以通过vbnewline

分割线条

然后使用

Array.Indexof()

查找第一个数组字符串中的值是否存在于其他中的方法。

If indx >1 then
True
Else
False
end if

检查数组中的任何项是否与Visual Basic中另一个数组中的任何项匹配

2 个答案: