[文本处理] [已解决]批处理如何删掉前面出现过的字所在行？

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
$a=@()
$b=@()
gc -Encoding UTF8 .\1.txt |%{if((Compare-Object $b $_.ToCharArray() -PassThru -IncludeEqual -ExcludeDifferent).length -eq 0){$a+=$_;$_.ToCharArray()|%{$b+=$_}}}
$a
复制代码

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
$a=@()
$b=@()
gc -Encoding UTF8 .\1.txt |%{if((Compare-Object $b $_.ToCharArray() -PassThru -IncludeEqual -ExcludeDifferent).length -eq 0){$a+=$_;$_.ToCharArray()|%{$b+=$_}}else{$_.ToCharArray()|%{$b+=$_}}}
$a
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%a in (1.txt) do (
    set str=%%a
    echo,!str:~,1! !str:~-1!
))>temp.log
(for /f "tokens=1*" %%i in (temp.log) do (
    if not defined _%%i if not defined _%%j echo,%%i%%j
    set /a _%%i=_%%j=1
))>out.txt
del temp.log
pause
复制代码

一个
这个
这是
复制代码

一个
这个
这是
是的
复制代码

gawk "{ID=1;for(i=0;++i<=length($0);){if(a[substr($0,i,1)]++){ID=0}}if(ID)print}" 1.txt>2.txt
复制代码

$srcFile = '1.txt';
$dstFile = '2.txt';
$Hash    = @{};
$out     = [Collections.ArrayList]@();

forEach( $str In [IO.File]::ReadAllLines($srcFile, [Text.Encoding]::Default) ){
    $flag = $True;
    for( $i=0; $i -lt $str.Length; $i++ ){
        if( $Hash.Contains($str[$i]) ){ $flag = $False; break; }
    }
    if( $flag ){
        $null = $out.Add($str);
        for( $i=0; $i -lt $str.Length; $i++ ){
            if( !$Hash.Contains($str[$i]) ){ $Hash.Add( $str[$i], $True ); }
        }
    }
}

[IO.File]::WriteAllLines($dstFile, $out, [Text.Encoding]::Default);

echo 'Done';
[Console]::ReadLine();
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%a in (1.txt) do (
    set str=%%a
    if not defined _"!str:~,1!" if not defined _"!str:~-1!" (
        echo,%%a
        set _"!str:~,1!"=true
        set _"!str:~-1!"=true
    )
))>out.txt
pause
复制代码

gawk "{ID=1;for(i=0;++i<=length($0);){s=substr($0,i,1);if(!b[s]++)if(a[s]++)ID=0}delete b}ID" 1.txt>2.txt

结果：
一个
但是
自己
很多
复制代码

gawk "{ID=1;for(i=0;++i<=length($0);){s=substr($0,i,1);if(!b[s]++)if(s in a)ID=0}if(ID){for(i=0;++i<=length($0);)a[substr($0,i,1)];print}delete b}" 1.txt>2.txt

结果：
一个
但是
自己
我们
这不
很多
复制代码