@echo off

cd /d "D:\数据\" || (pause & exit /b)

for /f "delims=" %%f in ('dir /a:-d /b *.txt') do (
    set txtFile=%%f
    setlocal enabledelayedexpansion
    
    REM 将文本每一行赋值到伪数组
    set /a n=0, max=0
    for /f "usebackq" %%i in ("!txtFile!") do (
        set /a n += 1
        set v.!n!=%%i
    )
    set /a max=n
    
    REM 生成所有组合
    set /a end=max-3+1
    (for /l %%a in (1, 1, !end!) do (
        set /a start=%%a+1, end=max-1
        for /l %%b in (!start!, 1, !end!) do (
            set /a start=%%b+1
            for /l %%c in (!start!, 1, !max!) do (
                for /f "tokens=1-3" %%i in ("v.%%a v.%%b v.%%c") do (
                    echo !%%i!!%%j!!%%k!))))) >.temp_file
    
    REM 去重复、输出结果至原文件
    (for /f %%i in (.temp_file) do (
        set "numbers=%%i"
        set "new="
        for %%n in (1,2,3,4,5,6,7,8,9,0) do (
            if "!numbers:%%n=!" neq "!numbers!" (
                set new=!new!%%n
            )
        )
        
        if not defined #!new! (
            set #!new!=#
            echo !new!
        )
    )) >"!txtFile!"
    
    endlocal
)

del .temp_file
复制代码

Dim fso, file, f, txt
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file in fso.GetFolder("D:\数据").Files
    If LCase(Right(file, 4)) = ".txt" Then
        Set f = fso.OpenTextFile(file, 1)
        txt = f.ReadAll
        f.Close
        fso.OpenTextFile(file, 2, true).Write RegEx(txt)
    End If
Next

Function RegEx(ByVal txt)
    Dim re, e, n, i, j, k, s, m, m1, str
    Set re = New RegExp
    re.Pattern = "\d+"
    re.Global = True
    Set e = re.Execute(txt)
    n = e.Count - 1
    For i = 0 to n - 2
        For j = i + 1 to n - 1
            For k = j + 1 to n
                s = ""
                For m = 1 to 10
                    m1 = m Mod 10
                    If InStr(e(i) & e(j) & e(k), m1) Then s = s & m1
                Next
                If InStr(vbCrLf & str, vbCrLf & s & vbCrLf) = 0 Then
                    str = str & s & vbCrLf
                End If
            Next
        Next
    Next
    RegEx = str
End Function
复制代码

If Len(s) < 8 and InStr(vbCrLf & str, vbCrLf & s & vbCrLf) = 0 Then
复制代码