xxpinqz

截取字符中不能含空格倒是真的，没处理，因为defined空格会出错。所以上面说明为稍微通用~~~~

xxpinqz

回复 6# pan528
呃，111.222.333.444你把这个设想为一个文件名%%~nxa，%%~na取文件名则为111.222.333(刚好11字符，符合LZ例子).444为扩展名%%~xa
实际上这代码相当于下面的缩减版

@echo off&setlocal enabledelayedexpansion
(for /f "delims= " %%a in (1.txt) do (
  set ".=%%a"&set ".=!.:~,11!"
  if not defined !.! (
	set _=&set !.!=a 
	for /f "skip=1 delims=" %%a in ('findstr /b "!.!" 1.txt 2^>nul') do set "_=_"
	if not defined _ echo %%a 
)))>2.txt
start 2.txt
复制代码

你那个因为%%~na是取到前15位,而非11位，才会出现你说的第一行必须要重复的。所以我才特意说明那是非通用版的，原因在此。要稍微通用则用这个，想取多少字符自己改数值11

pan528

我觉得你的这段代码适用“删除倒数三个字符前相同的行”的情形，但第一行必须是重复行。
但是，我比较迟钝，还是没有看懂，代码是如何排除“倒数三个字符”的。请指教。

:: 删除倒数三个字符前相同的行
<"%~f0" more +11>1.txt
@echo off
(for /f "delims=-" %%a in (1.txt) do (
  if not defined %%~na (
    set ok=&set %%~na=a 
    for /f "skip=1 delims=" %%a in ('findstr /b "%%~na" 1.txt 2^>nul') do set "ok=-"
    if not defined ok echo %%a
)))>2.txt
start 2.txt&exit /b
323.456.789.781.561
593.658.651.780.658

323.456.789.781.542
323.456.789.781.798
323.456.789.781.256
981.651.654.782.681
981.651.654.782.682
复制代码

xxpinqz

回复 4# pan528
不敢，新人啊，虽然这账号注册的很早~~
大体意思这样的：这个代码不通用
1、LZ要求11个字符（刚好是去除最后一个.???），所以用%%~na直接取
2、语句if not defined %%~na 和set %%~na=a 中的变量%%~na（即前11位）用来过滤重复行的，这个应该看的懂了，单单这样过滤出来的结果是不存在重复前11位的行
3、但是要求是有出现重复的就要去除，所以用 for /f "skip=1 delims=" %%a in ('findstr /b %1 1.txt 2^>nul') do set %~2=.来判断是否某个前11为字符的行有两行以上的，skip=1后直接取第二行，只要有值则认为有出现两次，则不输出.重复行不多的话：sc可以直接并入到第一个for中去，毕竟CALL比较慢。呃，发现少写了个goto ：eof，应该是do set %~2=.&goto :eof，不用循环一遍。
4、delims= 等号后有个空格用来去除空格的行（论坛上好像说tokens=*可以去除首部的空格，按我理解应该也可以去除空格的行，不过我电脑上不行{WIN7}，所以用这个），2^>nul则用来去除空行（就一回车换行的行）
5、文本如果超大，就没用了，变量定义有限制的，所以还是2楼的比较通用吧
改成这样应该会快点

@echo off
(for /f "delims= " %%a in (1.txt) do (
  if not defined %%~na (
    set _=&set %%~na=a 
    for /f "skip=1 delims=" %%a in ('findstr /b "%%~na" 1.txt 2^>nul') do set "_=_"
    if not defined _ echo %%a 
)))>2.txt
复制代码

pan528

高手啊，三楼能解释一下代码吗，没有看懂。

xxpinqz

sed也不会，vbs更不会，bat练习中...

@echo off
(for /f "delims= " %%a in (1.txt) do (
  if not defined %%~na (
    set ok=&set %%~na=a
    call :sc "%%~na" "ok"
    if not defined ok echo %%a
)))>2.txt
start 2.txt&exit /b
:sc
for /f "skip=1 delims=" %%a in ('findstr /b %1 1.txt 2^>nul') do set %~2=.
goto :eof
复制代码

apang

sed不会，vbs练习中

Set fso = CreateObject("Scripting.FileSystemObject")
Set dic = CreateObject("Scripting.Dictionary")
Set file  = fso.OpenTextFile("a.txt")

Do Until file.AtEndOfStream
   strLine = file.ReadLine
   strKey = Left(strLine,11)
   If Not dic.Exists(strKey) Then
      dic.Add strKey,strLine
   Else
      dic.Item(strKey) = dic.Item(strKey) & vbLf & strLine
   End If
Loop

For Each a in dic.Keys
   If UBound(Split(dic.Item(a),vbLf)) = 0 Then
      str = str & dic.Item(a) & vbCrLf
   End If
Next

fso.CreateTextFile("b.txt",True).Write str
MsgBox "OK"
复制代码