for /f "delims=" %%i in (1.txt) do (if not defined %%i echo,%%i >>2.txt&set "%%i=a")
复制代码

gawk "{a[$0]++}END{for(i in a)if(a[i]==1)print i}" a.txt | more >b.txt
复制代码

@echo off
setlocal enableDelayedExpansion
set str=,
for /f %%i in (1.txt) do (
for /f %%a in (",!i!,") do if "!str:%%a=!"=="!str!" (
set str=,!n!!str!
)
)
for %%a in (!str!) do echo %%a>>2.txt
复制代码

@echo off
(for /f "delims=" %%a in (a.txt) do if not defined "%%a" echo %%a&set ""%%a"=a")>b.txt
start b.txt
复制代码

@echo off
for /f "delims=" %%a in (a.txt) do set /a "_%%a+=1"
(for /f "tokens=1,2 delims==_" %%a in ('set _') do if %%b equ 1 echo %%a)>b.txt
start b.txt
复制代码

@echo off&setlocal enabledelayedexpansion
rem 每行字符间不能有空格,;><&tab以及成对的!字符
set "str= "
for /f "delims=" %%a in (a.txt) do (  
  if "!str: %%a =!" neq "!str!" (
    set "str=!str: %%a =!"
    ) else (
    set "str=!str! %%a "
  )
)   
(for %%a in (%str%) do echo %%a)>b.txt
start b.txt
复制代码

Set fso = CreateObject("scripting.filesystemobject")
vbstr = fso.OpenTextFile("a.txt").ReadAll()
arr = Split(vbstr, vbCrLf)
For Each str In arr
  If InStr(vbout, str) = 0 Then
    vbout = vbout & str & vbCrLf
    Else
    vbout = Replace(vbout, str, "$@#^&><")
  End If
Next
fso.OpenTextFile("b.txt", 2, True).Write Replace(vbout, "$@#^&><" & vbCrLf, "")
MsgBox "ok"
复制代码

@echo off
(for /f "delims= eol=" %%i in ('"type 1.txt|findstr ".*""') do (
	if not defined %%i (echo;%%i) else call,set "#=%%#%%%%i "
	set "%%i=0"
))>#
findstr /v /i "%#%" #>2.txt&del #
复制代码