0

我正在尝试创建一个包含两个文件的数组并比较这两个文件，但我碰壁了。我不断收到错误“需要对象'add4'”，我需要读取两个文件，将它们放入一个数组中，比较这两个文件并从第二个文件中删除不在第一个文件中的行。我还想记录我删除的行。

'Reads Approvedshare txt and makes the txt file into an array
        public objFSO 
         Set objFSO = CreateObject("Scripting.FileSystemObject") 
         Dim objTextFile 
         Set objTextFile = objFSO.OpenTextFile _
            ("TXT PATH") 
         do Until objTextFile.AtEndOfStream
            strNextLine = objTextFile.Readline
           public array1 : array1 = trim(strNextLine)
            'wscript.echo "test array : " & array1
           array1 = trim(array1)
            loop


        'Reads current shares txt and also makes that txt into an array
        Set objTextFile2 = objFSO.OpenTextFile _
            ("SECOND TXT PATH")
         do Until objTextFile2.AtEndOfStream
        strNextLine2 = objTextFile2.Readline
       public array2 : array2 = trim(strNextLine2)
        'wscript.echo "test array : " & array2
       array1 = trim(array2)
        loop

'This section is used to compare the two txt files and remove whatever variables that are in both txt files and deleting them.
array2.files
array2.files
   For Each textstream1 In array1
        found = False
    For Each textstream2 In array2
      If textstream1 = textstream2 Then
        found = True
        Exit For
    End If
        found = False
    Next
      If found = False Then
        wscript.echo "This isn't on approve shares text : " &textstream2
     End If 
    Next

'Another section for logging the process, logging the lines that were deleted
4

1 回答 1

3

不是答案：

给定一个包含以下行的文件 X：

A
B
C

文件 Y 包含：

A
B
C
1
2
3

以及“从第二个文件中删除不在第一个文件中的行”的任务，因此 Y 看起来像：

A
B
C

显而易见的解决方案是在 Y 上复制 X - 不是代码，没有编码暴行，没有错误消息。

那么你的情况有什么不同？

于 2013-10-17T15:59:33.510 回答