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