142102_最高人民法院关于对被监禁或被劳动教养的人提起的民事诉讼如何确定案件管辖问题的批复
142640_最高人民法院、最高人民**关于废止部分**解释和规范性文件的决定
143183_最高人民法院印发《关于大力推广巡回审判方便人民群众诉讼的意见》的通知
143183_关于大力推广巡回审判方便人民群众诉讼的意见
143184_最高人民法院印发《关于处理自首和立功若干具体问题的意见》的通知
143267_最高人民法院关于审理涉台民商事案件法律适用问题的规定
143267_涉台民商事案件法律适用问题
143356_最高人民法院、最高人民**、**部、**部关于限令拐卖妇女儿童犯罪人员投案自首的通告
143464_最高人民法院关于对因资不抵债无法继续办学被终止的民办学校如何组织清算问题的批复
143591_最高人民法院关于审理非法集资刑事案件具体应用法律若干问题的解释
143885_最高人民法院、最高人民**、**部印发《关于办理侵犯知识产权刑事案件适用法律若干问题的意见》的通知
144084_最高人民法院关于审理期货纠纷案件若干问题的规定(二)
144560_最高人民**关于对涉嫌盗窃的不满16周岁未成年人采取刑事拘留强制措施是否违法问题的批复
144873_最高人民法院印发《关于规范上下级人民法院审判业务关系的若干意见》的通知
144955_最高人民法院关于判决生效后当事人将判决确认的债权转让债权受让人对该判决不服提出再审申请人民法院是否受理问题的批复
复制代码

143183_最高人民法院印发《关于大力推广巡回审判方便人民群众诉讼的意见》的通知
143183_关于大力推广巡回审判方便人民群众诉讼的意见
143267_最高人民法院关于审理涉台民商事案件法律适用问题的规定
143267_涉台民商事案件法律适用问题
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=_" %%a in (a.txt) do set /a $%%a$+=1
for /f "delims=$" %%a in ('set $^|findstr /e "$=2"') do set "key=!key! %%a"
findstr /b "!key!" a.txt
pause
复制代码

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

Do until file.AtEndOfStream
    str = file.ReadLine
    a = Left(str,InStr(str,"_"))
    If not dic.Exists(a) Then
        dic.Add a,str
    Else dic.Item(a) = dic.Item(a) & vbCrLf & str
    End If
Loop

For Each b in dic.Keys
    If InStr(dic.Item(b),vbCrLf) Then
        fso.OpenTextFile("b.txt",8,True).WriteLine dic.Item(b)
    End If
Next
复制代码

@echo off
(sort | uniq -w 7 -D)<a.txt
pause
复制代码

gawk -F"_" "NR==FNR{a[$1]++}NR>FNR&&a[$1]>1" a.t
xt a.txt
复制代码

@echo off
(for /f "tokens=1 delims=_" %%i in (1.txt) do if defined $%%i (echo %%i)else set "$%%i=A")>$.t
findstr /ibg:$.t 1.txt
pause
复制代码

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

Do until file.AtEndOfStream
    str = file.ReadLine
    a = RegEx(str)
    If str <> a Then
        If not dic.Exists(a) Then
            dic.Add a,str
        Else dic.Item(a) = dic.Item(a) & vbCrLf & str
        End If
    End If
Loop

For Each b in dic.Keys
    If InStr(dic.Item(b),vbCrLf) Then
        fso.OpenTextFile("b.txt",8,True).WriteLine dic.Item(b)
    End If
Next

Function RegEx(str)
    Set re = New RegExp
    re.Pattern = "^\s*((\d+_)+).*$"
    RegEx = re.Replace(str,"$1")
End Function
复制代码

@echo off
title 导出序号重复的行
echo 正在导出序号重复的行 ...
(for /f "tokens=1-2* delims=_" %%i in (1.txt) do if defined $%%i_%%j_ (echo %%i_%%j_)else set "$%%i_%%j_=A")>$.t
findstr /ibg:$.t 1.txt>>3.txt
del/f/q $.t 2>nul
pause
复制代码