File 比较文件中的每一行

我需要比较一个“字段”

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; }

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

A=x
B=y
而（A！=*最后一行的值*）{
而（B<*最后一行的值*）{
比较a和b
B++；}
A++
B=A+1；}

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

有人能帮我吗

---

感谢

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

VBA中的代码块可能如下所示：

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; }

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

Sub CompFull（）
将X作为整数，Y作为整数
将MyRange变暗为Range
设置MyRange=Selection
X=1
在MyRange（X，1）的外部循环从开始到结束时执行此操作
Y=X+1
在MyRange（Y，1）“1”内部循环从低于当前值的一个循环到结束时执行此操作
如果MyRange（X，1）=MyRange（Y，1），则
MsgBox“行”&X&“匹配行”&Y，vbOKOnly，“找到匹配项”
如果结束
Y=Y+1
内循环的循环结束
X=X+1
外循环的循环结束
端接头

SO不是代码编写服务。请先学习VBScript，然后当您对尝试但无法开始工作的内容有特定问题时再回来。Teency有点苛刻。=）@菲尔，欢迎。。。在StackOverflow上有一段充满洞察力和分享的美好时光