Question

我需要比较一个“字段”

e.g。 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

要比较列表中的每个元素（例如一行）与所有其他元素，将每个元素“与下面的所有元素”进行比较

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

比较文件中的每一行

1 个答案: