Select Code to Download

    int counter=0;
    int counter2=0;
...
                ++counter2;
            }
        }

  RegexObj := TRegExpr.Create;
  RegexObj.Expression := '123456$';
...
      if RegexObj.Exec(s) then counter2:=counter2+1;
      counter:=counter+1;
    end;

    $f = [System.IO.File]::OpenText("10-million-combos.txt")
    while (! $f.EndOfStream) {
...
        if ($line -match "123456$" ) { $counter +=1 }
        $counter2+=1
    }

    with open("10-million-combos.txt", encoding="cp850") as infile:
        for line in infile:
            counter2 += 1
            if re.search('123456$', line):
                counter += 1

    open("10-million-combos_LF.txt") do |content|
        content.each_line do |line|
...
            end
        end
    end

    Dim mStreamReader As StreamReader = New StreamReader("10-million-c
+ombos.txt")
    line = mStreamReader.ReadLine()
...
        If Regex.IsMatch(line, "123456$") Then counter2 += 1
        line = mStreamReader.ReadLine()
    Loop

    Set objTextFile = objFSO.OpenTextFile("10-million-combos.txt", For
+Reading)
    Set objRegEx = CreateObject("VBScript.RegExp")
...
        Set colMatches = objRegEx.Execute(strNextLine)
        Count=Count+colMatches.Count
    Loop

    Regex rgx = new Regex("123456$");
    int counter = 0;
...
            }
        }
    }

    $counter=0;
    $counter2=0;
...
            ++$counter2;
        }
    }

    String line;
    Pattern p = Pattern.compile("123456$");
...
        if (m.find()) {count2+=1;}
        count+=1;
    }