@echo off & setlocal EnableDelayedExpansion
set j=0
for /f "delims=" %%i in (文件列表.txt) do (
set /a j+=1
set con!j!=%%i
call set a=%%con!j!%%
type !a! | find "工程" >> "!a!.txt"
type !a! | find "图" >> "!a!.txt"
@echo off
)
复制代码

@echo off
md "去重之后的文件"
for /f "delims=" %%i in ('dir /b /s *.txt') do (
    echo 正在处理文件 %%i
    setlocal
    (for /f "delims=" %%a in ('type "%%i"') do (
        if not defined _%%a (
            echo,%%a
            set "_%%a=1"
        )
    ))>"去重之后的文件\%%~ni.log"
    endlocal
)
复制代码

@echo off
(for /f "delims=" %%i in (XXX.txt) do findstr "%%i" "XXX2.txt">nul||echo %%i)>XXX2.txt
)
pause
复制代码

$start = Get-Date #记录脚本开始执行时间
ForEach( $file In (dir "*.dxf") ) {  #这里加了双引号，不加双引号的时候会出现找不到路径报错
    $arr = [IO.File]::ReadAllLines($file, [Text.Encoding]::Default);
    $arr = $arr -match '工程|图' -replace '\s+';                          #匹配包含"工程" 或 "图"的行、删除空格
    $arr = $arr -replace '^\(\(FRAME.*PLOTFILEPREFIX."([^"]+)".*$', '$1';
    $arr = $arr -NotMatch '^.{1,5}$|数据链接\^|[c-zC-Z]:\\|"TCH_KERNAL|接图|图例|在选择|说明|关闭|宋体'               #删除不符合要求的行
    $arr = $arr | sort -Unique;                                           #删除重复行
    $str += '"' + $file.Name + '","' + ($arr -join '","') + '"' + "`r`n";
}
#Get-ChildItem variable:  #显示出变量的值以便查看问题出现在哪里
sc a.CSV -Value $str;
$end = Get-Date #记录脚本结束执行时间
Write-Host -ForegroundColor Red ('Total Runtime: ' + ($end - $start).TotalSeconds) #显示脚本执行时间
复制代码

@echo off
md "去重之后的文件"
for /f "delims=" %%i in ('dir /b /s *.txt') do (
    (for /f "delims=" %%a in ('type "%%i"') do (
        findstr /x /c:"%%a" "去重之后的文件\%%~ni.log" 1>nul 2>&1 || echo,%%a
    ))>"去重之后的文件\%%~ni.log"
)
复制代码

@echo off
md "去重之后的文件"
for /f "delims=" %%i in ('dir /b /s *.txt') do (
    echo 正在处理文件 %%i
    setlocal
    (for /f "delims=" %%a in ('type "%%i"') do (
        if not defined _%%a (
            echo,%%a
            set "_%%a=1"
        )
    ))>"去重之后的文件\%%~ni.log"
    endlocal
)
复制代码

ForEach( $file In (dir *.dxf) ) {
    $arr  = [IO.File]::ReadAllLines($file, [Text.Encoding]::UTF8);
    $arr = $arr -match '工程|图' -NotMatch '"' | sort -Unique; #找到 工程 或 图 的行，去掉 引号 的行，再去重。
    $str += '"' + $file.Name + '","' + ($arr -join '","') + '"' + "`r`n";
}
sc a.CSV -Value $str;
复制代码

使用“2”个参数调用“ReadAllLines”时发生异常:“值不能为 null。
参数名: encoding”
所在位置 H:\历年验收图纸\2011年验收\筛选导出CSV.PS1:2 字符: 5
+     $arr  = [IO.File]::ReadAllLines($file, [Text.Encoding]::GB2312);
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : ArgumentNullException
复制代码

ForEach( $file In (dir *.dxf) ) {
    $arr = [IO.File]::ReadAllLines($file, [Text.Encoding]::UTF8);
    $arr = $arr -match '工程|图' -replace '\s+';                          #匹配包含"工程" 或 "图"的行、删除空格
    $arr = $arr -replace '^\(\(FRAME.*PLOTFILEPREFIX."([^"]+)".*$', '$1';
    $arr = $arr -NotMatch '^.{1,5}$|数据链接\^|[c-zC-Z]:\\'               #删除不符合要求的行
    $arr = $arr | sort -Unique;                                           #删除重复行
    $str += '"' + $file.Name + '","' + ($arr -join '","') + '"' + "`r`n";
}
sc a.CSV -Value $str;
复制代码

ForEach( $file In (dir "*.dxf") ) {  #这里加了双引号，不加双引号的时候会出现找不到路径报错
    $arr = [IO.File]::ReadAllLines($file, [Text.Encoding]::Default);
    $arr = $arr -match '工程|图' -replace '\s+';                          #匹配包含"工程" 或 "图"的行、删除空格
    $arr = $arr -replace '^\(\(FRAME.*PLOTFILEPREFIX."([^"]+)".*$', '$1';
    $arr = $arr -NotMatch '^.{1,5}$|数据链接\^|[c-zC-Z]:\\|"TCH_KERNAL|接图|图例|在选择'               #删除不符合要求的行
    $arr = $arr | sort -Unique;                                           #删除重复行
    $str += '"' + $file.Name + '","' + ($arr -join '","') + '"' + "`r`n";
}
#Get-ChildItem variable:  #显示出变量的值以便查看问题出现在哪里
sc a.CSV -Value $str;
复制代码