比较文件中的每一行

Question

我需要比较一个 "field"

例如mid(stringX, 10, 20)

文件中的每一行与每隔一行。如果找到匹配项，我想对一些数字求和，但这并不是问题的真正部分。

我的问题是，我不知道如何进行循环或其他操作，将每一行与所有其他行进行比较，并在匹配时执行特定操作...

我想过这样做：

A=x
B=y

While (A != *Value of last line*) {
                While (B < *value of last line*) {
                compare a and b
                B++; }
A++
B=A+1; }

但是我不知道如何在 vbscript 中实现这样的东西。

有人可以帮帮我吗？

谢谢

Answer 1

要将列表中的每个元素（例如一行）与所有其他元素进行比较，您需要比较每个元素 "with all elements below"

VBA 中的代码块可能是这样的：

Sub CompFull()
Dim X As Integer, Y As Integer
Dim MyRange As Range

Set MyRange = Selection

X = 1

Do While MyRange(X, 1) <> ""     ' outer loop from start to end
    Y = X + 1
    Do While MyRange(Y, 1) <> "" ' inner loop from one below current to end
        If MyRange(X, 1) = MyRange(Y, 1) Then
            MsgBox "Row " & X & " matches row " & Y, vbOKOnly, "Match found"
        End If
        Y = Y + 1
    Loop                         ' end of inner loop

    X = X + 1
Loop                             ' end of outer loop
End Sub

比较文件中的每一行

Compare every line in file

vbscript

loops

file

line