本帖最后由 apang 于 2013-12-4 16:10 编辑
- set x=Nothing '&cls&dir/a-d/b/s I:\* | cscript -nologo -e:vbscript "%~0" &pause&exit/b
-
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set dic = CreateObject("Scripting.Dictionary")
- Do Until WScript.StdIn.AtEndOfStream
- file = WScript.StdIn.ReadLine
- name = LCase(Right(file,Len(file)-InStrRev(file,"\")))
- If dic.Exists(name) Then
- dic.Item(name) = dic.Item(name) & vbCrLf & file
- Else dic.Add name,file
- End If
- Loop
-
- For Each a in dic.Keys
- If InStr(dic.Item(a),vbCrLf) Then
- n = UBound(Split(dic.Item(a),vbCrLf)) + 1
- str = str & a & "重复了" & n & "次,位置:" & vbCrLf
- str = str & dic.Item(a) & vbCrLf & vbCrLf
- End If
- Next
-
- fso.CreateTextFile("Result.txt",true).Write str
复制代码
|